ession.asp 仿MOP对开式论坛程序 1.0源码程序 - ASP源码程序

www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > session.asp

    <%@language="VBScript"%>
<!--#include file="title.asp"-->
<%
contents=contents &"<title>密信监测－"& caption &"</title>"&_
"</head>"&_
"<body>"
if gbmaduser<>"" and Right(validate,Len(gbmaduser))=gbmaduser then
rs.Open "online Where gbmaduser='"& gbmaduser &"'",conn,1,3
if rs.Eof then
rs.AddNew
rs("gbmaduser")=gbmaduser
end if
rs("lasttime")=Now()
if gb<30 then rs("unshow")=0
rs.Update
rs.Close
if gb>29 then
rs.Open "Select id From message Where gbmaduser='"& gbmaduser &"'",conn,1,1
if Not rs.Eof then
contents=contents &"<Script Language=""JavaScript"">setTimeout(""location.href='session.asp'"",480000);window.open(""showmessage.asp"" ,""gbmadmessage"",""scrollbars=yes,top=20,left=20,width=470,height=300"");</script><bgsound src="""& theme &"你有新的消息.mp3"" loop=""1"">"
else
contents=contents &"<Script Language=""JavaScript"">setTimeout(""location.href='session.asp'"",80000);</script>"
end if
rs.Close
else
contents=contents &"<Script Language=""JavaScript"">setTimeout(""location.href='session.asp'"",80000);</script>"
end if
end if
%>
<!--#include file="bottom.asp"-->