asp 数据库连接函数代码介绍

以下是SQL连接代码：

复制代码 代码如下:

Function Open_conn()

dim Conn,Strconn

set Conn=teobject("ection")

Strconn = "Provider = Sqloledb; User ID = 数据库登录帐号; Password = 数据库登录密码; Initial Catalog = 数据库名称; Data Source = (local);"

Strconn

set Open_conn=Conn

If Err Then

r

e:set Conn=nothing

e "对不起，数据库连接出错。"

End If

End Function

调用方法：

将原来的

复制代码 代码如下:

sql,conn

改成

复制代码 代码如下:

sql,Open_conn()

以下是ACCESS连接代码：

复制代码 代码如下:

Function Open_conn()

dim Dbpath,Conn

Dbpath=server.MapPath("数据库路径")

set Conn=teObject("ection")

"data source="&dbpath&";provider=B.4.0;"

set Open_conn=Conn

If Err Then

r

e:set Conn=nothing

e "对不起，数据库连接出错。"

End If

End Function

调用方法：

将原来的

复制代码 代码如下:

sql,conn

改成

复制代码 代码如下:

sql,Open_conn()