服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|JavaScript|易语言|

服务器之家 - 编程语言 - ASP教程 - asp 数据库连接函数代码

asp 数据库连接函数代码

2019-09-14 20:32asp教程网 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() 

延伸 · 阅读

精彩推荐