?? 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 + -