<%
'***********************
'描述：数据库连接类
'作者：STEVEN
'日期：2008-5-20
'***********************
dim db1,connstr1,conn1
db1="../meeting_data/bit_2010.mdb"

connstr1="DBQ="+server.mappath(""&db1&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn1=server.createobject("ADODB.CONNECTION")
conn1.open connstr1

Class Connections
	Public 	rs
	Public 	sqlstr
	Private conn
	Private connstr
	Private strUserName
	Private strPassword
	Private strDatabase
	Private strServer
	
	'构造函数
	Private Sub Class_initialize
		set conn=server.CreateObject("ADODB.Connection")
		set rs=server.CreateObject("ADODB.recordset")
		datebase="../meeting_data/bit_2010.mdb" 
		connstr="DBQ="+server.mappath(""&datebase&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
		conn.Open connstr
	End Sub
	
	'析构函数
	Private Sub Class_terminate
		conn.Close
		set conn=nothing
	End Sub

	'查询函数
	Public Function Query(querystr,stat)
			if stat=0 then	'无返回值
				conn.execute(querystr)
				Query=""
			else
				set Query=conn.execute(querystr)
			end if
	End Function

	'取纪录数函数
	Public Function GetRecordcount(tmprs)
		set rs=tmprs
		dim cnt
		while not rs.eof
			cnt=cnt+1
			rs.movenext
		wend
		GetRecordcount=cnt
	End Function
	
	'取页数
	Public Function GetPagecount(totalnum,psize)
		tmpcount=totalnum\psize
		if totalnum mod psize<>0 then
			tmpcount=tmpcount+1
		end if
		GetPagecount=tmpcount
	End Function
	
End Class
%>