deleolduser.asp

国内最早的在线客服系统源码.可以把访客变成自己的客户.是目前比较流行的在线客服系统

<%response.expires=0%>
<%
if session("0382")="" then
    Response.Write("登录信息过期, 请重新登录!")
	response.end
end if
sub lost_user(flag,siteid)
    On Error Resume Next
	dim delflag
	if flag=1 then
		onlineuser=application("onlineuser"&siteid)
	else
		onlineuser=application("onlinemanager")
	end if
	number=ubound(onlineuser)
	dimsums=number
	if dimsums=0 then
		exit sub
	end if
	for i=0 to number
		delflag=0
		if onlineuser(i)="" then
			delflag=1
		else
			sj=left(onlineuser(i),instrrev(onlineuser(i),"$")-1)
			sj=cdate(right(sj,len(sj)-instrrev(sj,"$")))
			if datediff("s",sj,now())>1200 then
				delflag=1
			end if
		end if
		if delflag=1 then
			if number>0 then
				for j=i to number-1
					onlineuser(j)=onlineuser(j+1)
				next
				if number>i then
					i=i-1
					number=number-1
				end if
				dimsums=dimsums-1
			else
				onlineuser(0)=""
				dimsums=0
			end if
		end if
	next
	redim preserve onlineuser(dimsums)
	if flag=1 then
		application("onlineuser"&siteid)=onlineuser
	else
		application("onlinemanager")=onlineuser
	end if
end sub
application.lock
onlinesite=application("onlinesite")
dimsums=ubound(onlinesite)
for i=0 to dimsums
	if onlinesite(i)<>"" then
		msg=split(onlinesite(i),"$")
		response.write("正在删除<font color=#0000ff>"&msg(2)&"</font>站点上的过期用户......<br>")
		call lost_user(1,msg(0))
	end if
next
response.write("正在删除过期的在线站长......<br>")
call lost_user(0,"")
application.unlock
%>