<%
'*****確認帳號密碼是否正確*****
If Request("Send") <> Empty Then
username = Request( "username" )
userpassword = Request( "userpassword" )
SQL = "Select * From users Where username ='" & username & "' And userpassword ='" & userpassword & "'"
Set rs = GetMdbRecordset( "signonline.mdb", SQL)
If Not rs.EOF Then ' 找得到資料錄，表示通過
Response.Cookies("username") = username
Response.redirect "learnchoice.asp"
Else
Response.Write "使用者名稱或密碼錯誤!"
End If
Response.End
End If
'*******************************
%>
