getusersums.asp

来自「快狗即时通讯软件源码V2007 纪念版」· ASP 代码 · 共 22 行

<%
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
%>