www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > login.asp
<!--#include file="title.asp"--> <!--#include file="code.asp"--> <!--#include file="sub.asp"--> <% contents=contents &"<title>登陆/注册-"& caption &"</title>"&_ "</head>"&_ "<body>"&_ ""&_ "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">"&_ "<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">登陆/注册</td></tr>"&_ "<tr class=""tds""><td class=""tdc"">" Dim url,validatecode,result,autologin,i result=Request.QueryString("result") if IsNumeric(result) then result=Clng(result) else result=5 end if url=Request.Form("url") if url="" then url=Request.ServerVariables("HTTP_REFERER") if gbmaduser="" then gbmaduser=Server.HTMLEncode(Trim(Replace(Replace(Request.Form("username"),"'",""),"""",""))) if userpwd="" then userpwd=Trim(Request.Form("password")) validatecode=Request.Form("validatecode") autologin=Request.Form("autologin") if gbmaduser<>"" and userpwd<>"" then rs.Open "gbmaduser Where gbmaduser='"& gbmaduser &"'",conn,1,3 if rs.Eof then if unreg<>"" then contents=contents &"不存在的用户名,登陆/注册失败。<br>引起该错误的原因可能是:"& unreg &"<br>请关注论坛信息,等待开放注册时间。<br>如果你只是输错用户名<a href=""JavaScript:history.back();"">请返回重新输入用户名</a>后再试。" else if Instr(LCase(gbmaduser),"|")>0 or Instr(LCase(gbmaduser),"%")>0 or Instr(LCase(gbmaduser),"?")>0 or Instr(LCase(gbmaduser),"&")>0 or Instr(LCase(gbmaduser),"#")>0 or Instr(LCase(gbmaduser),"+")>0 or Instr(LCase(gbmaduser),"=")>0 or Instr(LCase(gbmaduser),"/")>0 or Instr(LCase(gbmaduser),"\")>0 then call connclose Response.Redirect "login.asp?result=3" end if unname=Split(unname,"|") For i=0 to Ubound(unname) if Instr(LCase(gbmaduser),unname(i))>0 then call connclose Response.Redirect "login.asp?result=4" end if Next rs.AddNew rs("gbmaduser")=gbmaduser rs("userpwd")=pwdtocode(userpwd) rs("gb")=reggb rs("regtime")=Now() rs("information")="{gb|mad}{gb|mad}{gb|mad}{gb|mad}{gb|mad}{gb|mad}{gb|mad}{gb|mad}{gb|mad}" rs("logintime")=Now() rs("loginip")=ip rs("lasttime")=Now() rs("lastip")=ip rs("topicpiece")=0 rs("replypiece")=0 rs.Update Response.Cookies(bbssn)("imprison")="" Session.Contents.Remove "bbsadmin" if autologin<>"" then Response.Cookies(bbssn).expires=Date()+365 Response.Cookies(bbssn)("savecookies")="yes" Response.Cookies(bbssn)("username")=gbmaduser Response.Cookies(bbssn)("password")=rs("userpwd") Response.Cookies(bbssn)("gb")=reggb Response.Cookies(bbssn)("validate")=creatvalidate(reggb,ip) rs.Close rs.Open "Delete From online Where lasttime<#"& Date() &" "& TimeValue(TimeSerial(Hour(Time()),Minute(Time())-10,Second(Time()))) &"# or lasttime<=#"& Date() &"#",conn,1,3 contents=contents &"<Script Language=""JavaScript"">window.open(""top.asp"","""& bbssn &"top"");window.open(""search.asp"","""& bbssn &"search"");</Script>注册成功,"& gbmaduser &","& caption &"欢迎你" contents=contents &"<br>你是初次登陆,请<a href=""pwdsafe.asp"" onClick=""return showb(this.href);"">点击这里来完成密码保护</a>,以防止你的密码丢失。<br>如果你想让更多的朋友了解你,请<a href=""userinfo.asp"" onClick=""return showb(this.href);"">点击这里完善你的个人资料</a>。<tr></tr>"&_ "<tr class=""tds""><td>"&_ "<table border=""0"" cellspacing=""0"" cellpadding=""0"" width=""100%"" height=""300"">"&_ "<tr>"&_ "<td align=""center""><a href=""service.asp"" >进入个人控制面版</a></td>"&_ "</tr>"&_ "<tr>"&_ "<td align=""center""><a href=""sendmessage.asp?username=admin"" >如果有需要请随时联系管理员</a></td>"&_ "</tr><p>" if url="out" then Response.Redirect "body.asp" end if else if rs("userpwd")=pwdtocode(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 autologin<>"" then Response.Cookies(bbssn).expires=Date()+365 Response.Cookies(bbssn)("savecookies")="yes" Response.Cookies(bbssn)("username")=gbmaduser Response.Cookies(bbssn)("password")=rs("userpwd") 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 contents=contents &"<Script Language=""JavaScript"">window.open(""top.asp"","""& bbssn &"top"");window.open(""search.asp"","""& bbssn &"search"");</Script>登陆成功,<b>"& gbmaduser &"</b>,"& caption &"欢迎你<tr></tr>"&_ "<tr class=""tds""><td>"&_ "<table border=""0"" cellspacing=""0"" cellpadding=""0"" width=""100%"" height=""300"">"&_ "<tr>"&_ "<td align=""center""><a href=""service.asp"" >进入个人控制面版</a></td>"&_ "</tr>"&_ "<tr>"&_ "<td align=""center""><a href=""sendmessage.asp?username=admin"" >如果有需要请随时联系管理员</a></td>"&_ "</tr><p>" if url="out" then Response.Redirect "body.asp" else rs.Close call connclose Response.Redirect "login.asp?result=2" end if end if else if result=1 then contents=contents &"你输入的验证码不正确,请<a href=""JavaScript:history.back();"">重新输入验证码</a>后再试。" elseif result=2 then contents=contents &"你输入的用户名和密码不匹配,请<a href=""JavaScript:history.back();"">重新输入密码</a>后再试。<br>如果你忘记了密码请<a href=""pwdreset.asp"">点击这里找回密码</a>。" elseif result=3 then contents=contents &"你输入的用户名中含有非法字符<font class=""del"">|、%、?、&、#、+、=、/、\</font>,请<a href=""JavaScript:history.back();"">重新输入用户名</a>后再试。" elseif result=4 then contents=contents &"你输入的用户名中含有以下系统禁止注册的文字中的一个或多个:<font class=""del"">"& Replace(unname,"|","、") &"</font>。<br>请<a href=""JavaScript:history.back();"">重新输入用户名</a>后再试。" elseif gbmaduser<>"" and userpwd<>"" then contents=contents &"你已经登陆了,请<a href=""logout.asp"">退出</a>后再登陆。" else contents=contents &"欢迎您来到本站,请您尊重以下内容:"&_ "<br><p>下列内容绝对禁止发布,违者本站将上报公安机关予以立案调查:"&_ "<br><p>(一) 煽动抗拒,破坏宪法和法律,行政法规实施的信息;"&_ "<br><p>(二) 煽动颠覆国家政权,推翻社会主义制度的信息;"&_ "<br><p>(三) 煽动分裂国家,破坏国家统一的信息;"&_ "<br><p>(四) 煽动民族仇恨,民族歧视,破坏民族团结的信息;"&_ "<br><p>(五) 捏造或者歪曲事实,散布谣言,扰乱社会秩序的信息;"&_ "<br><p>(六) 宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀恐怖、教唆犯罪的信息;"&_ "<br><p>(七) 公然侮辱他人或者捏造事实诽谤他人的信息;"&_ "<br><p>(八) 损害国家机关信誉的信息;"&_ "<br><p>(九) 其他违反宪法和法律,行政法规的信息;"&_ "<br><p>(十) 危害国家安全、泄露国家秘密的信息。"&_ "</td></tr>"&_ "<tr class=""tds""><td>"&_ "<Script Language=""JavaScript"">"&_ "function validinput()"&_ "{"&_ "if (document.login.username.value.length==0)"&_ "{"&_ "alert(""还没输入用户名呢。"");"&_ "document.login.username.focus();"&_ "return false;"&_ "}"&_ "if (document.login.password.value.length==0)"&_ "{"&_ "alert(""还没输入密码呢。"");"&_ "document.login.password.focus();"&_ "return false;"&_ "}"&_ "if (document.login.username.value==document.login.password.value)"&_ "{"&_ "alert(""我想你最好还是不要用和用户名一样的密码,因为这样很可能被别人使用你的用户名登陆系统。"");"&_ "document.login.password.focus();"&_ "return false;"&_ "}"&_ "}"&_ "</Script>"&_ "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""240"" align=""center"">"&_ "<form name=""login"" onsubmit=""return validinput();"" method=""post"" action=""login.asp"">"&_ "<tr><td width=""60"" align=""right"">用 户 名:</td><td width=""180"" valign=""top""> <input name=""username"" type=""text"" maxlength=""20"" size=""20"" class=""iptwin""></td></tr>"&_ "<tr><td align=""right"">密 码:</td><td valign=""top""> <input name=""password"" type=""password"" size=""21"" maxlength=""50"" class=""iptwin""></td></tr>"&_ "<tr><td align=""right"">记住密码:</td><td valign=""top""> <input type=""checkbox"" name=""autologin"" value=""yes""> <input type=""hidden"" name=""url"" value="""& url &"""><input type=""submit"" value=""登录/注册"" class=""out"" onmouseover=""this.className='over'"" onmouseout=""this.className='out'""></td></tr>"&_ "</form>"&_ "</table>" end if end if contents=contents &"</td></tr>"&_ "</table>"&_ "" %> <!--#include file="bottom.asp"-->