asp 数据库连接函数代码

封装数据库连接代码于函数之中，使其成为一个便捷的工具，随时可在需要时调用。以下是针对SQL数据库的连接代码示例。

Function Open_SQL_Connection()

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_SQL_Connection = 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_SQL_Connection()。这样，无论何时需要连接到数据库，只需调用此函数即可。

对于ACCESS数据库的连接代码，示例如下：

Function Open_ACCESS_Connection()

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_ACCESS_Connection = Conn

If Err Then

Err.Clear

Conn.Close

Set Conn = Nothing

Response.Write("非常抱歉，数据库连接出错。")

Response.End

End If

End Function

调用方法与上述SQL连接方式相同，即：将原先的 rs.Open sql, conn 改为 rs.Open sql, Open_ACCESS_Connection()。这样，无论何时需要连接ACCESS数据库，只需调用此函数即可轻松实现连接。当数据库连接出现错误时，系统会提示相应的错误信息。