/// js code:
Function ISEXIST (URL) {
XMLHTTP = New ActiveXObject ("Microsoft.xmlhttp")
XMLHTTP.Open ("Get", URL, FALSE)
Xmlhttp.send ()
IF (xmlhttp.status == 200)
Alert (URL "exists"))
Else
Alert (URL "is not")
}
Script>
/// ASP code:
Function gethttppage (URL)
DIM HTTP
SET http = server.createObject ("Microsoft.xmlhttp")
Http.open "Get", URL, FALSE
Http.send ()
IF http.readystate <> 4 THEN
EXIT FUNCTION
Else
Gethttppage = http.status
END IF
Set http = Nothing
if Err.Number <> 0 Then Err.Clear
END FUNCTION