?? getusersums.asp
字號:
<%
on error resume next
application.lock
onlinesite=application("onlinesite")
dimsums=ubound(onlinesite)
usersums=0
for i=1 to dimsums
msg=split(onlinesite(i),"$")
response.write("<a href="&msg(1)&" target=_blank><font color=#0000ff>"&msg(2)&"</font></a>總訪問量:")
onlineuser=application("onlineuser"&msg(0))
sitesums=ubound(onlineuser)
if sitesums<=0 and onlineuser(0)="" then
sitesums=0
else
sitesums=sitesums+1
end if
response.write(sitesums&"<br>")
usersums=usersums+sitesums
next
response.write("總人數:"&usersums)
application.unlock
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -