文章探索:   分类:    关键字:  
  + 栏目导航
  + 相关文章
asp中有关字符编码转换的几个函数
绝妙的asp生成静态页面html函数
Asp计算页面执行时间
一个简单的用存储过程分页
将asp页面转换成htm页面
ASP网站漏洞解析及黑客入侵防范方法
URL编码与SQL注入
几种常用排序算法(asp)
ASP调用带参数存储过程的几种方式
实用的ASP连接数据库的函数
ASP如何获取真实IP地址
ASP中怎么实现SQL数据库备份、恢复
判断Cookies是否处于开启状态
怎样才能将服务器端文件夹下的文件,..
几行Asp代码实现防止表单重复提交
用ASP设计网站在线人数统计程序
asp论坛在线人数统计研究
如何用ASP远程在数据库中创建Table
用ASP调用SQL Server的视图和存储过程
Asp与XML的关系
ASP读取EXCEL
在ASP中使用Oracle数据库技巧
一个通过web.Mail发送邮件的类
几种打开记录集方式的比较
购物车范例(购物车页面 )
如何使用FSO搜索硬盘文件
GB码和BIG5码的互换技术
用ASP开发WEB日期选择器
一个投票系统的源程序(coveryourasp.c..
列出服务器上的打印机


技术教程 -> ASP教程 ->  
实用的ASP连接数据库的函数
来源:转载   人气:1607   录入时间:2007-11-8
    细心的开发人员有时会想到,我们在一个需要读写数据库的页面里包含类似
   
   <!-- #include file="conn.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()
   
   顺便提供一个同一服务器上可以跨站共享ACCESS数据库的老代码,也许有朋友用得着:
   
   有时,我们有很多二级域名,可能需要让这些二级域名调用某同一个ACCESS数据库,在你不愿意使用SQL数据库的情况下,数据库连接可以采用以下办法。(特别提示:如果你的服务器做了FSO安全权限,需要将这个数据库目录设置为,允许你需要调用的各站的IIS用户有权访问修改。)
   
   以下的数据库物理路径类似于 E:\目录\目录\数据库名
   
   dim Conn,Strconn
   Set Conn = Server.CreateObject("ADODB.Connection")
   Strconn="Provider = Microsoft.Jet.OLEDB.4.0; "
   Strconn=Strconn & "Data Source=数据库物理路径"
   Conn.Open Strconn
   If Err Then
   err.Clear
   Conn.close:set Conn=nothing
   Response.Write "对不起,数据库连接出错。"
   Response.End
   End If
   
   




Copyright(C)2007-2021 广州市佳沛数码科技有限公司 版权所有
公司地址: 广州市荔湾区东漖北路560号511室
电话:020-81803473 传真:020-81544987