1)VB6.0新建工程ActiveX DLL,引用“microsoft active server pages object library”和“microsoft activeX data objects 2.1 library”,工程名改为myDll,将类模块的名称改为myClass,.cls文件内容如下:
Public Function sayHello(userName)
sayHello = "你好:" & userName & "。"
End Function
2)编译生成myDll.dll文件,
本机注册:regsvr32 myDll.dll。
远程注册:
<%
Set oShell = CreateObject ("Wscript.Shell")
oShell.Run "C:/windows/system32/regsvr32.exe /s D:/www/web/test/myDll.dll", 0, False
%>
3)在ASP页测试组件。
<%
set myObj=server.CreateObject("myDll.myClass")
response.write myObj.sayHello("小强")
%>