如需移除,請網站管理者移除.
Set conobject = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("teach.mdb")conobject.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&DBPath
Set conobject = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("newteach.mdb")conobject.Open "Driver={Microsoft Access Driver (*.mdb);pwd=1234;}; DBQ="&DBPath
check.asp(未加密碼參數) <% ID=Request("ID") Password = Request("Password") ok=session("checkok") IF ok <> "yes" Then Set conobject = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("newteach.mdb") conobject.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&DBPath Set recobject=Server.CreateObject("ADODB.Recordset") SQL = "Select * From 教職員認證 Where ID='" & ID & "'" SQL = SQL & " And Password = '" & Password & "'" recobject.Open SQL,conobject,1,1,1 if Not recobject.Eof then ok = "yes" session("checkok")=ok else %> <HTML> <BODY> <h2 ALIGN="CENTER"><img border="0" src="login.gif"></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=10></TD></TR> <TR><TD ALIGN=RIGHT>登入密碼:</TD> <TD><Input Type=Password Name=Password Size=8></TD></TR> </TABLE><P> <INPUT Type=Submit Value=" 確 定 "> </FORM> </CENTER> </BODY> </HTML> <% Response.End end if End If %>
pwdcheck.asp(加密碼參數) % ID=Request("ID") Password = Request("Password") ok=session("checkok") IF ok <> "yes" Then Set conobject = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("newteach.mdb") conobject.Open "Driver={Microsoft Access Driver (*.mdb)};pwd=1234;DBQ="&DBPath Set recobject=Server.CreateObject("ADODB.Recordset") SQL = "Select * From 教職員認證 Where ID='" & ID & "'" SQL = SQL & " And Password = '" & Password & "'" recobject.Open SQL,conobject,1,1,1 if Not recobject.Eof then ok = "yes" session("checkok")=ok else %> <HTML> <BODY> <h2 ALIGN="CENTER"><img border="0" src="login.gif"></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=10></TD></TR> <TR><TD ALIGN=RIGHT>登入密碼:</TD> <TD><Input Type=Password Name=Password Size=8></TD></TR> </TABLE><P> <INPUT Type=Submit Value=" 確 定 "> </FORM> </CENTER> </BODY> </HTML> <% Response.End end if End If %>
回覆
