login.asp

一个超市管理系统

<!-- #include file="setup.asp" -->
<%
select case Request("menu")

case "add"



username=Request("username")
userpass=Request("userpass")
if username="" then
message=message&"<li>用户名没有输入"
end if
if userpass="" then
message=message&"<li>密码没有输入"
end if


sql="select * from user where username='"&HTMLEncode(username)&"'"
rs.Open sql,Conn
if rs.eof then
message=message&"<li>此用户名还未<a href=register.asp?username="&username&">注册</a>"
error(""&message&"")
end if
if userpass<>rs("userpass") then
message=message&"<li>您输入的密码错误"
end if
if message<>"" then
error(""&message&"")
end if
Response.Cookies("username")=username
Response.Cookies("userpass")=userpass
Response.Cookies("eremite")="0"
if Request("eremite")="1" then
Response.Cookies("eremite")="1"
end if
Response.Cookies("eremite").Expires=date+365
if Request("xuansave")=1 then
Response.Cookies("username").Expires=date+365
Response.Cookies("userpass").Expires=date+365
end if

response.write "<SCRIPT>top.location='Default.asp';</SCRIPT>"

case "out"
conn.execute("delete from [online] where username='"&Request.Cookies("username")&"' and ip='"&remoteaddr&"'")
Response.Cookies("username")=""
Response.Cookies("userpass")=""
succtitle="已经成功退出"
message=message&"<li><a href=Default.asp?menu=listtitle>社区首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=Default.asp?menu=listtitle>")

case "pass"
Response.Cookies("pass")=""&Request("pass")&""
succtitle="正在验证通行密码..."
message=message&"<li><a href=ShowForum.asp?forumid="&Request("forumid")&">ShowForum.asp?forumid="&Request("forumid")&"</a><li><a href=Default.asp?menu=listtitle>返回论坛首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=ShowForum.asp?forumid="&Request("forumid")&">")

end select

top
%>
<title>登陆社区</title>
<table width=97% align="center" border="0">
<tr>
<td vAlign="top" width="30%"><img src="images/logo.gif" border="0"></td>
<td vAlign="center" align="top">&nbsp;<font color=#000000><img src="images/closedfold.gif" width="14" height="14">　<a href=Default.asp?menu=listtitle><%=clubname%></a><br>
&nbsp;<img height=15 src="images/coner.gif" width=15><img src="images/openfold.gif">　登陆社区</font></td>
</tr>
</table>


<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>
<font color="#000000">登陆社区</font>
</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="register.asp">没有注册?</a><br>
用户密码: <input type="password" size="15" value name="userpass">&nbsp;
<a href="modification.asp">忘记密码?</a><br>
<input type="checkbox" value="1" name="xuansave">记住密码&nbsp;
<input type="checkbox" value="1" name="eremite">隐身登陆<br>
<input type="submit" value=" 登陆 " name="Submit1">　<input type="reset" value=" 取消 " name="Submit">
</td></tr> </form></table>


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

<%htmlend%>