Советы ASP: Определите, существует ли удаленная картина

Функция CheckUrl (byval a_strurl)

Установить xmlhttp = server.createObject (microsoft.xmlhttp)

Xmlhttp.open Head, a_strurl, false

Xmlhttp.send ()

CheckUrl = (xmlhttp.status = 200)

Установите xmlhttp = ничего

конечная функция

Dim Imgurl

imgurl = uploadfiles/2007829144940734.gif

Если CheckUrl (imgurl), тогда

Ответ. Написание картинка существует

еще

response.write picture не существует

конец, если

Определите, существует ли удаленное изображение [код JS]

{

var oreq = new ActivexObject (microsoft.xmlhttp)

oreq.open (get, uploadfiles/2007829144941621.gif, false);

oreq.send ();

//Alert(Oreq.status)

if (oreq.status == 404)

оповещение («не существует»);

еще

Блюдо (существует)

}