采集時出現：

msxml3.dll錯誤'800c0005'

系統未找到指定的資源。

/Admin/Item/Admin_ItemFunction.asp，行166

我查了資料：

在運用xmlhttp組件編寫程序中，會碰到"msxml3.dll錯誤'800c0005'系統未找到指定的資源。"這種錯誤，網上對這種錯誤的產生原因有很多鐘解釋，大體說是因為防火墻或UDP站口權限造成了，也說了相應的解決辦法。其它有時候也未必。其實錯誤的描述中就說出了主要的原因"系統未找到指定的資源"。這種錯誤都是出現在調用了xmlhttp組件的Open方法，接著再用Send方法后造成的。當open方法的的url參數無法訪問時，就會造成8000005錯誤。并且一旦產生這種錯誤，就會導致應用程序終止，無法繼續操作。大多說的程序是這樣寫的:

1. FunctionfunctionName(pararm...) 
2.  
3. DimHttp 
4.  
5. SetHttp=Server.CreateObject("MSXML2.XMLHTTP.4.0") 
6.  
7. WithHttp 
8.  
9. .open"GET",HttpUrl,False 
10.  
11. .Send 
12.  
13. EndWith 
14.  
15. IfHttp.Readystate<>4then 
16.  
17. SetHttp=Nothing 
18.  
19. ...... 
20.  
21. Exitfunction 
22.  
23. Endif 
24.  
25. EndFunction 

大多數的程序都是運用xmlhttp的Readystate屬性判斷從服務器的返回狀態。其實這樣未必適合，很多時候用ReadyState屬性判斷并不能真正檢測到程序流程中的錯誤。當遇到錯誤的時候，仍然會致使程序終止。其實修改一下上面的代碼，完全可以實現跳過程序執行過程中遇到的錯誤，使程序繼續運行。修改代碼如下:

1. FunctionfunctionName(pararm...) 
2.  
3. DimHttp 
4.  
5. SetHttp=Server.CreateObject("MSXML2.XMLHTTP.4.0") 
6.  
7. WithHttp 
8.  
9. .open"GET",HttpUrl,False 
10.  
11. .Send 
12.  
13. EndWith 
14.  
15. OnErrorResumeNext 
16.  
17. IfHttp.Status<>200then 
18.  
19. SetHttp=Nothing 
20.  
21. ...... 
22.  
23. Exitfunction 
24.  
25. Endif 
26.  
27. EndFunction 

Send方法產生錯誤的時候，ReadyState的值或許為4，但Status的返回值就一定不是200的。呵呵，我經過多次跟蹤ReadyState和Status的值得到以前結果。可能會有差錯，目前我還沒有發現。

希望以上程序解決方案能夠幫到你!!如果朋友你有更好的解決方法，請一定告訴我喲。

我是以MSXML2.XMLHTTP.4.0為例說明的程序，也適合其它版本的XMLHTTP組件。想檢查的你系統中已經安裝了哪些版本的XMLHTTP組件，請到注冊表的HKEY_CLASSES_ROOT下查找。

根據以上資料，我只做了如下修改，便可以正常采集，無需進行什么安裝組件、重起、關閉防火墻等操作：

/Admin/Item/Admin_ItemFunction.asp，行166附近：

Http.Send()

IfHttp.Readystate<>4then

改為

OnErrorResumeNext

Http.Send()

IfHttp.Status<>200then