于是我登陸主機(jī)的管理面板，重啟了網(wǎng)站服務(wù)，ldb文件就消失了，網(wǎng)站打開(kāi)也正常了，但過(guò)了數(shù)小時(shí)后，網(wǎng)站又再次出現(xiàn)以上情況，此種情況持續(xù)了好一段時(shí)間，網(wǎng)站后來(lái)被虛擬主機(jī)的供應(yīng)商屏蔽了，反饋給我的說(shuō)法是因?yàn)槲业木W(wǎng)站運(yùn)行時(shí)大量占用CPU資源，所以予暫時(shí)屏蔽，讓我對(duì)網(wǎng)站程序或數(shù)據(jù)庫(kù)進(jìn)行優(yōu)化。
在百度上搜索了一下這方面的情況，結(jié)果也不少，總結(jié)下來(lái)主要都是因?yàn)閷?duì)數(shù)據(jù)庫(kù)存取完后，沒(méi)有及時(shí)釋放記錄集和斷開(kāi)數(shù)據(jù)庫(kù)連接，以下談?wù)劜僮鰽ccess數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)方法:
1、數(shù)據(jù)庫(kù)連接方法：Conn.asp
<%
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 "服務(wù)器正在維護(hù)，請(qǐng)稍后再試。"
Response.End
End If
Sub CloseConn()
'以下是斷開(kāi)數(shù)據(jù)庫(kù)連接語(yǔ)句
conn.close
set conn=nothing
End Sub
%>
2、關(guān)閉釋放記錄集
rs.close
set rs=nothing
3、斷開(kāi)數(shù)據(jù)庫(kù)連接
conn.close
set conn=nothing
結(jié)合以上三個(gè)內(nèi)容，得出以下操作Access數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)方法 Test.asp
<!--#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
'以下關(guān)閉并釋放記錄集語(yǔ)句
rs.close
set rs=nothing
'調(diào)用斷開(kāi)數(shù)據(jù)庫(kù)連接子函數(shù)
Call CloseConn()
%>
根據(jù)這個(gè)標(biāo)準(zhǔn)，我對(duì)我的網(wǎng)站程序進(jìn)行地氈式的排查、補(bǔ)漏，最后我的網(wǎng)站終于得于正常訪問(wèn)，再也沒(méi)有出現(xiàn)以前數(shù)據(jù)庫(kù)死鎖的情況了。