initquery.asp

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

<%response.expires=0%>
<%
if session("0382")="" then
    Response.Write("登录信息过期, 请重新登录!")
	response.end
end if
on error resume next
application.lock
sub deleonlineuser()
	dim temp(0)
	onlinesite=application("onlinesite")
	dimsums=ubound(onlinesite)
	for i=0 to dimsums
		if onlinesite(i)<>"" then
			msg=split(onlinesite(i),"$")
			if not isempty(application("onlineuser"&msg(0))) then
				application("onlineuser"&msg(0))=temp
				response.write("正在初始化<font color=#0000ff>"&msg(2)&"</font>在线用户队列......<br>")
				application("info")=temp
				response.write("正在初始化<font color=#0000ff>"&msg(2)&"</font>信息队列......<br>")
			end if
		end if
	next
end sub
id=request("id")
if id="" then
	response.write("<p align=center><font color=#ff0000 size=+1>数据传送出错，请重试！</font></p>")
else
	if id="1" then
		response.write("<p align=center><font color=#ff0000 size=+1>初始化“快狗”</font></p><br>")
		dim temp(0)
		application("onlinemanager")=temp
		response.write("正在初始化<font color=#0000ff>在线站长</font>队列......<br>")
		call deleonlineuser
		application("onlinesite")=temp
		response.write("正在初始化<font color=#0000ff>在线站点</font>队列......<br>")
		application("online")=0
	elseif id="2" then
		response.write("<p align=center><font color=#ff0000 size=+1>初始化在线用户队列</font></p><br>")
		call deleonlineuser
	else
		response.write("<p align=center><font color=#ff0000 size=+1>初始化在线站长</font></p><br>")
		dim onlinemanager(0)
		application("onlinemanager")=onlinemanager
		response.write("正在初始化<font color=#0000ff>在线站长</font>队列......<br>")
	end if
end if
application.unlock
%>