动画中的原始代码如下所示:
复制代码代码如下所示:
版本1类
开始
多用途= - 1'true
0'notpersistable持久=
DataBindingBehavior = 0'vbnone
DataSourceBehavior = 0'vbnone
mtstransactionmode = 0'notanmtsobject
结束
属性vb_name =TW
Attribute VB_GlobalNameSpace = False
属性vb_creatable =真
属性vb_predeclaredid = false
属性vb_exposed =真
明确选择
私人myscriptingcontext作为scriptingcontext
私人申请应用
私人MyRequest As Request
私人MyResponse
反应 私人
服务器作为服务器
私人mysession会话
市民Sub OnStartPage(passedscriptingcontext作为scriptingcontext)
集myscriptingcontext = passedscriptingcontext
设置应用myscriptingcontext MyApplication =。
把我的请求,请求myscriptingcontext。
设置= myscriptingcontext响应响应。
个= myscriptingcontext服务器设置。
mysession = myscriptingcontext会话设置。
端子
市民Sub OnEndPage()
集myscriptingcontext =没有
设置申请=没有
把我的请求=没有
设置响应=没有
设置服务器=没有
集mysession =没有
端子
公共
函数UserOut(
用户)为变异
userout =用户
端
功能