admin.asp

一个非常好的小型网站源码。可适用于不同的前台界面。

<!--#include file = "Startup.asp"-->
<div align="center">管理员登陆
</div>
<%
dim name,pass
name=replace(request.form("username"),"'","''")
pass=replace(request.form("password"),"'","''")
sSql="select * from admin where(name='"&name&"' and pass='"&pass&"')"
oRs.Open sSql, oConn, 1, 1
if not oRs.eof then
oRs.close
session("check")="checked"
response.Redirect "list.asp"
else
session("check")=""
%>
<%
end if
%>
<form name="form1" method="post" action="admin.asp">
  <table width="241"  border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td width="63">用户名：</td>
      <td width="178"><input type="text" name="username"></td>
    </tr>
    <tr>
      <td>密 &nbsp;码：</td>
      <td><input type="password" name="password"></td>
    </tr>
    <tr>
      <td><input type="submit" name="Submit" value="提交"></td>
      <td><input type="reset" name="Submit2" value="重置"></td>
    </tr>
  </table>
</form>