为方便时可简化asp中的6大对象，并在两个基本函数中作处理

Dim rp As Response

Dim rq As Request

Dim ap As Application

Dim sr As Server

Dim sn As Session

Dim a As Integer

Public Sub OnStartPage(MyScriptingContext As ScriptingContext)

Set rp = MyScriptingContext.Response

Set rq = MyScriptingContext.Request

Set sr = MyScriptingContext.Server

Set ap = MyScriptingContext.Application

Set sn = MyScriptingContext.Session

End Sub

Public Sub OnEndPage()

Set rp = Nothing

Set rq = Nothing

Set sr = Nothing

Set ap = Nothing

Set sn = Nothing

End Sub