privatemsg.asp

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

<% 
'本类用于保存对表PrivateMsg的数据库访问操作
'表的每个字段对应类的一个成员变量
class PrivateMsg
	public Id					' 记录编号，主键
	public Receiver		'	接收人
	public Title			'	标题
	public Content		'	信息内容
	public PostTime		'	发送时间
	public Sender			'	用户名


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

  '按个人查询小纸条信息，返回结果集
  public sub GetPrivateMsglist()
		'创建Recordset对象，处理查询结果集
		Set rs=Server.CreateObject("ADODB.Recordset")
		'设置rs的ActiveConnection属性，绑定到连接
		Set rs.ActiveConnection = Conn
		'设置游标类型
		rs.CursorType = 3
		'设置查询的SELECT语句
		sql = "SELECT * FROM PrivateMsg WHERE Receiver='" + Receiver + "'"
		'打开记录集
		rs.Open sql
  end sub

  '添加留言信息
  public sub insert()
    sql = "INSERT INTO PrivateMsg VALUES ('" + Receiver + "','" + Title _
		  + "','" + Content + "','" + PostTime + "','" + Sender + "')"
		'执行SQL语句
		Conn.Execute(sql)
  end sub

  '删除个人信息
  public sub delete(pid)
		sql = "DELETE FROM PrivateMsg WEHRE Id=" + pid
		Conn.Execute(sql)
  end if
end class
%>