ASP组件应用实例

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("小强")
%>