ASP Ping通知Feed烧制中心更新技巧

ping，操作系统里基本的一个小工具，正宗的解释是“用来侦测网络上的远端主机是否存在，并判断网络状况是否正常的网络侦测工具”。Rm1中国设计秀

这里提到的ping仅仅是一个对用户公开的简单的api，用户可以通过这个接口通知ping中心调度程序，由调度程序调控相关进程，检查用户提交的地址是否有新的输出，如果有新的内容则立即取回，并烧制。这对用户的feed来讲，可以做到快速的更新，而不用等待系统的调度，避免了一些feed长期不更新的问题。Rm1中国设计秀

简单来说，ping就是一个开放给用户用来检测feed源是否有更新的API应用。ping的应用已经非常广泛，诸如wordPRess、Z-Blog等程序都自带了Ping的功能Rm1中国设计秀

代码取自PJBLOG论坛，原为PJBLOG插件，看了下代码可以用在大多数的支持rss输出的站点。Rm1中国设计秀

Rm1中国设计秀
 程序代码Rm1中国设计秀
<%Rm1中国设计秀
    Const PingContent="http://www.feedsky.com/api/RPC2|http://blog.yodao.com/ping/RPC2|http://api.my.yahoo.com/RPC2|http://blogsearch.google.com/ping/RPC2|http://www.xianguo.com/xmlrpc/ping.php|http://www.zhuaxia.com/rpc/server.php"Rm1中国设计秀

    Function SendPingRm1中国设计秀

      Dim Url,UrlsRm1中国设计秀
      Urls=Split(Replace(PingContent,vbCr,""),"|")Rm1中国设计秀

      For Each Url In UrlsRm1中国设计秀
        If Trim(Url)<>"" ThenRm1中国设计秀
          Call SendPing_Single(url)Rm1中国设计秀
        End IfRm1中国设计秀
      NextRm1中国设计秀

    End FunctionRm1中国设计秀

    Function SendPing_Single(url)Rm1中国设计秀

      On Error Resume NextRm1中国设计秀

      Dim s,sUrlRm1中国设计秀
     '此处需要修改为自定义的生成网址Rm1中国设计秀
      If blog_postFile = 2 ThenRm1中国设计秀
        sUrl = siteURL&"article/"&postLog(2)&".htm"Rm1中国设计秀
      elseRm1中国设计秀
        sUrl = siteURL&"default.asp?id="&postLog(2)Rm1中国设计秀
      end ifRm1中国设计秀
      s = "<?xml version=""1.0""?><methodCall><methodName>weblogUpdates.ping</methodName><params><param><value>"&SiteName&"</value></param><param><value>"&sUrl&"</value></param></params></methodCall>"Rm1中国设计秀

      Response.Write "<p>发送Ping到:" & Url & "</p>"Rm1中国设计秀
      Response.FlushRm1中国设计秀

      Dim objPingRm1中国设计秀
      Set objPing = Server.CreateObject("MSXML2.Serverxmlhttp")Rm1中国设计秀
      objPing.SetTimeOuts 10000, 10000, 10000, 10000 Rm1中国设计秀
      '第一个数值：解析DNS名字的超时时间10秒 Rm1中国设计秀
      '第二个数值：建立Winsock连接的超时时间10秒 Rm1中国设计秀
      '第三个数值：发送数据的超时时间10秒 Rm1中国设计秀
      '第四个数值：接收response的超时时间10秒Rm1中国设计秀

      objPing.open "POST",url,FalseRm1中国设计秀

      objPing.setRequestHeader "Content-Type", "text/xml"Rm1中国设计秀
      objPing.send sRm1中国设计秀

      Set objPing = NothingRm1中国设计秀

      Err.ClearRm1中国设计秀

    End FunctionRm1中国设计秀

    Call SendPingRm1中国设计秀
%>Rm1中国设计秀