pwd.asp

不錯玩的遊戲真的喔

<%
Function CheckPwd( ID, Pwd )
   Dim conn, param, rs

   Set conn = Server.CreateObject("ADODB.Connection")
   param = "driver={Microsoft Access Driver (*.mdb)};Pwd=kj6688"
   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
%>

<%
If IsEmpty(Session("Passed")) Then Session("Passed") = False
Head = "叫块