global.asa

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASA 代码 · 共 24 行

<script language=VBScript RUNAT=Server>
Sub application_onstart
    application("Visitors")=0
end sub
sub session_onstart
    application.lock
    application("visitors")=application("visitors")+1
    application.unlock
    session("ServerIP")=Request("Server_Name")
    session("sysDSN")="DSN=Mysql; UID=sa; PWD=75785098;"
    session("mydb")="Driver={SQL Server};Database=testonline;Server=(local);uid=Administrator;pwd="
    session("EditFlag")="INSERT"
    session("Runflag")="Normal"
    session("Uid")=""
end sub
sub session_onend
    application.lock
    application("visitors")=application("visitors")-1
    application.unlock
end sub
sub application_onend
end sub
</SCRIPT>