Test validation url (code erreur 200, 404 etc....)

Question

Test validation url (code erreur 200, 404 etc....)

Signaler

angenoir666

Messages postés: 5
Date d'inscription: mercredi 19 avril 2006
Statut: Membre
Dernière intervention: 25 juin 2009

- 25 juin 2009 à 02:30
angenoir666

Messages postés: 5
Date d'inscription: mercredi 19 avril 2006
Statut: Membre
Dernière intervention: 25 juin 2009

- 25 juin 2009 à 02:34

Bonjour

J'ai développé une page web permettant de savoir si un lien est bon ou pas en récupérant le code erreur html.

Mais voila tout est en vert donc bon alors qu'il y a dans ma liste deux urls qui ne sont pas bonne, si vous pouvez m'aidez à identifier ou est mon erreur merci.

voici le code de ma page:

<html><head><meta http-equiv="Content-Language" content="fr" /><meta http-equiv="Content-Type" content="text/html; charset=windows-1252" /><meta http-equiv="refresh" content="300;URL=" /><title>MEDERIC</title></head>
<% @language=vbscript %>
<%
Dim objXMLHTTP, strFileURL, username, password, conn, rs

username = "si2m\adm-bwd"
password = "mon73slo"

ON ERROR RESUME NEXT
%>

<%
'connection a la base de donnée
Set Conn = server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Provider=Microsoft.Jet.OLEDB.4.0;\" & \"Data Source=\" & Server.MapPath(\".\") & \"\site.mdb\"
Set rs = server.CreateObject(\"ADODB.Recordset\")
rs.Open \"Select * from url\", Conn, 1, 3

rs.movefirst
do while not rs.eof

strFileURL = rs(\"site\")
ht = rs(\"ht\")

'if ht = \"http\" then
'Set objXMLHTTP = CreateObject(\"MSXML2.ServerXMLHTTP\")
'else
Set objXMLHTTP = CreateObject(\"MSXML2.ServerXMLHTTP.6.0\")
'end if
objXMLHTTP.open \"POST\", strFileURL, false
objXMLHTTP.send()

dd = objXMLHTTP.Status
if objXMLHTTP.Status 200 or objXMLHTTP.Status 0 then
response.write(\"----
" & rs("nom") & ", \")
else
'connection a la base de donnée
Set Conn1 = server.CreateObject(\"ADODB.Connection\")
Conn1.Open \"Provider=Microsoft.Jet.OLEDB.4.0;\" & \"Data Source=\" & Server.MapPath(\".\") & \"\HTM.mdb\"
Set rs1 = server.CreateObject(\"ADODB.Recordset\")
rs1.Open \"Select * from codeht where a='\" & dd & \"'\", Conn1, 1, 3

response.write(\"----
" & rs("nom") & " - " & objXMLHTTP.Status & "")
response.write("" & rs1("a") & " - " & rs1("b") & " - " & rs1("c") & ", \")

rs1.close
set rs1=nothing
Conn1.close
set Conn1=nothing
end if

rs.movenext
Loop

rs.close
set rs=nothing
Conn.close
set Conn=nothing
%>

</html>

A moins que ce soit le paramétrage de iis a modifier, mais la je ne sais pas quoi faire.

merci d'avance

Afficher la suite

A voir également:

Test validation url (code erreur 200, 404 etc....)
Erreur http 404.3 - not found - Forum - ASP / ASP3
Visual Basic / VB.NET : Créer un raccourci internet (.url) - CodeS SourceS - Guide
Visual Basic / VB.NET : Vérifier l'existence d'une url - CodeS SourceS - Guide
Visual Basic / VB.NET : Validation formulaire - CodeS SourceS - Guide
Visual Basic / VB.NET : Validation xml - CodeS SourceS - Guide

1 réponse

Répondre Posez votre question

angenoir666 · Answer 1 · 2009-06-25T02:34:07+0200

oups mauvais format pour le message:

revoici le code:

<html>

<head>
<meta http-equiv="Content-Language" content="fr">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="refresh" content="300;URL=">
<title>MEDERIC</title>
</head>

<% @language=vbscript %>
<%
Dim objXMLHTTP, strFileURL, username, password, conn, rs

username = "si2m\adm-bwd"
password = "mon73slo"

ON ERROR RESUME NEXT
%>

<%
'connection a la base de donnée
Set Conn = server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Provider=Microsoft.Jet.OLEDB.4.0;\" & \"Data Source=\" & Server.MapPath(\".\") & \"\site.mdb\"
Set rs = server.CreateObject(\"ADODB.Recordset\")
rs.Open \"Select * from url\", Conn, 1, 3

rs.movefirst
do while not rs.eof

strFileURL = rs(\"site\")
ht = rs(\"ht\")

'if ht = \"http\" then
'Set objXMLHTTP = CreateObject(\"MSXML2.ServerXMLHTTP\")
'else
Set objXMLHTTP = CreateObject(\"MSXML2.ServerXMLHTTP.6.0\")
'end if
objXMLHTTP.open \"POST\", strFileURL, false
objXMLHTTP.send()

dd = objXMLHTTP.Status
if objXMLHTTP.Status 200 or objXMLHTTP.Status 0 then
response.write(\"----
" & rs("nom") & ", \")
else
'connection a la base de donnée
Set Conn1 = server.CreateObject(\"ADODB.Connection\")
Conn1.Open \"Provider=Microsoft.Jet.OLEDB.4.0;\" & \"Data Source=\" & Server.MapPath(\".\") & \"\HTM.mdb\"
Set rs1 = server.CreateObject(\"ADODB.Recordset\")
rs1.Open \"Select * from codeht where a='\" & dd & \"'\", Conn1, 1, 3

response.write(\"----
" & rs("nom") & " - " & objXMLHTTP.Status & "")
response.write("" & rs1("a") & " - " & rs1("b") & " - " & rs1("c") & ", \")

rs1.close
set rs1=nothing
Conn1.close
set Conn1=nothing
end if

rs.movenext
Loop

rs.close
set rs=nothing
Conn.close
set Conn=nothing
%>

</html>

Votre réponse