login.asp

ASP整套的建站源代码

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

case "add"



username=Trim(Request("username"))
userpass=Request("userpass")
if username="" then
message=message&"<li>用户名没有输入"
end if
if userpass="" then
message=message&"<li>密码没有输入"
end if
if instr(username," ")>0 then:error("<li>非法操作"):end if
sql="select * from user where username='"&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
if Request("url")="" or instr(Request("url"),"login.asp")>0 then
url="index.asp"
else
url=""&Request("url")&""
end if
succtitle="登陆成功"
message=message&"<li><a href="&url&">"&url&"</a><li><a href=index.asp>返回论坛首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url="&url&">")

case "out"
conn.execute("delete from [online] where username='"&Request.Cookies("username")&"' and ip='"&remoteaddr&"'")
Response.Cookies("username")=""
Response.Cookies("userpass")=""
Response.Cookies("eremite")="0"
Response.Cookies("eremite").Expires=date+3650
succtitle="已经成功退出"
message=message&"<li><a href=javascript:window.close()>关闭窗口</a><li><a href=index.asp>社区首页</a>"
succeed(""&message&"<script>setTimeout('close()',3000);</script>")

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

end select

top
%>
<title>登陆社区</title>
<table width=750 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="index.asp"><%=clubname%></a><br>
&nbsp;<img height=15 src="images/coner.gif" width=15><img src="images/openfold.gif">　登陆社区</font></td>
</tr>
</table>
<form action="login.asp" method="post">
<input type="hidden" value="add" name="menu">
<input type="hidden" value="<%=Request.ServerVariables("HTTP_REFERER")%>" name="url">
<TABLE cellSpacing=0 cellPadding=0 width=333 align=center bgColor=a4b6d7
border=0 style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
<TR>
<TD style="border-right: 0px none; border-top: 0px none">
<TABLE cellSpacing=1 cellPadding=6 width="100%" border=0 style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none">
<TBODY></TBODY></TABLE></TD></TR></TABLE>
<table width="333" border="1" cellspacing="0" cellpadding="2" align="center" bordercolor=ACABC4 style="border-left:0px none; border-top:0px none; border-bottom:1px none; border-collapse: collapse">
<tr bgcolor=ACABC4>
<td background=images/title_sub.gif width="328" style="border-right: 0px none; border-top: 0px none" height="25"><div align="center">
<font color="#000000">登陆社区</font></div>
</td></tr><tr>
<td height="19" width="328" valign="top" bgcolor="#F2F8FF" style="border-right: 0px none; border-top: 0px none">
<div align="center">用户名称:
<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">
</div></td></tr> </form></table><br><center><a href=javascript:history.back()>BACK </a><br>
<%htmlend%>