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