login.asp

鄂尔多斯建站网全站程序(冬季修正版)

<!--#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">
<TABLE class=table_2 borderColor=#9cacd0 height=200 cellSpacing=0 
cellPadding=0 width=746 align=center bgColor=#f5f7fb><TBODY>
  <TR class=title align=middle>
    <TD height=22 width="100%" colspan="2" background="images/d3.gif"><STRONG>管理登陆</STRONG></TD></TR>
	     <TR class=tdbg align=middle>
    <TD width="100%" colspan="2">
      <p align="center">&nbsp;</p>
    </TD></TR>
  <TR class=tdbg>
    <TD vAlign=top 
      height=20 width="40%">
      <p align="right">管理帐号：</p>
    </TD>
    <TD vAlign=top 
      height=20 width="60%"> <input style="border:1pt dotted #cccccc" type="text" name="LogName" size="10" maxlength="20" value=<%=adminname%>></TD></TR>
    <TR class=tdbg>
    <TD vAlign=top 
      height=20 width="40%">
      <p align="right">管理密码：</p>
    </TD>
    <TD vAlign=top 
      height=20 width="60%">  <input style="border:1pt dotted #cccccc"  type="password" name="LogPwd" size="10" maxlength="50" value=<%=psw%>></TD></TR>
     <TR class=tdbg>
    <TD vAlign=top 
      height=20 width="40%">
      <p align="right">附加码：</p>
    </TD>
    <TD vAlign=top 
      height=20 width="60%"><input style="border:1pt dotted #cccccc"  type="TEXT" name="randm1" size="10" maxlength="4"><input type="hidden" name="randm2" value=<%=randm%>>&nbsp;</TD></TR>
  <TR class=tdbg>
    <TD vAlign=top height=20 width="40%">
	&nbsp;
    </TD>
    <TD 
      height=25 width="60%"><font color="#FF9966" face="Broadway BT"><span style="background-color: #e8e8e8">&nbsp;<%=randm%>&nbsp;</span></font></TD></TR>
     <TR class=tdbg align=middle>
    <TD width="100%" colspan="2">
      <p align="center">    <input style="border:1pt dotted #cccccc;background-color:#ffffff;width=50px;"  type="submit" class=sd1 value="确定">
        <input style="border:1pt dotted #cccccc;background-color:#ffffff;width=50px"  type="reset" class=sd1 value="重写"></p>
    </TD></TR>
    </TBODY></TABLE>
</FORM></TD></TR></TBODY></TABLE>      
<CENTER><BR></CENTER></DIV>
<%
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
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
    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
%>