<%
If session("score/login") <> "" then Response.Redirect "index2.asp"
If Request.Form("Username") <> "" then
id = Request.Form("Username")
pwd = Request.Form("Password")
If Request.Form("R1") = 1 or Request.Form("R1") = 2 or Request.Form("R1") = 3 then
SET CN = SERVER.CREATEOBJECT("ADODB.CONNECTION")
CN.OPEN "driver={MICROSOFT ACCESS DRIVER (*.MDB)};DBQ="& SERVER.MAPPATH("User_Data.mdb")
If Request.Form("R1") = 1 then '教師
sql = "Select * From Teacher_Data Where Teacher_Data.id='"& id & "'"
Lv = 1
End if
If Request.Form("R1") = 2 then '學生
sql = "Select * From Student_Data Where Student_Data.id='"& id & "'"
Lv = 2
End if
If Request.Form("R1") = 3 then '管理者
sql = "Select * From Admin_Data Where Admin_Data.id='"& id & "'"
Lv = 3
End if
Set rs = cn.Execute( sql )
IF id="" OR pwd="" OR RS.BOF OR RS.EOF THEN
session("error") = "帳號或密碼錯誤請重新輸入!"
Else
ps=rs("pwd")
IF pwd<>ps THEN
session("error") = "帳號或密碼錯誤請重新輸入!"
If Request.Form("R1") = 2 then session("error") = "學生的帳號為學生證號碼,密碼預設為身分證字號!"
Else '驗證成功後,載入基本資料
session.timeout = 100
session("score/login") = Now()
session("score/id") = rs("ID")
session("score/name") = rs("Name")
session("score/level") = Lv
If Request.Form("R1") = 2 then
session("score/class") = rs("class")
session("score/classno") = rs("classno")
End if
End if
End if
Rs.Close
CN.Close
Else
session("error") = "請選擇登入的身分!"
End if
Response.Redirect "login.asp"
Else
%>
score96
