XHR-запросы к Иссуу не получают ответа. (Классический ASP)
Я присматриваю за двумя аукционными сайтами для клиентов, которые также используют Issuu для публикации цифровых версий своих каталогов. В течение последних 48 часов оба сообщили, что на сайтах больше не отображаются ссылки на версии каталогов Issuu. Оба используют один и тот же метод, чтобы проверить, доступен ли каталог на Issuu, отправив запрос заголовка XHR с веб-сервера (оба сайта находятся на одном сервере), и если я получу ответ, то сайт поменяется ссылкой.
Вот код, это классический ASP, и он отлично работал до нескольких дней назад и работает для других сайтов, которые я тестировал, например, Google, MS, мой собственный сайт, но не Issuu.
Есть идеи?
Кодекс следует....
Function InsertIssuuLink(s_saleno)
'$! Looks for designated folder on remote site
dim xmlhttp
dim s_targetURL
dim s_tmp
InsertIssuuLink = ""
s_saleno = trim(s_saleno)
s_targetURL = "http://issuu.com/artcurialbpt/docs/" & s_saleno & ""
'$! Create instance of Server XHR object
set xmlhttp = server.CreateObject("MSXML2.ServerXMLHTTP")
'$! Perform header request - most efficient way of determining if folder / item is present
xmlhttp.open "HEAD", s_targetURL, true
xmlhttp.send
'$! Ignore errors - better for page to finish loading without link than to throw an error
On Error Resume Next
'$! Wait the waitForResponse no of seconds if we've not gotten the data yet (readyState = 4 : request completed)
If xmlhttp.readyState <> 4 then
xmlhttp.waitForResponse 5
End If
If Err.Number <> 0 then
InsertIssuuLink = ""
Else
If (xmlhttp.readyState <> 4) Or (xmlhttp.Status <> 200) Then
'Abort the XMLHttp request
xml.Abort
InsertIssuuLink = ""
Else
InsertIssuuLink = "<a href=""" & s_targetURL & "?e=6268161/"" onclick=""pageTracker._trackPageview ('/outgoing/issuu/" & s_saleno & "');window.open(this.href);return false;"">Consulter le E-Catalogue</a><br />"
b_show_catalogue_section = true
End If
End If
End Function