<% 
'本類用于保存對表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
%>