bulletin.asp

本同学录系统演示地址: http://class.19870123.cn/ 下载后请在Web.Config里更改设置,如数据库路径等 如果要换sql数据库,请将app_code里的MyPage

<% 
'本类用于保存对表Bulletin的数据库访问操作
'表的每个字段对应类的一个成员变量
class Bulletin
  public Id				' 记录编号
  public Title			' 公告标题
  public Content		' 公告内容
  public PostTime		' 发布日期
  public Poster			' 发布人
  public rs				' 用于返回结果集

  '获取公告信息
  public sub GetBulletinInfo(bid)
		'创建Recordset对象，处理查询结果集
		Set rs=Server.CreateObject("ADODB.Recordset")
		'设置rs的ActiveConnection属性，绑定到连接
		Set rs.ActiveConnection = Conn
		'设置游标类型
		rs.CursorType = 3
		'设置查询的SELECT语句
 		sql = "SELECT * FROM Bulletin WHERE Id='" + bid + "'"
		'打开记录集
		rs.Open sql
		'读取个人数据
		if rs.EOF Then  
			Id = 0
		else
			Id = bid	
			Title = rs("Title")
			Content = rs("Content")
			PostTime = rs("PostTime")
			Poster = rs("Poster")
		end if
		rs.Close
  end sub

  '获取所有公告信息，返回结果集
  public sub GetBulletinlist()
		'创建Recordset对象，处理查询结果集
		Set rs=Server.CreateObject("ADODB.Recordset")
		'设置rs的ActiveConnection属性，绑定到连接
		Set rs.ActiveConnection = Conn
		'设置游标类型
		rs.CursorType = 3
		'设置查询的SELECT语句
		sql = "SELECT * FROM Bulletin"
		'打开记录集
		rs.Open sql
  end sub

  '获取所有公告信息，返回结果集
  public sub GetRecentBulletinlist()
		'创建Recordset对象，处理查询结果集
		Set rs=Server.CreateObject("ADODB.Recordset")
		'设置rs的ActiveConnection属性，绑定到连接
		Set rs.ActiveConnection = Conn
		'设置游标类型
		rs.CursorType = 3
		'设置查询的SELECT语句
		sql = "SELECT * FROM Bulletin WHERE DateDiff(day, getdate(), Posttime)<=7"
		'打开记录集
		rs.Open sql
  end sub

  '添加公告信息
  public sub insert()
    sql = "INSERT INTO Bulletin VALUES ('" & Title & "','" & Content _
		  & "','" & PostTime & "','" & Poster & "')"
	'执行SQL语句
	Conn.Execute(sql)
  end sub

  '
  public sub update(bid)
    sql = "UPDATE Bulletin SET Title='" & Title & "', Content='" & Content _
		  & "', PostTime='" & PostTime & "', Poster='" & Poster _
		  & "' WHERE Id=" & CStr(bid)
		'执行SQL语句
		Conn.Execute(sql)
  end sub

  '批量删除公告信息
  public sub delete(bid)
		sql = "DELETE FROM Bulletin WHERE Id IN (" & CStr(bid) & ")"
		Conn.Execute(sql)
  end sub
end class
%>