hqtchat.asp

此程序为网上下载

<%@ codepage ="936" %>
<%Response.Buffer=true
Response.Expires=0
nickname=Session("hxf_u_nickname")
scrname=Request.ServerVariables("SCRIPT_NAME")
if Instr(LCase(scrname),"hqtchat.asp")=0 then Response.Redirect "error.asp?id=002"
useronlinename=Application("wsaxhxf_c_useronlinename")
Session("hxf_u_sift")="0"
Session("hxf_u_filname")=" ,"
if Application("wsaxhxf_c_closedoor")="1" then Response.Redirect "error.asp?id=100"
if int(Application("wsaxhxf_c_chatrs"))>=int(Application("wsaxhxf_c_maxpeople")) then Response.Redirect "error.asp?id=101"
allhttp=LCase(Request.ServerVariables("ALL_HTTP"))
if Application("wsaxhxf_c_disproxy")="1" and (Instr(allhttp,"proxy")<>0 or Instr(allhttp,"http_via")<>0 or Instr(allhttp,"http_pragma")<>0) then Response.Redirect "error.asp?id=011"
if nickname="" or Session("hxf_u_hb")<0 then Response.Redirect "error.asp?id=210"
if nickname="聊天室管理员" then Response.Redirect "error.asp?id=301"
fenping=0
if trim(Request.QueryString("win"))="0" then fenping=1
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
t=s & ":" & f & ":" & m
if Session("hxf_u_inthechat")<>"1" then
	if InStr(LCase(useronlinename)," " & LCase(nickname) & " ")<>0 then Response.Redirect "error.asp?id=300"
	Session("hxf_u_inthechat")="1"
	Session("hxf_u_savetime")=sj
	Session("hxf_u_lasttime")=sj
	Application.Lock
	onlinelist=Application("wsaxhxf_c_onlinelist")
	dim newonlinelist()
	useronlinename=""
	onliners=0
	js=1
	yjl=0
	ubl=UBound(onlinelist)
	for i=1 to ubl step 8
		if DateDiff("n",onlinelist(i+5),sj)<=60 then
			if yjl=0 then
				yjl=1
				onliners=onliners+2
				useronlinename=useronlinename & " " & nickname & " " & onlinelist(i+1)
				Redim Preserve newonlinelist(js),newonlinelist(js+1),newonlinelist(js+2),newonlinelist(js+3),newonlinelist(js+4),newonlinelist(js+5),newonlinelist(js+6),newonlinelist(js+7),newonlinelist(js+8),newonlinelist(js+9),newonlinelist(js+10),newonlinelist(js+11),newonlinelist(js+12),newonlinelist(js+13),newonlinelist(js+14),newonlinelist(js+15)
				newonlinelist(js)=Request.ServerVariables("HTTP_USER_AGENT")
				newonlinelist(js+1)=nickname
				if session("ipbt")="1" then
					newonlinelist(js+2)="202.202.202.202"
				else
					newonlinelist(js+2)=Request.ServerVariables("REMOTE_ADDR")
				end if
				newonlinelist(js+3)=Session("hxf_u_gender")
				newonlinelist(js+4)=sj
				newonlinelist(js+5)=sj
				newonlinelist(js+6)=Session("hxf_u_grade")
				newonlinelist(js+7)=sj
				newonlinelist(js+8)=onlinelist(i)
				newonlinelist(js+9)=onlinelist(i+1)
				newonlinelist(js+10)=onlinelist(i+2)
				newonlinelist(js+11)=onlinelist(i+3)
				newonlinelist(js+12)=onlinelist(i+4)
				newonlinelist(js+13)=onlinelist(i+5)
				newonlinelist(js+14)=onlinelist(i+6)
				newonlinelist(js+15)=onlinelist(i+7)
				js=js+16
			else
				onliners=onliners+1
				useronlinename=useronlinename & " " & onlinelist(i+1)
				Redim Preserve newonlinelist(js),newonlinelist(js+1),newonlinelist(js+2),newonlinelist(js+3),newonlinelist(js+4),newonlinelist(js+5),newonlinelist(js+6),newonlinelist(js+7)
				newonlinelist(js)=onlinelist(i)
				newonlinelist(js+1)=onlinelist(i+1)
				newonlinelist(js+2)=onlinelist(i+2)
				newonlinelist(js+3)=onlinelist(i+3)
				newonlinelist(js+4)=onlinelist(i+4)
				newonlinelist(js+5)=onlinelist(i+5)
				newonlinelist(js+6)=onlinelist(i+6)
				newonlinelist(js+7)=onlinelist(i+7)
				js=js+8
			end if
		end if
	next
	if yjl=0 then
		onliners=onliners+1
		useronlinename=useronlinename & " " & nickname
		Redim Preserve newonlinelist(js),newonlinelist(js+1),newonlinelist(js+2),newonlinelist(js+3),newonlinelist(js+4),newonlinelist(js+5),newonlinelist(js+6),newonlinelist(js+7)
		newonlinelist(js)=Request.ServerVariables("HTTP_USER_AGENT")
		newonlinelist(js+1)=nickname
		if session("ipbt")="1" then
			newonlinelist(js+2)="202.202.202.202"
		else
			newonlinelist(js+2)=Request.ServerVariables("REMOTE_ADDR")
		end if
		newonlinelist(js+3)=Session("hxf_u_gender")
		newonlinelist(js+4)=sj
		newonlinelist(js+5)=sj
		newonlinelist(js+6)=Session("hxf_u_grade")
		newonlinelist(js+7)=sj
	end if
	useronlinename=useronlinename&" "
	if onliners=0 then
		dim listnull(0)
		Application("wsaxhxf_c_onlinelist")=listnull
	else
		Application("wsaxhxf_c_onlinelist")=newonlinelist
	end if
	Application("wsaxhxf_c_useronlinename")=useronlinename
	Application("wsaxhxf_c_chatrs")=onliners
	sd=Application("wsaxhxf_c_sd")
	line=int(Application("wsaxhxf_c_line"))
	Session("hxf_u_line")=line
	Application("wsaxhxf_c_line")=line+1
	Dim newsd(180)
	j=1
	for i=10 to 180 step 9
		newsd(j)=sd(i)
		newsd(j+1)=sd(i+1)
		newsd(j+2)=sd(i+2)
		newsd(j+3)=sd(i+3)
		newsd(j+4)=sd(i+4)
		newsd(j+5)=sd(i+5)
		newsd(j+6)=sd(i+6)
		newsd(j+7)=sd(i+7)
		newsd(j+8)=sd(i+8)
		j=j+9
	next
	newsd(172)=line+1
	newsd(173)=1
	newsd(174)=0
	newsd(175)=nickname
	newsd(176)="大家"
	newsd(177)="660099"
	newsd(178)="660099"
	newsd(179)="对"
newsd(180)="<font color=black>【公告】</font><font color=008800>" & Replace(Application("wsaxhxf_c_userinto"),"%%","<a href=javascript:parent.sw('[" & nickname & "]'); target=f2>" & nickname & "</a>") & "</font><font class=t>(" & t & ")</font><bgsound src='readonly/cd.mi' loop='1'><\script>parent.relist();<\/script>"
Application("wsaxhxf_c_sd")=newsd
Application.UnLock
end if
addstr="<script>parent.add('"&nickname&"');</script>"
pcinfo = Request.ServerVariables("HTTP_USER_AGENT")
If InStr(pcinfo, "NT 5") <> 0 Then
 gdsd = 3
Else
 gdsd = 7
End If
useautoman=Application("wsaxhxf_c_useautoman")
chatbgcolor=Application("wsaxhxf_c_chatbgcolor")
chatimage=Application("wsaxhxf_c_chatimage")
chatroomname=Application("wsaxhxf_c_chatroomname")
if chatbgcolor="" then chatbgcolor="008888"%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script Language="JavaScript" src="readonly/automansaysdata.js"></script>
<script Language="Javascript">
if(window!=window.top){top.location.href="hqtchat.asp";}
var time="<%=t%>"
var chatbgcolor="<%= chatbgcolor %>"
var chatimage="<%= chatimage %>";
var count=<%=Application("wsaxhxf_c_chatrs")%>;
var gdsd = <%=gdsd%>;
var mode = <%=fenping%>;
var crm="<%=chatroomname%>";
document.write("<title>"+crm+"</title>");
var bgc="<%=Application("wsaxhxf_c_chatcolor")%>";
var winbgcolor="<%=chatbgcolor%>";
var winbgimage="<%=chatimage%>";
var amn="<%=Application("wsaxhxf_c_automanname")%>";
var myn="<%=nickname%>";
var likai = 0;
var cs=<%=Session("hxf_u_grade")%>;
var lst=0;
var useautoman = "<%=Application("wsaxhxf_c_useautoman")%>";
var badword = new Array("射精","奸","去死","吃屎","你妈","你娘","日你","尻","操你","干死你","王八","逼","傻B","贱人","狗娘","婊子","表子","靠你","叉你","叉死","插你","插死","干你","干死","日死","鸡巴","睾丸","死去 ","包皮","龟头","屄","赑","妣","肏","奶子","尻","屌","作爱","做爱","床上","抱抱","鸡八","tmd","fuck","法轮","处女","打炮","十八摸","你爷","你爸","我儿","·") ;
var badstr = "~!@ #$%^&*()[]{}_+-|=\`;,:'\"?<>/～！·＃￥％…；‘’：“”—＊（　）—＋｜－＝、／。，？《》" ;

