📄 adminlog.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
'首先判断enter控件的值是否为yes,如果是,表示用户是单击"登录"按钮进行提交
if Request.Form("enter") = "yes" then
Dim C, RS, Query
'创建connection
Set C = Server.CreateObject("ADODB.Connection")
C.Open "Provider=SQLOLEDB;data source=(local);initial catalog=vote;user id=sa;password=;"
'创建 recordset
Set RS = Server.CreateObject("ADODB.Recordset")
'查询该用户是否存在
Query = "Select * from usr where " & _
"username = '" & Request.form("Username") & "' and " & _
"password = '" & Request.form("Password") & "'"
'打开recordset
RS.Open Query, c
'如果为空,则表示登录失败,该用户不存在
if RS.EOF and RS.BOF then
Response.Write "<p align=""center""><font color=""red"" face=""verdana"" size=""2"">Wrong password or username !</font></p>"
else
'否则登录成功
Session("login") = "yes" '设置登录成功标志
Response.Redirect "admintit.asp" '进入到adminit.asp页面
end if
RS.Close
Set RS = Nothing
C.Close
Set C = Nothing
end if
%>
<p align="center">
<font face="verdana" size="2">
<form method="POST" action="adminlog.asp">
<div align="center">
<b>管理员登录</b><br></br>
<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">
<p><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="登录" name="B1">
<input type="hidden" value="yes" name="enter">
</font></td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
</form>
</font>
<p align="center">用户名：test<br>
密 码：test1</p>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -