📄 pwd.asp
字号:
<%
Function CheckPwd( ID, Pwd )
Dim conn, param, rs
Set conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
param = "driver={Microsoft Access Driver (*.mdb)};Pwd="
conn.Open param & ";dbq=" & Server.MapPath("Admin.mdb")
sql = "Select * From Adminuser Where username='" & ID & "' And password= '" & Pwd & "'"
RS.open sql,Conn,3,1
If rs.EOF Then
CheckPwd = False
Else
if rs.RecordCount=1 then '用户必须唯一
CheckPwd = True
end if
End If
End Function
If IsEmpty(Session("AdminPassed")) Then Session("AdminPassed") = False
Head = "您还没有登录，请登录"
ID = Request("ID")
Pwd = Request("Pwd")
If ID = "" or Pwd = "" Then
Head = "您还没有登录，请登录"
ElseIf Not CheckPwd( ID, Pwd ) Then
Head = "非法帐号或密码错误！"
Else
Session("AdminPassed") = True
End If
If Not Session("AdminPassed") Then
%>
<html>
<head>
<title>管理员登录界面</title>
</head>
<body>
<table align="center" width="80%" >
<tr>
<td align="middle" valign="center">
<p align="center"><%=head%>
</td>
</tr>
</table>
<form Action="<%=Request.ServerVariables("PATH_INFO")%>" Method="POST">
<div align="center"><center><table BORDER="1" CELLSPACING="0">
<tr>
<td ALIGN="RIGHT">用户名称:</td>
<td><input Type="Text" Name="ID" Size="12" Value="<%=id%>"></td>
</tr>
<tr>
<td ALIGN="RIGHT">密码： </td>
<td><input Type="Password" Name="Pwd" Size="12" Value="<%=pwd%>"></td>
</tr>
</table>
</center></div><div align="center"><center><p><input Type="Submit" Value="登录"> </p>
</center></div>
</form>
</body>
</html>
<%
Response.End
End If
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -