on error resume next 使用技巧 關閉方法 濫用結果
on error resume next 這條語句是用來遮蔽出錯資訊,當出錯時,使得程式繼續執行的,不過在使用中,似乎很多人沒有考慮到on error resume next的作用範圍.比如
<%
On Error Resume Next
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("db.mdb")
If Err.Number<>0 Then Response
Set Rs=conn.execute("Select * from 表")
Do While Not rs.eof
response.write rs(0)
rs.movenext
loop
%>
類似上面的程式碼,如果錯誤是發生在建立資料連線的時候,那麼程式會按照我們設想的那樣停止執行,給出出錯資訊,但假如是在set rs=conn.execute("select * from 表")這裡出錯呢?這個時候on error resume next仍然在起作用,這時候,一個佔用cpu 100%的死迴圈就出現了,結果呢,如果伺服器設定的好,那頂多你自己的站點無法訪問了,如果伺服器設定不夠嚴格,那整個伺服器的站點都要遭殃,結果就是空間商停掉你的空間.
程式碼改造一下
<%
Dim conn
Sub connect
On Error Resume Next
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("db.mdb")
If Err.Number<>0 Then Response.Write "資料庫連線發生錯誤" : Response.End
End sub
connect
Set Rs=conn.execute
Do While Not rs.eof
response.write rs(0)
rs.movenext
loop
%>
這樣on error resume next就只作用於connect這個過程了,後面程式出錯,不會因為on error resume next而帶來死迴圈.
另外,on error resume next會遮蔽掉出錯資訊,在寫程式的時候,尤其是初學者寫程式的時候,很有可能因為這條語句的使用,使你忽略掉程式裡隱藏的一些小錯誤.所以一定要慎用.
由於死迴圈造成伺服器cpu100%,我們將暫停空間web服務,待修復問題後才可重新開通