asp vb com组件开发与调试
今天在公司服务器上看一个老掉牙的asp程序，发现竟然调用了自定义com组件，是vb写的，封装了数据库连接与操作，文档上写这样做是为什么用户到服务器也看不到数据库的用户名与密码，也对啊，这个是财务的服务器，当然不能让我们it随便看了，呵呵！（it忽悠finance，让finance相信it看不到数据库用户名与密码，my god）由于，我们服务器管理人员要服务器，决定要"和谐"这个服务器，只能将这个服务器上的应用全部移到另一个服务器上，于是就要改这个com组件以指定新的db名称，
将com组件源码copy到本机上，改连接，编译dll，再copy到服务器上，regsvr32 注册，一切正常，于是将原db offline，一会儿就有call我了，页面报错，无法访问！打开页面看到错误信息 odbc没有找到数据库，仔细一看，还是原来数据库，心里那个拔凉的，立即google，同时将原db online
原来得将iis重起: iisreset
又加一个com组件方法，
Public Function getData(ByVal sss As Integer) 'as Variant 不能加返回值类型
Dim dd() 'as String 也不能加返回值类型
Dim i As Integer
ReDim dd(sss - 1)
i = 0
Do While i < sss
dd(i) = CStr(i)
i = i + 1
Loop
getData = dd
End Function <%
dim b
b = com.getData(10)
Response.Write VarType (b) & "ssss"
Response.Write b(1)
%>
数组与返回值不能定类型 否则 VarType 返回8200,提示 "类型不匹配" 错误, 正常是8204
第一次编译，工程属性－部件－版本兼容性－不兼容，再编译时，选工程兼容
在com组件重编译时，要将本机iis: iisreset /stop，确保没进程调用这个组件， 否则无法覆盖原dll
这就是asp 取 com组件数组返值 方法
困了，睡觉了 ^_^
相关文档：
在ASP中使用 Request.ServerVariables("REMOTE_ADDR") 来取得客户端的IP地址，但如果客户端是使用代理服务器来访问，那取到的就是代理服务器的IP地址，而不是真正的客户端IP地址。要想透过代理服务器取得客户端的真实IP地址，就要使用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取。不过要注意的事，并不是每个 ......
Option Explicit
Dim FSO As New FileSystemObject
Dim currentFolder As Folder
Dim currentFolderName As String
Dim folderItem, fileItem
Private Sub Form_Load()
currentFolderName = FSO.GetFolder(App.Path) & "\content"
SeachFolder (FSO.GetFolder(currentFolderName))
End Sub ......
http://tieba.baidu.com/f?kz=255370663
搜集到一个程序
几乎都用它来完成采集任务了！贡献出来啊，很简单滴
Function strCut(strContent, StrStart, StrEnd) As String '通用截取函数
Dim strHtml, S1, S2 As String
dim strstart,stren ......
珍贵vb函数列表
Variant 变量的内部表示:
_______________________________________________________________
符号常量 值 内部表示 字节数
V_EMPTY 0 Empty
V_NULL 1 Null
V_INTEGER 2 Interger 2
V_LONG 3 Long 4
V_SINGLE 4 Single 4
V_DOUBLE 5 Double 8
V_CURRENCY 6 Currency 8
V_DATE 7 Date 8
V_STRI ......
升华提供终身免费ASP+access PHP+mysql虚拟主机
一：升华网络科技有限公司,与升华同在站长终身免费空间扶持计划.
1、尊敬的用户您好,也许您还在为每年一交的空间费用发愁,也许您想获得一个更优质的空间却不想投入太多,从现在起 这些问题将迎刃而解→升华网络←与升华同在站长扶持计划全面启动。
2、没有注册公司 ......
