📄 slt.asp

📁 此程序为网上下载

💻 ASP

字号:

<%@ LANGUAGE=VBScript.Encode codepage ="936" %>
<%Response.Expires=0
if Session("xf_sl_ok")<>"1" then
 Response.Write "你现在不能查看私聊！"
 Response.End
end if
titlecolor=Application("wsaxhxf_c_titlecolor")
Response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
Response.Write "<style type=text/css>.p{font-size:9pt}body{font-size:10.5pt}</style></head>"
Response.Write "<body bgcolor='" & titlecolor & "'><div align=center><font class=p>" & Application("wsaxhg_title") & "</font><br><font color=blue>" & Application("wsaxhxf_c_title") & "</font></div>"
Response.Write "<script Language='JavaScript'>"
sd=Application("wsaxhxf_c_sd")
userline=int(Session("hxf_u_line"))
newuserline=0
Dim show()
j=1
for i=1 to 180 step 9
 newuserline=sd(i)
 if sd(i)>userline 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
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 "function re(){this.location.reload();}var tid=null;tid=setTimeout('re()',3000);"
if newuserline>userline then Session("hxf_u_line")=int(newuserline)
Response.Write "</script></body></html>"
Response.End%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -