?? 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及對應(yīng)密碼
Password = Request.Form("PSW")
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = Conn
if seleType=1 then '學(xué)生
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>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -