login.asp

感谢您使用BBSXP

<!-- #include file="Setup.asp" -->
<!-- #include file="inc/MD5.asp" -->
<%
top

select case Request("menu")

case "password"


%>



<table border=0 width=100% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → 验证密码</td>
</tr>
</table>
<br>
<table width="333" border="0" cellspacing="1" cellpadding="2" align="center" class=a2>

<form action="Login.asp" method="POST">
<input type="hidden" value="passwordok" name="menu">
<input type="hidden" value="<%=Request("url")%>" name="url">
<tr>
<td width="328" height="25" align="center" class=a1>
登录论坛
</td></tr><tr>
<td height="19" width="328" valign="top" align="center" class=a3>
通行密码: <input type="password" size="15" name="password"><br>

<input type="submit" value=" 登录 ">　<input type="reset" value=" 取消 ">
</td></tr> </form></table>

<br>
<center>
<a href=javascript:history.back()>BACK </a><br>


<%
htmlend
case "passwordok"
Response.Cookies("password")=Request("password")
response.redirect Request("url")

case "add"


url=Request("url")
UserName=HTMLEncode(Trim(Request.Form("UserName")))
Userpass=md5(Trim(Request.Form("Userpass")))
if UserName=empty then error("<li>用户名没有输入")

sql="select * from [BBSXP_Users] where UserName='"&UserName&"'"
Set Rs1=Conn.Execute(SQL)
if rs1.eof then error("<li>此用户名还未注册")
if rs1("membercode")=0 then error("<li>您的帐号尚未激活")

if Len(rs1("Userpass"))<16 then
if Request("Userpass")<>rs1("Userpass") then error("<li>您输入的密码错误")
Conn.execute("update [BBSXP_Users] set Userpass='"&Userpass&"' where UserName='"&UserName&"'")
elseif Len(rs1("Userpass"))=16 then
mdfive=16
if md5(Request("Userpass"))<>rs1("Userpass") then error("<li>您输入的密码错误")
Conn.execute("update [BBSXP_Users] set Userpass='"&Userpass&"' where UserName='"&UserName&"'")
else
if Userpass<>rs1("Userpass") then error("<li>您输入的密码错误")
end if

Response.Cookies("UserName")=rs1("UserName")
Response.Cookies("Userpass")=Userpass
Response.Cookies("eremite")="0"
if Request("eremite")="1" then Response.Cookies("eremite")="1"
if Request("xuansave")=1 then
Response.Cookies("eremite").Expires=date+365
Response.Cookies("UserName").Expires=date+365
Response.Cookies("Userpass").Expires=date+365
end if

if ""&url&""<>"" and instr(url,"Login.asp")=0 and instr(url,"Left.asp")=0 then
response.redirect url
else
response.write "<SCRIPT>top.location='Default.htm';</SCRIPT>"
end if


case "out"
Conn.execute("Delete from [BBSXP_UsersOnline] where sessionid='"&session.sessionid&"'")
Response.Cookies("UserName")=""
Response.Cookies("Userpass")=""
succtitle="已经成功退出"
Message=Message&"<li><a href=Default.asp>社区首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=3;url=Default.asp>")

end select
%>
<table border=0 width=100% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> →  登录社区</td>
</tr>
</table><br>
<table width="333" border="0" cellspacing="1" cellpadding="2" align="center" class=a2>

<form action="Login.asp" method="POST">
<input type="hidden" value="add" name="menu">
<input type="hidden" value="<%=Request.ServerVariables("HTTP_REFERER")%>" name="url">
<tr>
<td width="328" height="25" align="center" class=a1>
登录社区
</td></tr><tr>
<td height="19" width="328" valign="top" align="center" class=a3>
用户名称:
<input size="15" name="UserName" value="<%=Request.Cookies("UserName")%>">&nbsp; <a href="CreateUser.asp">没有注册?</a><br>
用户密码: <input type="password" size="15" value name="Userpass">&nbsp;
<a href="RecoverPasswd.asp">忘记密码?</a><br>

<input type="checkbox" value="1" name="xuansave" id="xuansave"><label for="xuansave">记住密码</label>

<input type="checkbox" value="1" name="eremite" id="eremite"><label for="eremite">隐身登录</label><br>
<input type="submit" value=" 登录 ">　<input type="reset" value=" 取消 ">
</td></tr> </form></table>

<br>
<center>
<a href=javascript:history.back()>BACK </a><br>


<%htmlend%>