checkuser.asp

来自「这是用asp做的一个网上考试题库系统」· ASP 代码 · 共 42 行

ASP

42 行



<!--#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

%>

checkuser.asp - 源码说明

本页面展示了「这是用asp做的一个网上考试题库系统」中的 checkuser.asp 源码文件，采用 ASP 编程语言编写，共 42 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?