tablefunction.asp

功能介绍： 文章管理

<%
			On Error Resume Next
			starttime=timer()
			'建立数据库连接对象
			Set db=Server.CreateObject("Adodb.Connection")
			connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../data/msmax.mdb")
			db.open connstr
			If Err Then
				err.Clear
				Set db = Nothing
				Response.Write "数据库连接错误，请检查!"
				Response.End
		End If
Class myclass
		
'		Private db,rs
'
'		'下面是初始化类的方法
'		Private Sub Class_Initialize()
'					On Error Resume Next
'			starttime=timer()
'			'建立数据库连接对象
'			Set db=Server.CreateObject("Adodb.Connection")
'			connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../data/msmax.mdb")
'			db.open connstr
'			If Err Then
'				err.Clear
'				Set db = Nothing
'				Response.Write "数据库连接错误，请检查!"
'				Response.End
'		End If
'		End Sub
'---------------显示数据库中表的信息
		
		Public Function viewrecord(strsql)
			Dim Sql,rs                         
			set rs=db.Execute(strsql)
			set viewrecord=rs       
		End Function
		
'-----------删除记录方法

		'public function DelRecord(table,condition,record)
		public function DelRecord(table,condition,guestid,website)
			'on error resume next
			dim strsql
			'strsql="delete from "& table &" where "& condition &"="& record			
			strsql="delete from "& table &" where "& condition &"=" & guestid
			db.execute(strsql)
'			if db.errors.count=0 then
'				DelRecord=true
'			else
'				DelRecord=false
'			end if
			response.Redirect(website)
			end function
			
'---------------更新记录
	public function UpRecord(table,condition,guestid,filehe,website)
			'on error resume next
			dim strsql,fie,uprs,fieldnum			
			fie=split(fieldhe,",")
			fieldnum=ubound(fie)
			set addRs=server.createobject("adodb.recordset")
			strsql="select *  from "& table &" where "& condition &"=" & guestid
			addRs.open strsql,db,1,2
			for i=0 to fieldnum
				addRs(fie(i))=request.Form(fie(i))				
			next
			addRs.update
			response.Redirect(website)
			end function
		
'----------------求表的记录总数函数

		public function GetNum(stable)
   			GetNum=db.execute("select count(1) from ["&stable&"]")(0)
		end function
			
'------------------------添加分类记录模块

		public 	function AddRecord(table,fieldhe,website)
			fie=split(fieldhe,",")
			fieldnum=ubound(fie)
			set addRs=server.createobject("adodb.recordset")
			strsql="select * from"&" "& table
			addRs.open strsql,db,0,2
			addRs.addnew
			for i=0 to fieldnum
				addRs(fie(i))=request.Form(fie(i))					
			next
			addRs("Index")=	GetNum(table)+1
			addRs.update			
			response.Redirect(website)
		end function
		
'---------------内容区		
	public 	function AddRecordCon(table,fieldhe,website)
			fie=split(fieldhe,",")
			fieldnum=ubound(fie)
			set addRs=server.createobject("adodb.recordset")
			strsql="select * from"&" "& table
			addRs.open strsql,db,0,2
			addRs.addnew
			for i=0 to fieldnum
				addRs(fie(i))=request.Form(fie(i))					
			next
			addRs.update		
			response.Redirect(website)
		end function
		
'------------------------添加内容模块	
'	public 	function AddRecordContent()
'		content=request.form("content")
'		title=request.form("title")
'		summary=request.form("summary")
'		ArticleClassID=request.form("ArticleClassID")
'		Summary=request.form("Summary")
'		Index_pic=request.form("Index_pic")		
'		response.write title & content& ArticleClassID&Index_pic &summary
'		set addRs=server.createobject("adodb.recordset")
'		strsql="select * from article"
'		addRs.open strsql,db,0,2
'		addRs.addnew
'		addRs("content")=content
'		addRs("summary")=summary
'		addRs("ArticleClassID")=ArticleClassID
'		addRs("title")=title
'		addRs("Index_pic")=Index_pic			
'		addRs.update		
'	end function
'---------------生成HTML代码文件函数


'------------------关闭对象
		Private Sub Class_Terminate()
		
			
			rs.Close
			Set rs=Nothing
			db.Close
			Set db=Nothing
		End Sub
end class
%>