var startok = 1;
var autospeakjg = 60;
var autospeaknl = "泡分工具自动发言。|请勿打扰。|有事请留言。|正在泡分……|别理我。|我不在。|自动发言。|有事请使用其他方法联系。|不是我不理你。|只是我不在这里。|请多多包涵。|/cls|/cd";
var autospeaktimerID = null;
var autospeaktimerRunning = false;

function write(cls){
var fsize,lheight;
if(cls==1){
fsize=this.f2.document.af.fs.value;
lheight=this.f2.document.af.lh.value;
}else{
fsize='10.5';
lheight='165';
 }

 //------------------------------------------主窗口-------------------------------------------

this.f1.document.open();
this.f1.document.writeln("<html><head><title>对话区</title><meta http-equiv=Content-Type content=\"text/html; charset=gb2312\">");
this.f1.document.writeln("<style type=text/css>.p{font-size:20pt}.l{line-height:" + lheight + "%}.t{color:FF00FF;font-size:9pt;}body{font-family:\"宋体\";font-size:" + fsize + "pt}A{text-decoration:none}A:Hover{text-decoration:underline}A:visited{color:blue}</style></head>");
//---------------------------------------------滚屏代码-------------------------------------------
this.f1.document.writeln("<\script Language='JavaScript1.1'>");
this.f1.document.writeln("var autoScrollOn=1;");
this.f1.document.writeln("var currentpos2,currentpos3,timer;");
this.f1.document.writeln("function initialize(){");
this.f1.document.writeln("timer=setInterval(\"scrollwindow()\",1);");
this.f1.document.writeln(" }");
this.f1.document.writeln("function sc(){");
this.f1.document.writeln("clearInterval(timer);");
this.f1.document.writeln(" }");
this.f1.document.writeln("function scrollwindow(){");
this.f1.document.writeln("currentpos2=this.document.body.scrollTop;");
this.f1.document.writeln("currentpos3=parent.f0.document.body.scrollTop;");
this.f1.document.writeln("this.scroll(0,currentpos2+parent.gdsd);");
this.f1.document.writeln("parent.f0.scroll(0,currentpos3+parent.gdsd);");
this.f1.document.writeln(" }");
this.f1.document.writeln("function scrollit(){");
this.f1.document.writeln("if(!parent.f2.document.af.as.checked){autoScrollOn=0;sc();");
this.f1.document.writeln("return true;");
this.f1.document.writeln(" }else{");
this.f1.document.writeln("autoScrollOn=1;scrollWindow();");
this.f1.document.writeln("return true;");
this.f1.document.writeln(" }");
this.f1.document.writeln("}function scrollWindow(){");
this.f1.document.writeln("if(autoScrollOn==1){");
this.f1.document.writeln("initialize()");
this.f1.document.writeln(" }");
this.f1.document.writeln("}function scrollOn(){");
this.f1.document.writeln("autoScrollOn=1;scrollWindow();");
this.f1.document.writeln(" }");
this.f1.document.writeln("function scrollOff(){");