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