资讯信息
       宝鸡楼市
       二手房行情
       租赁行情
       商品住宅日成交
       预售许可证
    重点房源推介
    政策法律
    全国人大
    国务院
       行政法规
       国发国办文件
    部委规章文件
       住建部规章
       住建部文件
       财政税务局
       其它部委及法院
    省级法规及文件
    市级文件
       市政府文件
       市级部门文件
    专题报道
       经验分享
       资料分享
       股票知识
       健康保健
    加盟八千家
       加盟八千家
       经纪人天地
   
   当前位置--八千家资讯--经验分享--正文

访问数据库的程序优化
    您访问8000j·宝鸡房地产网    录入:绿叶 时间:2015-12-14 20:28:40  点击数:1184    

 

二.访问数据库的程序优化

主要都是因为对数据库存取完后,没有及时释放记录集和断开数据库连接

rs.close
set rs=nothing

conn.close
set conn=nothing

<%
dim conn
dim connstr
dim db
db="database/data.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(""&db&"")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "服务器正在维护,请稍后再试。"
Response.End
End If
Sub CloseConn()
'以下是断开数据库连接语句
conn.close
set conn=nothing
End Sub
%>

<!--#include file="conn.asp"-->
<%
sql="select * from table order by id"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
tel=rs("tel")
fax=rs("fax")
end if
'以下关闭并释放记录集语句
rs.close
set rs=nothing
'调用断开数据库连接子函数
Call CloseConn()
%>

  • 上一篇文章: 我桌面上的IE浏览器图标不见了

  • 下一篇文章: 优化一下你的access数据库方法
  • 发表评论打印此文】【关闭窗口
      网友评论:(评论内容只代表网友观点,与本站立场无关!)
        没有任何评论


    Copyright @2005 All Rights Reserved
    版权所有:8000j网(八千家)
    声明:本网站文章、数据来源于网络,仅供学习之用,不构成投资建议,如有侵权,电函后3日内删除。
    电话:0917-15309175008 E-mail:8000j@163.com
    八千里路云和月,让爱有个家!——八千家(8000j)