login.asp

来自「e人畅想公用日记本 v1.0」· ASP 代码 · 共 34 行

<!--#include file="top.asp"-->
<hr width="600" size="1" noshade>
<%admin=replace(request.form("admin"),"'","")
password=replace(request.form("password"),"'","")
set check=conn.execute("select*from about where admin='"&admin&"' and password='"&password&"' and id=1")
on error resume next
if check.bof and check.eof then%>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center" class="table_pointline">
  <tr>
    <td>
      <form name="form1" method="post" action=""> 
        <div align="center"> 
          <p><br>
            管理登陆</p>
          管理大名: 
          <input type="text" name="admin" class="local">
          <br>
          管理密码:
          <input type="password" name="password" class="local">
          <br>
          <br>
          <input type="submit" name="Submit" value="提交" class="withoutany">
        </div>
      </form>
    </td>
  </tr>
</table>
<!--#include file="bottom.asp"-->
<%else
session("admin")="yes"
response.redirect"index.asp"
end if
set check=nothing%>