📄 refresh.asp

📁 ASP仿QQ程序 web版的
💻 ASP
字号:
<!--#include file="checklogin.asp"-->
<!--#include file="right.asa"-->
<HTML>
<HEAD>
<SCRIPT language=JavaScript>
function killErrors() {
return true;
}
window.onerror = killErrors;
setTimeout("window.location.reload()",3000);
</SCRIPT>
</HEAD>
<BODY>
<%
on error resume next
nmb=session("nmb")
lcount=session("lcount")
if lcount="" then lcount=0
if lcount=15 and session("refresh")=true then
lcount=0
lcount=lcount+1
session("lcount")=lcount
		sql="select user_id,name,face,online from friend,userinfo where user_id=f_id and ftype='h' and u_id="&nmb
		rs.open sql,conn,3,3
		for i=1 to rs.recordcount
		 uname=rs("name")
		 if len(uname)>6 then uname=left(uname,6)&".." 
         	hlist=hlist&"<tr><td align='center'>"&_
		 "<img src='image/face/"&rs("face")&".gif' width=32 height=32 class='face-a' onMouseDown=this.className='face-c' onMouseUp=this.className='face-b' onMouseOver=this.className='face-b' onMouseOut=this.className='face-a' onDblClick=show('"&rs("user_id")&"');stoprattle(this)>"&_
		 "</td></tr><tr><td height='18' align='center'>"&uname&"</td></tr>"
		rs.movenext
		next
hlist="<table width='85' border='0' cellspacing='1' cellpadding='0'>"&hlist&"</table>"
response.Write("<SCRIPT LANGUAGE=javascript>parent.list.div3.innerHTML="&chr(34)&hlist&chr(34)&";</script>")
elseif lcount=10 and session("refresh")=true then
lcount=lcount+1
session("lcount")=lcount
		sql="select user_id,name,face,online from friend,userinfo where user_id=f_id and ftype='f' and u_id="&nmb
		rs.open sql,conn,3,3
		 for i=1 to rs.recordcount
		 uname=rs("name")
		 if len(uname)>6 then uname=left(uname,6)&".." 
		 if rs("online")=1 then
         folist=folist&"<tr><td align='center'>"&_
		 "<img id='f"&rs("user_id")&"' title='\n　号码："&rs("user_id")&"　\n　昵称："&rs("name")&"　\n' src='image/face/"&rs("face")&".gif' width='32' height='32' class='face' onMouseDown=this.className='face-2' onMouseUp=this.className='face-1' onMouseOver=this.className='face-1' onMouseOut=this.className='face' onDblClick=show('"&rs("user_id")&"');this.src='image/face/"&rs("face")&".gif'>"&_
		 "</td></tr><tr><td height='18' align='center'>"&uname&"</td></tr>"
		 else
         flist=flist&"<tr><td align='center'>"&_
		 "<img id='f"&rs("user_id")&"' title='\n　号码："&rs("user_id")&"　\n　昵称："&rs("name")&"　\n' src='image/face/"&rs("face")&".gif' width='32' height='32' class='face-a' onMouseDown=this.className='face-c' onMouseUp=this.className='face-b' onMouseOver=this.className='face-b' onMouseOut=this.className='face-a' onDblClick=show('"&rs("user_id")&"');this.src='image/face/"&rs("face")&".gif'>"&_
		 "</td></tr><tr><td height='18' align='center'>"&uname&"</td></tr>"
		 end if
		rs.movenext
		next
flist="<table width='85' border='0' cellspacing='1' cellpadding='0'>"&folist&flist&"</table>"
if flist<>session("oldflist") then
session("oldflist")=flist
response.Write("<SCRIPT LANGUAGE=javascript>parent.list.div1.innerHTML="&chr(34)&flist&chr(34)&";</script>")
end if
else
lcount=lcount+1
session("lcount")=lcount
if application("pubmsg")<>"" and application("pubmsg")<>session("puhmsg") then
session("puhmsg")=application("pubmsg")
response.Write("<SCRIPT LANGUAGE=javascript>parent.psd.src='sound/04.wav';parent.pubmsg.src='image/skin/4-1.gif';</SCRIPT>")
else
sql="select top 1 sendnmb,ifknow,msgtype from msg where recvnmb='"&nmb&"' and ifknow=1"
rs.Open sql,conn,1,3
if not rs.EOF then
if rs("msgtype")=1 then
session("ifpubmsg")=true
response.Write("<SCRIPT LANGUAGE=javascript>parent.psd.src='sound/04.wav';parent.pubmsg.src='image/skin/4-1.gif';</SCRIPT>")
else
if session("refresh")=true then
sendnmb=rs("sendnmb")
session(sendnmb)=true
rs("ifknow")=false
rs.update
if instr(session("oldflist"),"id='f"&sendnmb&"'",1) then
response.Write("<SCRIPT LANGUAGE=javascript>parent.psd.src='sound/03.wav';parent.list.f"&sendnmb&".src='image/skin/dhead.gif';</SCRIPT>")
elseif instr(session("mslist"),sendnmb) then
response.Write("<SCRIPT LANGUAGE=javascript>parent.psd.src='sound/03.wav';parent.list.ms"&sendnmb&".src='image/skin/dhead.gif';</SCRIPT>")
else
session("mslist")=session("mslist")&sendnmb&","
rs.close
sql="select user_id,name,face,online from friend,userinfo where user_id="&sendnmb
rs.open sql,conn,3,3
		 uname=rs("name")
		 if len(uname)>6 then uname=left(uname,6)&".." 
otherlist="<table width='85' border='0' cellspacing='1' cellpadding='0'><tr><td align='center'>"&_
		 "<img id='ms"&rs("user_id")&"' src='image/skin/dhead.gif' class='face' onMouseDown=this.className='face-2' onMouseUp=this.className='face-1' onMouseOver=this.className='face-1' onMouseOut=this.className='face' onDblClick=show('"&rs("user_id")&"');this.src='image/face/"&rs("face")&".gif'>"&_
		 "</td></tr><tr><td height='18' align='center'>"&uname&"</td></tr></table>"
response.Write("<SCRIPT LANGUAGE=javascript>parent.list.div2.innerHTML=parent.list.div2.innerHTML+"&chr(34)&otherlist&chr(34)&";parent.psd.src='sound/04.wav';</script>")
end if
else
response.Write("<SCRIPT LANGUAGE=javascript>parent.psd.src='sound/03.wav';</SCRIPT>")
end if
end if
end if
end if
end if
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -