请教,这样封装为什么还报错?

BENCQS BENCQS 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
有哪里不对吗?封装后注册。访问报错。



Public id
Public Rs
Public Sql
Public conn
Private MyScriptingContext As ScriptingContext
Private MyApplication As Application
Private MyRequest As Request
Private MyResponse As Response
Private MyServer As Server
Private MySession As Session
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
Set MyApplication = MyScriptingContext.Application
Set MyRequest = MyScriptingContext.Request
Set MyResponse = MyScriptingContext.Response
Set MyServer = MyScriptingContext.Server
Set MySession = MyScriptingContext.Session
End Sub
Public Sub OnEndPage()
Set Application = Nothing
Set Request = Nothing
Set Response = Nothing
Set Server = Nothing
Set Session = Nothing
Set Context = Nothing
End Sub
Public Sub fhlad()
id = MyRequest.QueryString("id")
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "select * from guangao where oks=1 order by id desc"
Rs.open Sql, conn, 1, 1
If Not Rs.EOF Then
MyResponse.Redirect Rs("ggURL")
End If
Rs.Close
Set Rs = Nothing
conn.Close
Set conn = Nothing
End Sub
...全文
评论 2
收藏 已收藏
分享
返回顶部
BENCQS
vbScript 4,008 成员 3,512 内容