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

www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > index.asp
    <%@language="VBScript"%>
<!--#include file="title.asp" -->
<!--#include file="sub.asp" -->
<%
Dim i,savecookies
savecookies=Request.Cookies(bbssn)("savecookies")
if gbmaduser<>"" and userpwd<>"" then
rs.Open "Select userpwd,gbmadadmin,gb,logintime,loginip,lasttime,lastip From gbmaduser Where gbmaduser='"& gbmaduser &"'",conn,1,3
if Not rs.Eof then
if rs("userpwd")=userpwd then
if Datediff("s",rs("logintime"),now())>addgbinterval then rs("gb")=rs("gb")+addgb
if rs("loginip")<>ip then
rs("lasttime")=rs("logintime")
rs("lastip")=rs("loginip")
rs("loginip")=ip
end if
rs("logintime")=now()
rs.Update
gb=rs("gb")
Response.Cookies(bbssn)("imprison")=""
Session.Contents.Remove "bbsadmin"
if savecookies="yes" then Response.Cookies(bbssn).expires=Date()+365
Response.Cookies(bbssn)("gb")=gb
if Not IsNull(rs("gbmadadmin")) then Session("bbsadmin")=rs("gbmadadmin")
rs.Close
rs.Open "Delete From imprison Where endtime<#"& Now() &"#",conn,1,3
if gb<1 then
Response.Cookies(bbssn)("imprison")=7
Response.Cookies(bbssn)("validate")=creatvalidate(gb+7,ip)
else
rs.Open "imprison Where gbmaduser='"& gbmaduser &"'",conn,1,1
if Not rs.Eof then
Response.Cookies(bbssn)("imprison")=rs("imprison")
Response.Cookies(bbssn)("validate")=creatvalidate(gb+rs("imprison"),ip)
else
Response.Cookies(bbssn)("validate")=creatvalidate(gb,ip)
end if
rs.Close
end if
rs.Open "Delete From online Where lasttime<#"& Date() &" "& TimeValue(TimeSerial(Hour(Time()),Minute(Time())-10,Second(Time()))) &"# or lasttime<=#"& Date() &"#",conn,1,3
else
Response.Cookies(bbssn)("username")=""
Response.Cookies(bbssn)("password")=""
Response.Cookies(bbssn)("gb")=""
Response.Cookies(bbssn)("imprison")=""
Response.Cookies(bbssn)("validate")=""
Session.Contents.Remove "bbsadmin"
end if
else
Response.Cookies(bbssn)("username")=""
Response.Cookies(bbssn)("password")=""
Response.Cookies(bbssn)("gb")=""
Response.Cookies(bbssn)("imprison")=""
Response.Cookies(bbssn)("validate")=""
Session.Contents.Remove "bbsadmin"
end if
else
Response.Cookies(bbssn)("username")=""
Response.Cookies(bbssn)("password")=""
Response.Cookies(bbssn)("gb")=""
Response.Cookies(bbssn)("imprison")=""
Response.Cookies(bbssn)("validate")=""
Session.Contents.Remove "bbsadmin"
end if
contents=contents &"<title>"& caption &"</title>"&_
"<meta http-equiv=""keywords"" content=""时尚论坛, 时尚生活, 休闲情趣, 时尚杂志"">"&_
"</head>"&_
"<frameset rows=""30,*"" framespacing=""2"" frameborder=""yes"" border=""2"" bordercolor=""#"& framesetcolor &""">"&_
"<frame src=""top.asp"" name="""& bbssn &"top"" frameborder=""no"" scrolling=""no"" noresize>"&_
"<frame src=""body.asp?"& Request.QueryString &""" name="""& bbssn &"body"" frameborder=""no"" scrolling=""auto"" noresize>"&_
"<noframes><body>"&_
"<a href=""body.asp"" style=""visibility:hidden"">你没事看源文件做什么？<br>嘿嘿，有事直接找我就好嘛.</a><br><a href=""http://www.microsoft.com/windows/ie_intl/cn/default.asp"">请使用Internet Explorer浏览器</a><br><a href=""http://www.microsoft.com/windows/ie/default.asp"">Please use the browser of Internet Explorer</a></body></noframes>"&_
"</frameset>"&_
"</html>"
Response.Write contents
call connclose
%>