<%
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""&1ErrMes&""
%>
用户登陆——http://www.yyalong.com
Copyright
2004 湖南亚龙实业有限公司
E-mail:yalong.yongdefu@163.com
敬业网络 策划、制作、维护
