message.asp

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

<% 
'本类用于保存对表Message的数据库访问操作
'表的每个字段对应类的一个成员变量
class Message
	public MsgId			'留言ID号，主键
	public Subject		'	留言标题
	public Words			'	留言内容
	public Poster			'	留言人姓名
	public Face				'	脸谱图标文件名
	public CreateTime	'	创建日期和时间
	public UpperId		'	上级留言ID，如果不是回帖，则UpperId = 0
	public rs

  '获取留言信息
  public sub GetMessageInfo(mid)
		'创建Recordset对象，处理查询结果集
		Set rs=Server.CreateObject("ADODB.Recordset")
		'设置rs的ActiveConnection属性，绑定到连接
		Set rs.ActiveConnection = Conn
		'设置游标类型
		rs.CursorType = 3
		'设置查询的SELECT语句
 		sql = "SELECT * FROM Message WHERE MsgId='" + mid + "'"
		'打开记录集
		rs.Open sql
		'读取个人数据
		if rs.EOF Then  
			MsgId = 0
		else
			MsgId = mid	
			Subject = rs("Subject")
			Words = rs("Words")
			Poster = rs("Poster")
			Face = rs("Face")
			CreateTime = rs("CreateTime")
			UpperId = rs("UpperId")
		end if
		rs.Close
  end sub

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

  '添加留言信息
  public sub insert()
    sql = "INSERT INTO Message VALUES ('" & Subject & "','" & Words _
		  & "','" & Poster & "'," & CStr(Face) & ",'" & CreateTime & "'," _
		  & CStr(UpperId) & ")"
		'执行SQL语句
	Conn.Execute(sql)
  end sub

  '
  public sub update(mid)
    sql = "UPDATE Message SET Subject='" & Subject & "', Words='" & Words _
		  & "', Face=" & Face & ", Poster='" & Poster & "', CreateTime='" _
		  & CreateTime & "' WHERE MsgId=" & CStr(mid)
		'执行SQL语句
		Conn.Execute(sql)
  end sub

  '删除个人信息
  public sub delete(mid)
		sql = "DELETE FROM Message WHERE MsgId=" & CStr(mid)
		Conn.Execute(sql)
  end sub
end class
%>