1,添加引用 COM+ Services Type Library
2,添加引用Microsoft Active Server Pages Object Library
2,添加引用Microsoft Active Server Pages Object Library
3,新建项目ActiveX dll 属性 名称为 project1
4,新建类 Class1 如下
Public objContext As objectContext
Public Application As ASPTypeLibrary.Application
Public Server As ASPTypeLibrary.Server
Public Session As ASPTypeLibrary.Session
Public Response As ASPTypeLibrary.Response
Public Request As ASPTypeLibrary.Request
Private Sub Class_Initialize()
On Error Resume Next
On Error Resume Next
Set objContext = GetObjectContext
Set Application = objContext.Item("Application")
Set Server = objContext.Item("Server")
Set Session = objContext.Item("Session")
Set Request = objContext.Item("Request")
Set Response = objContext.Item("Response")
End Sub
Private Sub Class_Terminate()
On Error Resume Next
Set Application = Nothing
Set Server = Nothing
Set Session = Nothing
Set Request = Nothing
Set Response = Nothing
Set objContext = Nothing
End Sub
Set Application = Nothing
Set Server = Nothing
Set Session = Nothing
Set Request = Nothing
Set Response = Nothing
Set objContext = Nothing
End Sub
Public Sub Print1()
Response.Write "王永胜的动态链接库"
End Sub
Response.Write "王永胜的动态链接库"
End Sub
5,生成dll
6,注册服务
控制面板-管理工具-组件服务-com+应用程序
新建-应用程序-空应用程序
注册上面的dll
控制面板-管理工具-组件服务-com+应用程序
新建-应用程序-空应用程序
注册上面的dll
7,新建asp文件
<%
dim obj
set obj=server.CreateObject("project1.Class1")
obj.Print1
dim obj
set obj=server.CreateObject("project1.Class1")
obj.Print1
%>