📄 auto.asp
字号:
<!--#include File="function.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>主动刷新窗口</title>
<base target="_self">
<meta http-equiv=refresh content='5;url=auto.asp'>
</head>
<body>
<script language=javascript>
<!--
<%
Dim Str_TimeWillOut,i,StrMsg,PicURL,UserName
If Session("NickName")="" Then
%>
//parent.r1.location="0.htm";
--></script></body></html>
<%
Response.End
End If
If HowLong(Session("OldTime")) >TimeWillOut Then
If HowLong(Session("OldTime")) >TimeOut Then%>
parent.Msg.document.write("<%=Str_TimeOut%>");
<% PicURL=Left(Session("NickName"),2)
UserName=Replace(Session("NickName"),PicURL,"")
PicURL=PicURL&".gif"
Application.Lock()
Application("UserListStr")=Replace(Application("UserListStr"),","&Session("NickName")&",",",")
Application.UnLock()
Session("NickName")="" %>
parent.UserList.history.go(0);
--></script></body></html>
<%Response.End
End If
Str_TimeWillOut="<div style='font-size:12px'><b>[警告]</b>"&(TimeOut-HowLong(Session("OldTime")))&"秒内再不发言，会被踢出去的</div>"
%>
parent.Msg.document.write("<%=Str_TimeWillOut%>");
<%End If
If Session("ID")<>Application("ID") then
For i = 1 to Application("ID")-Session("ID")
StrMsg=Application(YuShu((Session("ID")+i)))
If Left(StrMsg,8)<>"$OnlyTo$" Then%>
parent.Msg.document.write("<div style='font-size:12px'><%=StrMsg%></div>");
<% Else
PicURL=Left(Session("NickName"),2)
UserName=Replace(Session("NickName"),PicURL,"")
PicURL=PicURL&".gif"
If InStr(StrMsg,"$"&UserName&"$")<>0 Then
StrMsg=Replace(StrMsg,"$OnlyTo$"&UserName&"$","")
StrMsg="<b>[密谈]</b>"&StrMsg
%>
parent.Msg.document.write("<div style='font-size:12px'><%=StrMsg%></div>");
<% End If
End If
Next
End IF
session("ID")=Application("ID")
If Session("IsAuto")<>0 Then%>
parent.Msg.window.scrollTo( 0, 10000);
<%End If%>
-->
</script>
</Body>
</Html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -