provider = "provider=microsoft.jet.oledb.4.0;"
dbpath = "data source=" & server.mappath(filename)
set getmdbconnection = getconnection( provider & dbpath )
end function

'---------------------------------------------------
function getsecuredmdbconnection( filename, password )
dim provider, dbpath

provider = "provider=microsoft.jet.oledb.4.0;"
dbpath = "data source=" & server.mappath(filename)
set getsecuredmdbconnection = getconnection( provider & dbpath & ";jet oledb:database password=" & password )
end function

'---------------------------------------------------
function getdbcconnection( filename )
dim driver, sourcetype, dbpath

driver = "driver={microsoft visual foxpro driver};"
sourcetype = "sourcetype=dbc;"
dbpath = "sourcedb=" & server.mappath( filename )
set getdbcconnection = getconnection( driver & sourcetype & dbpath )
end function

'---------------------------------------------------
function getdbfconnection( directory )
dim driver, sourcetype, dbpath

driver = "driver={microsoft visual foxpro driver};"
sourcetype = "sourcetype=dbf;"
dbpath = "sourcedb=" & server.mappath( directory )
set getdbfconnection = getconnection( driver & sourcetype & dbpath )
end function

'---------------------------------------------------
function getexcelconnection( filename )
dim driver, dbpath

driver = "driver={microsoft excel driver (*.xls)};"
dbpath = "dbq=" & server.mappath( filename )
set getexcelconnection = getconnection( driver & "readonly=0;" & dbpath )
end function

'---------------------------------------------------
function gettextconnection( directory )
dim driver, dbpath

driver = "driver={microsoft text driver (*.txt; *.csv)};"
dbpath = "dbq=" & server.mappath( directory )
set gettextconnection = getconnection( driver & dbpath )
end function

'---------------------------------------------------
function getsqlserverconnection( computer, userid, password, db )
dim params, conn

set getsqlserverconnection = nothing
params = "provider=sqloledb.1"
params = params & ";data source=" & computer
params = params & ";user id=" & userid
params = params & ";password=" & password
params = params & ";initial catalog=" & db
set conn = server.createobject("adodb.connection")
conn.open params
set getsqlserverconnection = conn
end function

'---------------------------------------------------
function getmdbrecordset( filename, source )
set getmdbrecordset = getmdbrs( filename, source, 2, "" )
end function

'---------------------------------------------------
function getmdbstaticrecordset( filename, source )
set getmdbstaticrecordset = getmdbrs( filename, source, 3, "" )
end function

'---------------------------------------------------
function getsecuredmdbrecordset( filename, source, password )
set getsecuredmdbrecordset = getmdbrs( filename, source, 2, password )
end function

'---------------------------------------------------
function getsecuredmdbstaticrecordset( filename, source, password )
set getsecuredmdbstaticrecordset = getmdbrs( filename, source, 3, password )
end function

'---------------------------------------------------
function getdbfrecordset( directory, sql )
set getdbfrecordset = getotherrs( "dbf", directory, sql, 2 )
end function

'---------------------------------------------------
function getdbfstaticrecordset( directory, sql )
set getdbfstaticrecordset = getotherrs( "dbf", directory, sql, 3 )
end function

'---------------------------------------------------
function getdbcrecordset( filename, sql )
set getdbcrecordset = getotherrs( "dbc", filename, sql, 2 )
end function

'---------------------------------------------------
function getdbcstaticrecordset( filename, sql )
set getdbcstaticrecordset = getotherrs( "dbc", filename, sql, 3 )
end function

'---------------------------------------------------
function getexcelrecordset( filename, sql )
set getexcelrecordset = getotherrs( "excel", filename, sql, 2 )
end function

'---------------------------------------------------
function getexcelstaticrecordset( filename, sql )
set getexcelstaticrecordset = getotherrs( "excel", filename, sql, 3 )
end function

'---------------------------------------------------
function gettextrecordset( directory, sql )
set gettextrecordset = getotherrs( "text", directory, sql, 2 )
end function

'---------------------------------------------------
function gettextstaticrecordset( directory, sql )
set gettextstaticrecordset = getotherrs( "text", directory, sql, 3 )
end function

'---------------------------------------------------
function getsqlserverrecordset( conn, source )
dim rs

set rs = server.createobject("adodb.recordset")
rs.open source, conn, 2, 2
set getsqlserverrecordset = rs
end function

'---------------------------------------------------
function getsqlserverstaticrecordset( conn, source )
dim rs

set rs = server.createobject("adodb.recordset")
rs.open source, conn, 3, 2
set getsqlserverstaticrecordset = rs
end function

'---------------------------------------------------
function getconnection( param )
dim conn

on error resume next
set getconnection = nothing
set conn = server.createobject("adodb.connection")
if err.number <> 0 then exit function

conn.open param
if err.number <> 0 then exit function
set getconnection = conn
end function

'---------------------------------------------------
function getmdbrs( filename, source, cursor, password )
dim conn, rs

on error resume next
set getmdbrs = nothing
if len(password) = 0 then
set conn = getmdbconnection( filename )
else
set conn = getsecuredmdbconnection( filename, password )
end if
if conn is nothing then exit function

set rs = server.createobject("adodb.recordset")
if err.number <> 0 then exit function

rs.open source, conn, cursor, 2
if err.number <> 0 then exit function
set getmdbrs = rs
end function

'---------------------------------------------------
function getotherrs( datatype, path, sql, cursor )
dim conn, rs
on error resume next
set getotherrs = nothing

select case datatype
case "dbf"
set conn = getdbfconnection( path )
case "dbc"
set conn = getdbcconnection( path )
case "excel"
set conn = getexcelconnection( path )
case "text"
set conn = gettextconnection( path )
end select
if conn is nothing then exit function

set rs = server.createobject("adodb.recordset")
if err.number <> 0 then exit function

rs.open sql, conn, cursor, 2
if err.number <> 0 then exit function
set getotherrs = rs
end function

'---------------------------------------------------
function getsqlserverrs( computer, userid, password, db, source, cursor )
dim conn, rs

on error resume next
set getsqlserverrs = nothing
set conn = getsqlserverconnection( computer, userid, password, db )
if conn is nothing then exit function

set rs = server.createobject("adodb.recordset")
if err.number <> 0 then exit function

rs.open source, conn, cursor, 2
if err.number <> 0 then exit function
set getsqlserverrs = rs
end function
%>
使用方法是——复制下来存成一个文件，然后用#include “文件名”就可以调用里面的子程序了。
有什么问题可以一起探讨！！！


编辑：黑鹰　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：mysql的操作类
下一篇：mysql数据库函数详解
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。