login.asp

来自「里面说明详细」· ASP 代码 · 共 58 行

ASP
58
字号
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>JChat 注册用户管理</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body>
<!--#include file="conn.asp"-->
<%
username=trim(request.form("uname"))
password=trim(request.form("upsw"))
if username<>"" and password<>"" then
 Conn = DBCN()
 set rs = Server.CreateObject("ADODB.Recordset")
 sql="select * from admin"
 rs.open sql,conn,3
 if not rs.eof then
   if rs("name")=username and rs("password")=password then
     session("chat_admin")="yes"
     response.redirect "index.asp"
     response.end
   end if
 end if
 response.write "<br>无效的帐号和密码。&nbsp;&nbsp;<input type=button value=""返 回"" onclick=""history.back();"">"
else
%>
<p align="center">JChat 注册用户管理 </p>
<form method="POST" action="login.asp">
  <div align="center"><center><table border="0" width="50%" bgcolor="#D9D9D9">
    <tr>
      <td width="100%" colspan="2" bgcolor="#B9B9B9">管理员登录
      </td>
    </tr>
    <tr>
      <td width="100%" colspan="2" height="10"></td>
    </tr>
    <tr>
      <td width="40%" align="right">帐号:</td>
      <td width="60%"><input type="text" name="uname" size="20"> </td>
    </tr>
    <tr> 
      <td width="40%" align="right">密码:</td>
      <td width="60%"><input type="password" name="upsw" size="20"></td>
    </tr>
    <tr>
      <td width="100%" colspan="2" align="center"><br>
      <input type="submit" value="登 录" name="B1">&nbsp;&nbsp; <input type="reset"
      value="清 空" name="B2"><br><br></td>
    </tr>
  </table>
  </center></div>
</form>
<%
end if
%>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?