📄 login.asp
字号:
<%
If mdbFile = Empty Then mdbFile = "UsersPwd.mdb"
If mdbPassword = Empty Then mdbPassword = "kj6688"
If UserID = Empty Then UserID = Request("UserID")
If Password = Empty Then Password = Request("Password")
Passed = Session( mdbFile )
If Passed <> "Passed" And UserID <> Empty And Password <> Empty Then
Passed = CheckPassword( UserID, Password, mdbFile, mdbPassword )
End If
If Passed <> "Passed" Then
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<H2 ALIGN=CENTER>请输入用户帐号及密码：</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=UserID Size=12 Value=<%=UserID%>></TD>
</TR>
<TR><TD ALIGN=RIGHT>密码:</TD>
<TD><Input Type=Password Name=Password Size=12 Value=<%=Password%>></TD>
</TR>
</TABLE><P>
<Input Type=Submit Value=" 确 定 ">
</FORM>
</CENTER>
<HR>
<% If Passed = "NotPassed" Then ' 不是第一次进入 %>
<FONT Color=Red>用户帐号或密码错误，请重新输入！</FONT>
<%End If%>
</BODY>
</HTML>
<%
Response.End
End If
%>
<%
Function CheckPassword( UserID, Password, mdbFile, mdbPassword )
If Session( mdbFile ) = "Passed" Then
CheckPassword = "Passed"
Exit Function ' 不必再检查数据库，以节省时间
End If
SQL = "Select * From Users Where UserID='" & UserID & "'"
SQL = SQL & " And Password = '" & Password & "'"
If Len(mdbPassword) = 0 Then
Set rs = GetMdbRecordset( mdbFile, SQL )
Else
Set rs = GetSecuredMdbRecordset( mdbFile, SQL, mdbPassword )
End If
If Not rs.EOF Then ' 此组密码存在，故通过
CheckPassword = "Passed"
Session( mdbFile ) = "Passed"
Else
CheckPassword = "NotPassed"
End If
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -