login.asp

来自「一个用ASP编制的电子留言板」· ASP 代码 · 共 54 行

<% if Request.Form("username")="" then %>
<!-- #INCLUDE file="head.asp" -->
<table width="768" border="0" align="center" cellspacing="0">
  <tr>
    <td width="38" height="20" background="../img/ad_mqdhl.gif">&nbsp;</td>
    <td width="742" bgcolor="#E8F5E1"><span class="style4"><span class="style3">当前位置　</span></span>留言板\管理员登陆</td>
  </tr>
</table>
<form name="form1" method="post" action="login.asp">
  <table width="301" border="0" align="center" cellspacing="0">
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td width="56" height="23"><div align="center">用户名：</div></td>
      <td width="241"><input name="username" type="text" id="username" size="20" maxlength="20"></td>
    </tr>
    <tr>
      <td height="26"><div align="center">密码：</div></td>
      <td><input name="password" type="password" id="password" size="20" maxlength="16"></td>
    </tr>
    <tr>
      <td><div align="center">验证码：</div></td>
      <td><input name="keye" type="text" id="keye" size="4" maxlength="4">
        <!-- #INCLUDE file="validate.inc" --></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit" value="提交">　
      <input type="reset" name="Submit2" value="重置"></td></tr>
  </table>
</form>
<!--#include file="foot.asp" -->
<%
  else  
   IF Request.Form("username")<>"admin"  THEN
    Response.Redirect("../error/index.asp?ID=0")
   ELSE
   if Request.Form("password")<>"admin" then
    Response.Redirect("../error/index.asp?ID=6") 
   else
    if Request.Form("keyd")<>Request.Form("keye") then 
     Response.Redirect("../error/index.asp?ID=4")
    else
	 Session("admin")=true
	 Response.Redirect("admin.asp")
    end if
   end if
  end IF
end if
%>