0
要在asp开发中执行url验证使用此代码,我允许验证服务器上是否存在某些图像,否则显示另一个路径,请勿使用FileExits,因为图像不在同一台服务器上。检查网址的存在 - ASP经典
你知道任何其他方式吗?
要在asp开发中执行url验证使用此代码,我允许验证服务器上是否存在某些图像,否则显示另一个路径,请勿使用FileExits,因为图像不在同一台服务器上。检查网址的存在 - ASP经典
你知道任何其他方式吗?
这是我的解决方案:
<%
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
%>
问候
你尝试过什么?这不是一个代码写作服务,帮助我们帮助你。见[问]。 – Lankymart
此解释可以解决在代码中查找网址的问题。 – juanitourquiza