檢查網址的存在 - ASP經典

Question

要在asp開發中執行url驗證使用此代碼，我允許驗證服務器上是否存在某些圖像，否則顯示另一個路徑，請勿使用FileExits，因爲圖像不在同一臺服務器上。

你知道任何其他方式嗎？

Answer 1

這是我的解決方案：

<% 
revisar_url = "http://www.tutores.org" 
Response.write "<br>Revisando:<b>" & revisar_url & "</b><br>" 

If comprobar_componente("Msxml2.XMLHTTP") Then 
    Select Case Revisar_esta_url(revisar_url) 
     Case 200 : Response.Write "La url Si existe." 
     Case 404 : Response.Write "El sitio web existe, pero no la pagina especificada" 
     Case Else : Response.Write "La url indicada ouede que no exista" 
    End Select 
Else 
    Response.Write "Necesitas tener instalado el componente Msxml2.XMLHTTP" 
End if 

Function comprobar_componente(ProgId) 
    Dim objeto_temp 
    On Error Resume Next 
    Set objeto_temp = Server.CreateObject(ProgId) 
    If Err.Number = 0 Then 
     comprobar_componente = True 
    Else 
     comprobar_componente = False 
    End If 

    Set objeto_temp = Nothing 
End Function 

Function Revisar_esta_url(strURL) 
    Dim objXML 

    Set objXML = CreateObject("Msxml2.XMLHTTP") 
    objXML.open "GET", strURL, false 
    On error resume next 
    objXML.send 
    Revisar_esta_url = objXML.Status 
End Function 
%> 

問候