<%
Dim 1StrSQL,1RecItem,1StrDbConnStr
Dim 1UserId,1UserPws,1CmdFun
Dim 1ErrNo,1ErrMes
1CmdFun=Request.Form(CmdFun")
1ErrNo=0
Select Case 1CmdFun
Case "登陸"
1UserId=UCase(Request.Form("TxtUserID"))
1UserPwd=Request.Form("TxtUserPwd")
1StrDbConnStr="DSN=log"
Set 1RecItem=Server.CreateObject("ADODB.RecordSet")
1StrSQL="SELECT*FROM Tb1_StudentInfo WHERE(StudentID='"& 1UserId &"')"
1RecItem.Open 1StrSQL,1StrDbConnStr,adOpenStatic
If 1RecItem.BOF or 1RecItem.EOF Then
1ErrNo=1
"沒有該用戶，請與系統管理員聯繫註冊
ElseIf 1RecItem.Fields("StudentPwd")=1UserPwd Then
Session("StudentID")=1UserId
Session("StudentName")=1RecItem.Fields(StudentName")
Else
1ErrNo=2
"用戶口令輸入錯誤
End If
1RecItem.Close
Set 1RecItem=Nothing
If 1ErrNo=0 Then
Response.Redirect"Default.htm"
End If
Case "新用戶註冊"
Response.Redirect"../asp/logRegist.asp"
End Select
Select Case 1ErrNo
Case 1
1ErrMes="沒有該用戶，請先註冊"
Case 2
1ErrMes="用戶口令輸入錯誤"
End Select
Response.Write"
