|
XML Parser + ASP - помогите!
|
|||
---|---|---|---|
#18+
Делаю так: Dim HttpReq,objErr,HttpURL Set ImgRequest = Server.CreateObject("MSXML2.XMLHTTP") Set myXML =Server.CreateObject("MSXML.DOMDocument") myXML.Async=False SoapURL = "http://www.yahooeeeee.com/" ImgRequest.Open "GET",SoapURL,false ImgRequest.Send() if not myXML.load(ImgRequest.responseText) then returnString = "" Response.Write "BAD URL<br>" else Response.Write "GOOD URL<br>" end if ЕСЛИ URL не отзывается например - нет такой страницы, то в строке ImgRequest.Send() возникает такая ошибка: Error Type: (0x800C0005) /test.asp, line 20 Как сделать так, что бы ее не было. Мне надо проверять URL на "живые" и "неживые" и надо игнорировать ошибку, просто знать, что страница не откликается. Я никогда раньше не использовал XML Parser но думаю там как-то можно какое-то из свойств проверять, или как-то проверять - есть странца или нет ее. Очень надо. Помогите пожалуйста. ... |
|||
:
Нравится:
Не нравится:
|
|||
11.02.2003, 23:55 |
|
XML Parser + ASP - помогите!
|
|||
---|---|---|---|
#18+
Все, сам сделал: Будет так: On Error Resume Next Dim HttpReq,objErr,HttpURL Set ImgRequest = Server.CreateObject("MSXML2.XMLHTTP") Set myIMG=Server.CreateObject("MSXML.DOMDocument") myIMG.Async=False imgURL = "http://www.yahoo.com/" ImgRequest.Open "GET",imgURL,false ImgRequest.Send() if Err.Number<>0 then Response.Write "BAD URL<br>" Response.write "Error # " & CStr(Err.Number) & " " & Err.Description Err.Clear else Response.Write "GOOD URL<br>" end if ... |
|||
:
Нравится:
Не нравится:
|
|||
12.02.2003, 00:06 |
|
|
start [/forum/topic.php?fid=18&msg=32105845&tid=1396575]: |
0ms |
get settings: |
11ms |
get forum list: |
12ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
28ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
35ms |
get tp. blocked users: |
1ms |
others: | 255ms |
total: | 364ms |
0 / 0 |