Bonjour,

je voudrais une traduction de cette fonction en php.
elle permet de voir si un URL est valide ou pas!


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
<%
'Timeout values in milliseconds
lngResolveTimeout = 500
lngConnectTimeout = 500
lngSendTimeout = 500
lngReceiveTimeout = 500

strTestUrl = "http://www.microsoft.com/nonexistingpage.html"

Set objHttpRequest = CreateObject("MSXML2.ServerXMLHTTP")
With objHttpRequest
   .SetTimeouts lngResolveTimeout, lngConnectTimeout, lngSendTimeout,
lngReceiveTimeout
   .Open "GET", strTestUrl
   .Send
   Select Case .Status
      Case 200 'No problem!
         Response.Write strTestUrl & " is a valid, available URL"
      Case 404 'Not found
         Response.Write strTestUrl & " could not be found (404 Error)"
      Case Else 'Some other problem
         Response.Write "An unexpected HTTP Status value was returned: " &
.Status
   End Select
End With
Set objHttpRequest = Nothing
%>


Merci beaucoup