f3.asp

此程序为网上下载

<%@ codepage ="936" %>
<%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")
amn=Application("wsaxhxf_c_automanname")
'if DateDiff("n",savetime,sj)>=10 then
' Response.Write "<S" & "cript Language=Javascript>"
' Response.Write "parent.f3.location.href='savevalue.asp';"
' Response.Write "<" & "/script>"
' Response.End
'end if
online=Application("wsaxhxf_c_onlinelist")%>
<Script Language="JavaScript">
parent.f3.document.open();
parent.md1();
parent.f3.document.writeln("<font color=red><b><%=Application("wsaxhxf_c_chatrs")%></b></font><font color=blue style=\"font-size:10.5pt\"></span>人在线</font><br></div>");
parent.md2();
<%for i=1 to UBound(online) step 8
nosay=DateDiff("n",online(i+7),sj)
Response.Write "parent.ma(" & chr(34) & online(i+1) & chr(34) & "," & chr(34) & online(i+3) & chr(34) & "," & chr(34) & nosay & chr(34) & ");"
next%>
parent.md3();
//function re(){this.location.reload();}var tid=null;tid=setTimeout('re()',100000);
</Script>