phototype.asp

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

<% 
'本类用于保存对表PhotoType的数据库访问操作
'表的每个字段对应类的一个成员变量
class PhotoType
  public TypeId			' 照片类型编号
  public pTypeName		' 照片类型名称
  public Owner			' 照片类型所有者
  public rs

  '获取照片分类信息
  public sub GetPhotoTypeInfo(id)
		'创建Recordset对象，处理查询结果集
		Set rs=Server.CreateObject("ADODB.Recordset")
		'设置rs的ActiveConnection属性，绑定到连接
		Set rs.ActiveConnection = Conn
		'设置游标类型
		rs.CursorType = 3
		'设置查询的SELECT语句
		sql = "SELECT * FROM PhotoType WHERE TypeId=" + id 
		'打开记录集
		rs.Open sql
		'读取照片分类数据
		if rs.EOF Then  
			TypeId = ""
		else
			TypeId = name	
			pTypeName = rs("TypeName")
			Owner = rs("Owner")
		end if
		rs.Close
  end sub

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

  ' 判断指定用户名是否存在
  public function HavePhotoType(name)
		dim exist
		'创建Recordset对象，处理查询结果集
		Set rs=Server.CreateObject("ADODB.Recordset")
		'设置rs的ActiveConnection属性，绑定到连接
		Set rs.ActiveConnection = Conn
		'设置游标类型
		rs.CursorType = 3
		'设置查询的SELECT语句
		sql = "SELECT * FROM PhotoType WHERE TypeName='" + name + "'"
		'打开记录集
		rs.Open sql
		'如果记录集为空，则插入数据；否则修改数据
		if rs.EOF then  	
			exist = false
		else
			exist = true
		end if
		rs.Close
		HavePhotoType = exist
  end function

  '添加照片分类信息
  public sub insert()
    sql = "INSERT INTO PhotoType VALUES ('" + pTypeName + "','" + Owner + "')"
		'执行SQL语句
		Conn.Execute(sql)
  end sub

  '修改照片分类信息
  public sub update(id)
    sql = "UPDATE PhotoType SET TypeName='" + pTypeName + "' WHERE TypeId='" _
				+ id + "'"
		'执行SQL语句
		Conn.Execute(sql)
  end sub

  '删除公告信息
  public sub delete(id)
		sql = "DELETE FROM PhotoType WHERE TypeId IN (" & CStr(id) & ")"
		Conn.Execute(sql)
  end sub
end class
%>