<%@ Language=VBScript %> <% ID=Request("ID") PWD=Request("PWD") strMsg=checklogin(ID,PWD) if strMsg="success" then Response.Redirect "investorinfo-ia-3.asp" elseif strMsg="無此使用者" then showstr="Enter your ID and password to sign in" elseif strMsg="密碼錯誤" then showstr="wrong password" end if function checklogin(id,pwd) Set rs = Server.CreateObject("ADODB.Recordset") SQLstr = "SELECT * FROM member " & _ "WHERE ID = '" & ID & "'" '欲執行查詢的SQL敘述 rs.Open SQLstr, conn '利用Recordset物件執行SQL敘述, 並建立記錄集 if rs.EOF then '檢查記錄指標是否指到最後一筆記錄 checklogin = "無此使用者" '若記錄指標在記錄集一開啟時便指到最後一筆記錄則表示沒有記錄 elseif rs("PWD") <> PWD then '判斷密碼是否正確 checklogin = "密碼錯誤" else '通過檢查表示帳號與密碼均正確成功登入 checklogin = "success" session("AAA")="Lin" session("BBB")="John" session("autoNo")=rs("autoNo") end if end function %>

		<%=showstr%> ID:   Password:

<% conn.close set conn=nothing %>