asp代码封装成DLL 报错

来源:百度知道 编辑:UC知道 时间:2024/07/03 22:16:52
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
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

Public Sub AspClassInit()
Response.write ("dddd")<

貌似要插入个东西的。有封装教材你搜索下把
帮您顶一下。
高手帮我解决下这个问题。谢谢。
http://zhidao.baidu.com/question/48415690.html