Очень простая функция, используемая для определения нормального доступа к доменному имени веб-сайта. Функция urlChk(sUrl)
при ошибке продолжить дальше
Установите xmlHttp = Server.CreateObject(Microsoft.XMLHTTP)
xmlHttp.open GET, sUrl, ложь
xmlHttp.send
если xmlHttp.Status <> 200, то
urlChk = ложь
еще
urlChk=истина
конец, если
Конечная функция
sUrl=http://www.vevb.com
если urlChk(sUrl), то
response.write(sUrl&(доступен обычно))
еще
response.write(sUrl&(доступ недоступен))
конец, если