sysconf.asp

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

<% 
'本类用于保存对表SysConf的数据库访问操作
'表的每个字段对应类的一个成员变量
class SysConf
  public ConfName			' 用户名
  public ConfValue			' 密码

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

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

	rs.Close
	HaveSysConf = exist
  end function

  '添加配置信息
  public sub insert()
    sql = "INSERT INTO SysConf VALUES ('" + ConfName + "','" + ConfValue + "')"
	'执行SQL语句
	Conn.Execute(sql)
  end sub

  '修改配置信息
  public sub update(name)
    sql = "UPDATE SysConf SET ConfValue='" + ConfValue + "' WHERE ConfName='" _
		+ name + "'"
	'执行SQL语句
	Conn.Execute(sql)
  end sub

  public sub save(name)
	if HaveSysConf(name)=False then
	  insert
	else
	  update(name)
	end if
  end sub
end class
%>