ҳͳƵ(gobal.asa)
  
ҳʱԿһЩǰվϵǣأأˡͬơãӣһأȣһһ˵Щͳƶָһʱڵķÿͳơ磨ڣڣʱĳ̣趨ġ
ʱͬƸͬɣеķÿͿԵóǰˣһȷҪʲô취ȷͳƣǾǸ˲ͬˣԶύҳ棬һʱȡãϣϣˣɣţӵȵȣڣӣУһõļɣʹsessionͳƣһgobal.asaļһҪһļ뿴Ľṹ
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnStart
End Sub
Sub Session_OnEnd 
End Sub
sub Application_OnStard
End Sub
sub Application_OnEnd
End Sub</SCRIPT>
һỰʱûҳWebôԷһûĻͻͬʱApplication_OnStardSession_OnStart¼֮бûĻֻSession_OnStart¼sessionǶ೤ǿ趨ģSession.timeout=أӣ
ˣܺõķǾ׼ȷͳƳˣܼһapplication棬ڵһỰʼʱApplication_OnStard¼зһռapplication("online")=0ȻSession_OnStart¼Уһapplication("online")=application("online")+1Session_OnEnd¼Ӧطһ䣬ֵһ
ļ͸Ϊ
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnStart
application("online")=application("online")+1
End Sub
Sub Session_OnEnd 
application("online")=application("online")-1
End Sub
sub Application_OnStard
application("online")=0
End Sub
sub Application_OnEnd
application("online")=0
End Sub</SCRIPT>
һʾͼֵĳ򣬰ʾָҳϡܵó
online.asp
<% @language="vbscript" %>
<% 
tmp=application("online")
tmp=Cstr(tmp)
dim disp(20)
dim images(20)
dbbits=len(tmp)
for I= 1 to dbbits
disp(I)=left(right(tmp,I),I-(I-1))
next

for I=dbbits to 1 step C1
images(I)="<img src="&"http://xxxx.com.cn/pic"&"/"&disp(I)&".gif>" 

response.write "document.write('"&images(I)&"');"

next



%>
ĳܼ򵥣ﲻˣԼĶһ¡ڵͳƵҳһscriptonline.aspļʾͼͳ
<script language="JavaScript" src="http://xxxx.com.cn/online.asp"></script>
ڿˣסҪ㣬gobal.asaȷwebӦóĿ¼ϣõΪͳ½һwebӦó򣬲ҪĳˣȻóǲ׼ȷģ޸ΪûͳҲܼ򵥡ͿṩͳƷˣʵִȥ˼һ°....
