复制代码 代码如下:
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()
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！