📄 login.asp.bak
字号:
<%@ Language=VBScript %>
<% if Request.Form("enter") = "yes" then
Dim cn, rs, SQL, status
'创建 connection
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & server.MapPath ("../fpdb/poll.mdb")
'验证用户名和密码...
SQL = "SELECT * FROM users WHERE " & _
"username = '" & Request.form("username") & "' and " & _
"password = '" & Request.form("password") & "'"
set rs = cn.execute(SQL) '打开记录集
if RS.EOF and RS.BOF Then '如果记录为空，则表示用户名或者密码错误
status = "Wrong password or username !"
else
'login ok !
Session("loginSuccessful") = "yes"
'check rights for the admin
session("adminRights") = rs("status")
session.Timeout = 30
status = ""
Response.Redirect "admin-poll.asp"
end if
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<font face="verdana" size="2">
<form method="POST" action="login.asp">
<div align="center">
<b>用户登录</b><br></br>
<%if not status = "" then%><font color="#FF0000" size="2" face="verdana"><%=status%></font><br><br><%end if%>
<table border="1" cellpadding="0" cellspacing="0" width="300" style="border-collapse: collapse" bordercolor="#000000">
<tr>
<td>
<table border="0" width="300" cellspacing="0" cellpadding="5" bgcolor="#ADD8E6">
<tr>
<td width="80" valign="top" align="left">
<font face="Verdana" size="2">用户名:</font></td>
<td><input type="text" name="Username" size="20"></td>
</tr>
<tr>
<td width="80"><font face="Verdana" size="2">密码:
</font></td>
<td><input type="password" name="Password" size="20"></td>
</tr>
<tr>
<td width="80"></td>
<td><font face="Verdana" size="1">
<input type="submit" value="enter" name="B1">
<input type="hidden" value="yes" name="enter">
</font></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</form>
</font>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -