user_login.asp

是一个完整的留言板源代码

<!--#include file="config.asp"-->
<!--#include file="pub.asp"-->
<!--#include file="MD5.asp"-->
<%
comeurl=request("url")
if comeurl="" then comeurl="index.asp"
lg=Trim(Replace(Request.form("lg"),"'",""))
if lg<>"" then 
dim userName,userpwd,isvip
userName=Trim(Replace(Request.form("userName"),"'",""))
userPwd=MD5(Trim(Replace(Request.form("userPwd"),"'","")))
ChkUser
else
%>
<!--#include file="header.asp"-->
<div align="center">
<form method="post">
<input type="hidden" name="lg" value="True">

<center>
<table class="table0" cellSpacing="1" cellPadding="0" width="300" border="0"><tbody>
<tr>
<td align="center" width="100%" height="26" onmouseover="javascript:this.bgColor='#fff0ff'" onmouseout="javascript:this.bgColor='#f8ffff'" bgColor=#f8ffff>&nbsp;&nbsp;  
用户名称：<input style="border:1pt dotted #cccccc" type="text" name="userName" size="20" maxlength="20">  
  
</td>  
</tr>  
<tr>  
<td align="center" width="100%" height="26" onmouseover="javascript:this.bgColor='#fff0ff'" onmouseout="javascript:this.bgColor='#f8ffff'" bgColor=#f8ffff>&nbsp;&nbsp;  
用户密码：<input style="border:1pt dotted #cccccc"  type="password" name="userPwd" size="20">  
</td>  
</tr>  
<tr>  
<td align="center" width="100%" height="26" onmouseover="javascript:this.bgColor='#fff0ff'" onmouseout="javascript:this.bgColor='#f8ffff'" bgColor=#f8ffff>&nbsp;&nbsp;  
<input style="border:1pt dotted #cccccc;background-color:#ffffff;width=50px;"  type="submit"  value="确定">  
        <input style="border:1pt dotted #cccccc;background-color:#ffffff;width=50px"  type="reset"  value="重写"> &nbsp;[&nbsp;<A href="index.asp">返回留言首页</A>&nbsp;]  
</td>  
</tr>  
  
</table>  
</center>  
</div>  
<CENTER><BR></CENTER>        
<%end if  
Bottom  
  
Function ChkUser  
set user=conn.execute("SELECT * FROM gb where name='"&userName&"' and psw='"&userPwd&"'")  
if not user.eof then  
Response.Cookies(ck&"2")("userName")=userName  
Response.Cookies(ck&"2")("userPwd")=userPwd  
Response.Redirect comeurl  
response.end  
Else  
   response.write "<script language='javascript'>"  
   response.write "alert('非法登陆：用户名或密码错误！');"  
   response.write "history.go(-1);"  
   response.write "</script>"  
   Response.End  
End IF  
End Function  
%>