Asp classic 对ISSU的XHR请求没有得到响应。（经典ASP）

我为同样使用ISSU发布电子版目录的客户管理两个拍卖网站。在过去48小时内，两家公司都报告说，这些网站不再显示指向ISSU版本目录的链接。两者都使用相同的方法来测试ISSU上是否有目录，从Web服务器发送XHR head请求（两个站点位于同一服务器上），如果我得到响应，则站点交换链接

这是代码，它是经典的ASP，直到几天前它还工作得很好，适用于我测试过的其他网站，例如谷歌、微软、我自己的网站，只是不适用于ISSU

有什么想法吗

代码如下

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

Function insertissulink（s_saleno）
'$! 在远程站点上查找指定的文件夹
dimXMLHTTP
dim s_目标URL
dim s_tmp
insertissulink=“”
s_saleno=修剪（s_saleno）
s_targetURL=”http://issuu.com/artcurialbpt/docs/“&s_saleno&”
'$! 创建服务器XHR对象的实例
设置xmlhttp=server.CreateObject（“MSXML2.ServerXMLHTTP”）
'$! 执行标题请求-确定文件夹/项目是否存在的最有效方法
xmlhttp.open“HEAD”，s_targetURL，true
xmlhttp.send
'$! 忽略错误-页面在没有链接的情况下完成加载比抛出错误更好
出错时继续下一步
'$! 如果尚未获取数据，请等待waitForResponse秒数（readyState=4：请求已完成）
如果是xmlhttp.readyState 4，则
xmlhttp.waitForResponse 5
如果结束
如果错误号为0，则
insertissulink=“”
其他的
如果是（xmlhttp.readyState 4）或（xmlhttp.Status 200），则
'中止XMLHttp请求
中止
insertissulink=“”
其他的
insertissulink=“
”
b\u显示\u目录\u部分=真
如果结束
如果结束
端函数

如果它曾经工作过，但现在不工作了，那么最可能的解释是ISSU api更改了输入的路径。然而，事实并非如此。这组特定的代码不依赖于API。如果您可以在浏览器中看到该页面，上述代码应该会得到及时的响应。Issuu目前正在检查其防火墙，以查看我们的服务器是否被阻止。