login.asp
来自「A Design and Implementation of The Onli」· ASP 代码 · 共 47 行
ASP
47 行
<!--#include File="../ConnDB.asp"-->
<%
'根据录入的用户信息查询数据
AdminId = Trim(Session("admin_id"))
AdminPwd = Trim(Session("admin_pwd"))
If AdminId <> "" Then
sql="Select * From Admin Where AdminId= '" & AdminId & "' And Passwd='" & AdminPwd & "'"
Set rsa = Conn.Execute(sql)
'如果用户存在，则转向到AdminIndex.asp
If Not rsa.EOF Then
Response.Redirect("AdminIndex.asp")
End If
End If
%>
<html>
<head>
<title>管理员登录</title>
<link rel="stylesheet" href="../style.css">
</head>
<body>
<form name="myform" action="putSession.asp" method="Post">
<br>
<table border="0" align="center">
<tr><td align=center><h2>管理员登录</h2></td></tr>
</table>
<table border="0" align="center">
<tr>
<td align="right">管理员账号:</td>
<td><input maxLength="20" name="loginname" size="30"></td>
</tr>
<tr>
<td align="right">管理员密码:</td>
<td><input maxLength="20" name="password" size="30" type="password"></td>
</tr>
<tr>
<td align="right"> </td>
<td align="center"> </td>
</tr>
<tr>
<td align="right"> </td>
<td align="center"><input type="submit" value=" 登 陆 "></td>
</tr>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?