📄 checkuser.asp
字号:
<!--#include file="db.asp"-->
<%
Response.Expires = 0
dim Usename,Password
Username=Request.Form("UserName")
Password=Request.Form ("password")
Dim PaperItemID(5,50)
Session("PaperItemArray")=PaperItemID
objConn.Open strConnection
Set objRS = Server.CreateObject ("ADODB.Recordset")
Set objRS.ActiveConnection = objConn
if(Request.Form("role")=1) then
strQuery ="Select UserID,UserName From Teacher where UserName='"&Username&"'and Password='"&Password&"'"
else
strQuery ="Select UserID,UserName From Student where UserName='"&Username&"'and Password='"&Password&"'"
end if
objRS.Open strQuery
if(not objRS.EOF ) then
Session("Username")=CStr(objRS("UserName"))
Session("UserID")=CStr(objRS("UserID"))
if(Request.Form("role")=1) then
Response.Redirect ("teacherroom.asp")
else
Response.Redirect ("studentroom.asp")
end if
else
Response.Write ("<html><p>该用户名不存在！请确认您输入的用户名正确。</p><p><a href=default.htm>重新登录</a> </p>")
end if
objRS.Close
objConn.Close
Set objRS= Nothing
Set objConn = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -