global.asa

2002年夏天为一个同学制作得班级同学录程序

<script language=vbscript runat=server>
Sub Application_OnStart

Application("UserNum")=0
Application("count")=0
Application("countbak")=0
Application("showbak")=""
End Sub

Sub Session_OnStart
Session.Timeout=1
Session("UserName")=""

End Sub

Sub Session_OnEnd

if not Session("Leave") then
  str="<OPTION value="&session("UserName")&">"&session("UserName")&"</option>"
  if instrrev(application("listname"),str)<>0 then

    del_start=instr(application("listname"),str)-1
    del_end=del_start+len(str)
    str_start=left(application("listname"),del_start)
    str_end=right(application("listname"),len(application("listname"))-del_end)

    application.lock
    Application("UserNum")=Application("UserNum")-1
    application("listname")=str_start+str_end
    application.unlock

  end if
end if

End Sub

</script>