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