📄 f3.asp
字号:
<!--#include file="../config/config.asp"-->
<%Response.Buffer=true
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires=0
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
t=s & ":" & f & ":" & m
sj=n & "-" & y & "-" & r & " " & t
savetime=Session("hxf_u_savetime")
if DateDiff("n",savetime,sj)>=15 then
Response.Write "<script Language=Javascript>parent.f3.location.href='savevalue.asp';</script>"
Response.End
end if
online=Application("hxf_c_onlinelist")
s=0
for i=1 to UBound(online) step 6
if Application("hxf_c_disnewuser")<>1 and online(i+1)=lyy then
s=1
end if
next
shumu=Application("hxf_c_chatrs")-s
%>
<script Language="JavaScript">
if(parent.document.URL.indexOf("file:")>=0||parent.f2.document.URL.indexOf("file:")>=0){parent.location.href='chaterr.asp?id=001';}
//parent.f3.document.open();
parent.md1();
parent.f3.document.writeln("<font color=red class=p9><b><%=shumu%></b></font><font color=00FFFF class=p9>(<%=Application("hxf_c_active")%>)<font color=ffffff class=p9>人在线</font></font><br></div>");
parent.md2();
//parent.ma("<%=amn%>","");
<%for i=1 to UBound(online) step 6
if Application("hxf_c_disnewuser")=1 or online(i+1)<>lyy then
Response.Write "parent.tma(" & chr(34) & online(i+1) & chr(34) & "," & chr(34) & online(i+3)& chr(34) & ",'"&online(i+2)&"');"& chr(13) & chr(10)
end if
next%>
parent.md3();
setTimeout("this.location.reload();",128000);
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -