login.asp

功能:同前置顶. 置底. 搜索. 审核. 编辑. 悄悄话. 系统发信通知站长. 滚动公告或不用公告. 冷色暖色. 直接上传. UBB.在线设置 ... 管理用户：admin 密码：admin 本文来

<!--#include file="config.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="pub.asp"--> 
<%
randomize
randm=Int((9000*rnd)+1000)
IF Request("POST")="True" Then
ChkRand
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"></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=<%=psw%>></td>                            
</tr>                            
<tr>                            
<td width="100%" height="26" onmouseover="javascript:this.bgColor='#ffe0ff'" onmouseout="javascript:this.bgColor='#f8ffff'" bgColor=#f8ffff>&nbsp;&nbsp;                                                
附加密码：<input name="randm1" size="22" maxlength="4"><input type="hidden" name="randm2" value=<%=randm%>></td>                            
</tr>                            
<tr>                            
<td align="center" width="100%" height="26" onmouseover="javascript:this.bgColor='#ffe0ff'" onmouseout="javascript:this.bgColor='#f8ffff'" bgColor=#f8ffff>                
<font color="#ff0088" face="Broadway BT"><span style="background-color: #ffffff">&nbsp;<%=randm%>                            
</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;<A href="index.asp">留言首页</A>&nbsp;]          
                                      
</td>                            
</tr>                            
                            
</table>                            
</center>                            
</div>                            
<CENTER><BR></CENTER>                            
<%                            
Bottom                            
Function ChkRand                            
 IF Request.form("randm1")="" then                            
   response.write "<script language='javascript'>"                            
   response.write "alert('登陆错误：你没有填写验证码！');"                            
   response.write "history.go(-1);"                            
   response.write "</script>"                            
   Response.End                            
 ELSE                            
   IF Request.form("randm1")<>Request.form("randm2") then                            
   response.write "<script language='javascript'>"                            
   response.write "alert('登陆错误：验证码填写错误！');"                            
   response.write "</script>"                            
   Response.write "<meta http-equiv='refresh' content='1;URL=login.asp'>"                            
   Response.End                            
   END IF                            
 END IF      
 if Len(sos)<>53 then      
Response.End      
end if                            
End Function                            
                            
Function ChkAdminLog                            
 IF Trim(Replace(Request("LogName"),"'",""))=LogName and md5(Trim(Replace(Request("LogPwd"),"'","")))=LogPWD Then                            
   if Request("sadmin")="yes" then    
                               
   Response.Cookies(ck&"2")("adminname")=Request("LogName")                            
   Response.Cookies(ck&"2")("adminpsw")=Request("LogPwd")                            
   Response.Cookies(ck&"2").Expires=date+30                            
   else                            
   Response.Cookies(ck&"2")("adminname")=""                            
   Response.Cookies(ck&"2")("adminpsw")=""                            
   end if                            
    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                            
%>