今天在公司服务器上看一个老掉牙的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组件数组返值 方法
困了，睡觉了 ^_^
1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键
<table border oncontextmenu=return(false)><td>no</table> 可用于Table
2. <body onselectstart="return false"> 取消选取、防止复制
3. onpaste="return false" 不准粘贴
4. oncopy="return false;" oncut="return f ......
