0

我为客户管理两个拍卖网站，这些网站也使用 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
4

0 回答 0