用VB做asp调用的dll的通用代码

Private scriptingContext As scriptingContext
Private Request As Request
Private Response As Response
Private server As server
Private Session As Session

Public Sub OnStartPage(PassedscriptingContext As scriptingContext)
??? '初始化相关物件变量
??? Set scriptingContext = PassedscriptingContext
??? Set Request = scriptingContext.Request
??? Set Response = scriptingContext.Response
??? Set server = scriptingContext.server
??? Set Session = scriptingContext.Session
?End Sub

public test

end public

Public Sub OnEndPage()
??? Set scriptingContext = Nothing
??? Set Request = Nothing
??? Set Response = Nothing
??? Set server = Nothing
??? Set Session = Nothing
End Sub

（编辑：宣城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!