📄 pwd.asp
字号:
<%
Function CheckPwd( ID, Pwd )
Dim conn, param, rs
Set conn = Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)};Pwd=00719300"
conn.Open param & ";dbq=" & Server.MapPath("usersPwd.mdb")
sql = "Select * From users Where ID='" & ID & "' And Pwd = '" & Pwd & "'"
Set rs = conn.Execute( sql )
If rs.EOF Then
CheckPwd = False
Else
CheckPwd = True
End If
End Function
%>
<%
session.timeout=120
If IsEmpty(Session("Passed")) Then Session("Passed") = False
Head = "请输入您的认证资料（系统管理用户）"
ID = Request("ID")
Pwd = Request("Pwd")
If ID = "" Or Pwd = "" Then
Head = "请输入您的认证资料（系统管理用户）"
ElseIf Not CheckPwd( ID, Pwd ) Then
Head = "用户名称或密码错误（系统管理用户）"
Else
Session("Passed") = True
End If
If Not Session("Passed") Then
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<H2 ALIGN=CENTER><%=Head%><HR WIDTH="100%"></H2>
<CENTER>
<FORM Action=<%=Request.ServerVariables("PATH_INFO")%> Method=POST>
<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><P>
<Input Type=Submit Value=" 确定 ">
</FORM>
<HR WIDTH="100%">
</CENTER>
</BODY>
</HTML>
<%
Response.End
End If
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -