二.访问数据库的程序优化
主要都是因为对数据库存取完后,没有及时释放记录集和断开数据库连接
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() %>
|