photo.asp

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

<% 
'本类用于保存对表Photo的数据库访问操作
'表的每个字段对应类的一个成员变量
class Photo
  public Id					'记录编号
  public TypeId			'相册分类
  public Url				'图片链接地址
  public ViewCount	'浏览次数
  public rs

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

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

  public sub add_viewcount(pid)
    sql = "UPDATE Photo SET ViewCount=ViewCount+1" _
			  + " WHERE Id=" & CStr(pid)
		'执行SQL语句
		Conn.Execute(sql)
  end sub

  '添加
  public sub insert()
    sql = "INSERT INTO Photo VALUES (" & TypeId & ",'" & Url & "', 0)"
	'执行SQL语句
	Conn.Execute(sql)
  end sub

  '删除
  public sub delete(pid)
		sql = "DELETE FROM Photo WHERE Id=" & CStr(pid)
		Conn.Execute(sql)
  end sub
end class
%>