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