conn.asp

asp源码

<%
dim dbfile,dbfile1,connstr,connstr1,conn,conn1,rs,rs1
function opendb(tablename,seq)
	dbfile="Databases/qaz123.mdb"   
	dbpath=Server.MapPath(dbfile)
	set fso=server.createObject("scripting.filesystemobject")     '判断数据库的位置  开始
	if not fso.fileExists(dbpath) then dbpath=server.mappath("../" &dbfile)    
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
	'connstr="Driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile
	set fso=nothing         					''判断数据库的位置  结束
	set conn=server.createObject("adodb.connection")
	set rs=server.createObject("adodb.recordset")
	conn.open connstr
	'response.write rs
	
	rs.open "select * from "&tablename&" order by "&seq&" desc",conn,1,1
	'response.Write "select * from "&tablename&" order by "&seq&" desc"
  ' response.End()
end function

function opendb1(tablename,seq)
	dbfile1="Databases/qaz123.mdb"
	dbpath1=Server.MapPath(dbfile1)
	set fso=server.createObject("scripting.filesystemobject")
	if not fso.fileExists(dbpath1) then dbpath1=server.mappath("../" &dbfile1)
'	connstr1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath1
	connstr1="Driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath1
	set fso=nothing
	set conn1=server.createObject("adodb.connection")
	set rs1=server.createObject("adodb.recordset")
	conn1.open connstr1
	rs1.open "select * from "&tablename&" order by "&seq&" desc",conn1,1,1
end function
Function pizzopendb(querystr,rsmode)
	dbname="../Databases/qaz123.mdb"
	dbpath=Server.MapPath(dbname)
	set fso=server.createObject("scripting.filesystemobject")
	if not fso.fileExists(dbpath) then dbpath=server.mappath("../" & dbname)
	connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
	set fso=nothing
	set conn=Server.CreateObject("ADODB.CONNECTION")
	conn.open connstr
	If not querystr="" then
		set rs1=Server.CreateObject("ADODB.Recordset")
		Select case rsmode
			case "1" rs1.open querystr,conn,1,1
			case "2" rs1.open querystr,conn,2,2
			case "3" rs1.open querystr,conn,1,3
			case else rs1.open querystr,conn,1,1
		End Select
	End If
End Function

Function pizzopendb1(querystr1,rsmode)
	dbname="Databases/qaz123.mdb"
	dbpath=Server.MapPath(dbname)
	set fso=server.createObject("scripting.filesystemobject")
	if not fso.fileExists(dbpath) then dbpath=server.mappath("../" & dbname)
	connstr1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
	set fso=nothing
	set conn1=Server.CreateObject("ADODB.CONNECTION")
	conn1.open connstr1
	If not querystr1="" then
		set rs1=Server.CreateObject("ADODB.Recordset")
		Select case rsmode
			case "1" rs1.open querystr1,conn1,1,1
			case "2" rs1.open querystr1,conn1,2,2
			case "3" rs1.open querystr1,conn1,1,3
			case else rs1.open querystr1,conn1,1,1
		End Select
	End If
End Function


function writedb(tablename,seq)
	dbfile="Databases/qaz123.mdb"
	dbpath=Server.MapPath(dbfile)
	set fso=server.createObject("scripting.filesystemobject")
	if not fso.fileExists(dbpath) then dbpath=server.mappath("../" &dbfile)
	connstr="Driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
	set fso=nothing
	set conn=server.createobject("ADODB.CONNECTION")
	set rs=Server.CreateObject("ADODB.Recordset")
	conn.open connstr
	rs.open "select * from "&tablename&" order by "&seq&" desc",conn,1,3
end function

function pizzclosedb()
	rs1.close
		set rs1=nothing
	
	conn.close
	set conn=nothing
end function

function pizzclosedb1()
	rs1.close
		set rs1=nothing
	
	conn1.close
	set conn1=nothing
end function

function closedb()
	if vartype(rs)=0 then
		rs.close
		set rs=nothing
	end if
	conn.close
	set conn=nothing
end function

function closedb1()
	if vartype(rs1)=0 then
		rs1.close
		set rs1=nothing
	end if
	conn1.close
	set conn1=nothing
end function
%>