disp.asp

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

<%
id=cstr(session.SessionID)
Response.Write(session(id))
'if session(id)<>"" then
'set fileobject=createobject("scripting.filesystemobject")
'if fileobject.FileExists(server.mappath("\")&"\userinfo\"&session.SessionID&".txt") then
	Response.Write("<script language='javascript'>")
	infodim=split(session(id),"※",2)
	for i=0 to ubound(infodim)
	'set fs=fileobject.OpenTextFile(server.mappath("\")&"\userinfo\"&session.SessionID&".txt",ForWriting,false)
	'while not fs.atendofline
	'	msgstr=fs.readline
		msg=split(infodim(i),"$")
Response.write("window.open('send_get_info.asp?id="&msg(0)&"&name="&server.htmlencode(msg(1))&"&sendflag=0&info="&server.htmlencode(msg(2))&"','','toolbar=no,scrollbars=no,resizable=0,menubar=no,width=356,height=193');")
		'Response.write("window.open('send_get_info.asp?id="&msg(0)&"&name="&server.htmlencode(msg(1))&"&sendflag=0&info="&server.htmlencode(msg(2))&"','','toolbar=no,scrollbars=no,resizable=0,menubar=no,width=356,height=193');")
		'fs.writeline()
	'wend
	'fs.close
	next
	Response.Write("</script>")
	'session(id)=""
	'fileobject.DeleteFile(server.mappath("\")&"\userinfo\"&session.SessionID&".txt")
'end if
%>