📄 checkuser.asp
字号:
<%@ Language=VBScript %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<LINK href="Css/style.css" rel=stylesheet>
<TITLE>用户登录</TITLE>
</HEAD>
<body bgcolor="ffffff" TOPMARGIN="0" MARGINHEIGHT="0">
<!--#include file="Include/Conn.Inc" -->
<% dim Rs, seleType, UserID, Password, Message
seleType = Request.Form("seleType") '取得用户类型
UserID = Request.Form("UserID") '取得用户ID及对应密码
Password = Request.Form("PSW")
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = Conn
if seleType=1 then '学生
Rs.Source = "Select StudentID, StudentName, Pwd, ClassID From Student Where StudentID='"&UserID&"'"
else '教师
Rs.Source = "Select TeacherID, TeacherName, Pwd From Teacher Where TeacherID='"&UserID&"'"
end if
Session("Guest_ID")=""
Rs.Open()
if Not Rs.Eof then
if Password = Rs("Pwd") then '用户ID与Password正确
Session("Guest_ID") = UserID
Session("GuestType") = seleType
if seleType=2 and LCase(UserID)="admin" then
Session("GuestType") = 6 ' 超级用户
elseif seleType=1 then
Session("ClassID") = Trim(Rs.Fields(3).Value) '班级
end if
response.redirect "Default.asp"
else
Message="<Font Color=Red>对不起，密码输入错误！</Font>"
end if
else
Message="<Font Color=Red>对不起，没有号码为"&UserID&"的用户ID！</Font>"
end if
if Session("Guest_ID")="" then Session("GuestType") =0
Rs.Close()
Set Rs = Nothing
Conn.Close()
Set Conn = Nothing %>
<!--#include file="Function.Asp" -->
<table width="600" border="0" align=center cellpadding="0" cellspacing="0" bordercolor="#996633" bgcolor="#F2CFFC">
<TBODY>
<TR> <TD height="31" colspan="5" bgColor=#fef7d8>
<div align="center"><b><%=Message%> </b></div></TD>
</TR>
</table>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -