deleonlineuser.asp

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

<%response.expires=0%>
<%
if session("0382")="" then
    Response.Write("登录信息过期, 请重新登录!")
	response.end
end if
sub lost_user(flag)
	dim delflag
	Application.Lock
	onlineuser=application("onlineuser"&flag)
	number=ubound(onlineuser)
	dimsums=number
	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)
	application("onlineuser"&flag)=onlineuser
	Application.UnLock
end sub
id=request("id")
flag=request("flag")
if id<>"" and flag<>"" then
	application.lock
		if id="all" then
			dim temp(0)
			application("onlineuser"&flag)=temp	
		elseif id="info" then
			application("info")=""
		elseif id="old" then
			call lost_user(flag)
		else
			onlineuser=application("onlineuser"&flag)
			number=ubound(onlineuser)
			if number>=0 then
				if number=0 then
					onlineuser(0)=""
					application("onlineuser"&flag)=onlineuser
				else
					for i=0 to number
						if instr(onlineuser(i),id)>0 then
							for j=i to number-1
								onlineuser(j)=onlineuser(j+1)
							next
							exit for
						end if
					next
					redim preserve onlineuser(number-1)
					application("onlineuser"&flag)=onlineuser
				end if
			end if
	end if
	application.unlock
end if
response.redirect "glright.asp?id="&flag
%>