addresslist.asp

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

<% 
'本类用于保存对表Addresslist的数据库访问操作
'表的每个字段对应类的一个成员变量
class Addresslist
	public Aid				'记录编号
  public Name				'用户姓名
  public Sex				'性别
  public Address		'地址
  public Postcode		'邮编
  public Email	    '电子邮件地址
  public Telephone	'固定电话
  public Mobile			'移动电话
  public Company		'所在单位
  public Birthday		'生日
  public Flag				'类型，1表示同学，2表示老师，3表示其他
  public rs

  '获取公告信息
  public sub GetAddressInfo(id)
		'创建Recordset对象，处理查询结果集
		Set rs=Server.CreateObject("ADODB.Recordset")
		'设置rs的ActiveConnection属性，绑定到连接
		Set rs.ActiveConnection = Conn
		'设置游标类型
		rs.CursorType = 3
		'设置查询的SELECT语句
 		sql = "SELECT * FROM Addresslist WHERE Aid=" & CStr(id)
		'打开记录集
		rs.Open sql
		'读取个人数据
		if rs.EOF Then  
			Id = 0
		else
			Aid = id	
			Name = rs("Name")
			Sex = rs("Sex")
			Address = rs("Address")
			Postcode = rs("Postcode")
			Email = rs("Email")
			Telephone = rs("Telephone")
			Mobile = rs("Mobile")
			Company = rs("Company")
			Birthday = rs("Birthday")
			Flag = rs("Flag")
		end if
		rs.Close
  end sub

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

  '添加通讯录信息
  public sub insert()
    sql = "INSERT INTO Addresslist VALUES ('" & Name & "'," & CStr(Sex) _
				& ",'" & Address & "','" & Postcode & "','" & Email & "','" _
				& Telephone & "','" & Mobile & "','" & Company & "','" _
				& Birthday & "'," & CStr(Flag) & ")"
		'执行SQL语句
		Conn.Execute(sql)
  end sub

  '
  public sub update(id)
    sql = "UPDATE Addresslist SET Name='" & Name & "', Sex=" & CStr(Sex) _
		  & ", Address='" & Address & "', Postcode='" & Postcode & "', Email='" _
			& Email & "', Telephone='" & Telephone & "', Mobile='" & Mobile _
			& "', Company='" & Company & "', Birthday='" & Birthday _
			& "', Flag=" & CStr(Flag) & " WHERE Aid=" & CStr(id)
		'执行SQL语句
		Conn.Execute(sql)
  end sub

  '批量删除通讯录信息
  public sub delete(id)
	sql = "DELETE FROM Addresslist WHERE Aid IN (" & CStr(id) & ")"
	Conn.Execute(sql)
  end sub
end class
%>