将数据库连接代码封装在函数里，在需要读取时调用这个函数。
以下是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
En来源gao@dai!ma.com搞$代^码网d If
End Function
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
En来源gao@dai!ma.com搞$代^码网d 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
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()
以上就是asp 数据库连接函数代码的详细内容，更多请关注gaodaima搞代码网其它相关文章！
搞代码网（gaodaima.com）提供的所有资源部分来自互联网，如果有侵犯您的版权或其他权益，请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected]，我们会在看到邮件的第一时间内为您处理，或直接联系QQ：872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接：asp 数据库连接函数代码
转载请注明原文链接：asp 数据库连接函数代码
