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组件数组返值 方法
困了，睡觉了 ^_^
相关文档：
计算闰年主要是为了判断2月份的天数，一般闰年2月份是29天，平年2月份是28天。计算闰年的算法非常简单，即：能被400整除，或者能被4整除而不能被100整除。
算法如下：
function isLeapYear(pYear)
set oreg=new RegExp
oreg.Pattern="^\d{4}$"
if n ......
VB颜色和RGB色互相转换头疼了我好一段时间,如今找到解决办法了
特别贴出来与大家共享
Type RGB
Red As String
Green As String
Blue As String
End Type
Public Function ColorToRGB(ByVal dwColor As Long) As RGB
Dim clrHex ......
VB
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.CommPort = i1
MSComm1.PortOpen = True
MSComm1.InputMode = comInputModeBinary
MSComm1.InBufferCount = 0
& ......
升华提供终身免费ASP+access PHP+mysql虚拟主机
一：升华网络科技有限公司,与升华同在站长终身免费空间扶持计划.
1、尊敬的用户您好,也许您还在为每年一交的空间费用发愁,也许您想获得一个更优质的空间却不想投入太多,从现在起 这些问题将迎刃而解→升华网络←与升华同在站长扶持计划全面启动。
2、没有注册公司 ......
<%
if Request.QueryString("pageNo")="" then
PageNo=1
elseif IsNumeric(Request.QueryString("pageNo"))=false then
PageNo=1
else
PageNo=clng(Request.QueryString("pageNo"))
end if
打开数据表..不写了哈.
set rs=server.CreateObject("adodb.recordset")
sql="............"
rs.open sql, ......
