login.asp

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

<!--#include file="config.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="pub.asp"-->


<%
myname= request.cookies(ck&"2")("adminname")
mypass= request.cookies(ck&"2")("adminpsw")
%>

<%
IF Request("POST")="True" Then
ChkAdminLog
End IF
%>
<!--#include file="header.asp"-->
<div align="center">
<form method="post">
<input type="hidden" name="POST" value="True">
<center>
<table class="table0" cellSpacing="1" cellPadding="0" width="320" border="0"><tbody>
<tr>        
<td width="100%" height="26" onmouseover="javascript:this.bgColor='#ffe0ff'" onmouseout="javascript:this.bgColor='#f8ffff'" bgColor=#f8ffff>&nbsp;&nbsp;                                  
管理帐号：<input type="text" name="LogName" size="22" maxlength="20" value=<%=myname%>>
</td>                            
</tr>                            
<tr>                            
<td width="100%" height="26" onmouseover="javascript:this.bgColor='#ffe0ff'" onmouseout="javascript:this.bgColor='#f8ffff'" bgColor=#f8ffff>&nbsp;&nbsp;                                  
管理密码：<input  type="password" name="LogPwd" size="23" maxlength="50" value=<%=mypass%>>                            
</td>                            
</tr>                            
<tr>                            
<td align="center" width="100%" height="26" onmouseover="javascript:this.bgColor='#ffe0ff'" onmouseout="javascript:this.bgColor='#f8ffff'" bgColor=#f8ffff>                
                            
</span></font>                            
</td>                            
</tr>                            
<tr>                            
<td align="center" width="100%" height="26" onmouseover="javascript:this.bgColor='#ffe0ff'" onmouseout="javascript:this.bgColor='#f8ffff'" bgColor=#f8ffff>                
<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>                            
<%                            
Bottom                                     
Function ChkAdminLog                            
 IF Trim(Replace(Request("LogName"),"'",""))=LogName and md5(Trim(Replace(Request("LogPwd"),"'","")))=LogPWD Then                          
   Response.Cookies(ck&"2")("adminname")=Request("LogName")                            
   Response.Cookies(ck&"2")("adminpsw")=Request("LogPwd")                            
   Response.Cookies(ck&"2").Expires=date+30                                                        
    Session("PRO"&LogPWD&"ADMIN")=True
    dim uploadpic
uploadpic="#pic"
Response.Cookies("picc")("picc2")=uploadpic                     
                            
    Response.Redirect "index.asp"                            
 Else                            
   response.write "<script language='javascript'>"                            
   response.write "alert('管理帐号或密码错误');"                            
   response.write "history.go(-1);"                            
   response.write "</script>"                            
   Response.End                            
 End IF                            
End Function                            
%>