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"-->