asp 数据库连接函数代码

以下是sql连接代码：

function open_conn()
dim conn,strconn
set conn=server.createobject("adodb.connection")
strconn = "provider = sqloledb; user id = 数据库登录帐号; password = 数据库登录密码; initial catalog = 数据库名称; data source = (local);"
conn.open strconn
set open_conn=conn
if err then
err.clear
conn.close:set conn=nothing
response.write "对不起，数据库连接出错。"
response.end
end if
end function

调用方法：
将原来的

rs.open sql,conn

改成

rs.open sql,open_conn()

以下是access连接代码：

function open_conn()
dim dbpath,conn
dbpath=server.mappath("数据库路径")
set conn=server.createobject("adodb.connection")
conn.open "data source="&dbpath&";provider=microsoft.jet.oledb.4.0;"
set open_conn=conn
if err then
err.clear
conn.close:set conn=nothing
response.write "对不起，数据库连接出错。"
response.end
end if
end function

调用方法：
将原来的

rs.open sql,conn

改成

rs.open sql,open_conn()