用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

（编辑：银川站长网）

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