global.asa

来自「一个优秀的学校学籍,成绩,图书管理系统.有需要的朋友可以来看看.是完整代码.」· ASA 代码 · 共 57 行

<object runat=server scope=application id="tsgl_conn" progid="ADODB.Connection">
</object>
<object runat=server scope=application id="xmgl_conn" progid="ADODB.Connection">
</object>
<object runat=server scope=application id="cjgl_conn" progid="ADODB.Connection">
</object>
<object runat=server scope=application id="flk_rs" progid="ADODB.recordset">
</object>
<object runat=server scope=application id="bjk_rs" progid="ADODB.recordset">
</object>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

SUB Application_OnStart
application("tsgl_conn_bj")="first"
application("xmgl_conn_bj")="first"



application("cjgl_conn_bj")="first"
application("flk_rs_bj")="first"
application("bjk_rs_bj")="first"
application("lyb_rs_bj")="first"
END SUB
</SCRIPT>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnEnd

flk_rs.close
set flk_rs=nothing
tsgl_conn=close
set tsgl_conn=nothing

bjk_rs.close
set bjk_rs=nothing
xmgl_conn.close
set xmgl_conn=nothing



cjgl_conn.close
set cjgl_conn=nothing
END SUB
</SCRIPT>


<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnStart
END SUB
</SCRIPT>


<SCRIPT LANGUAGE=VBScript RUNAT=Server>
 SUB Session_OnEnd
 END SUB
</SCRIPT>