首页 » Blog » 博客相关 ✿ weblog » 浏览内容
为PJ拓展自动ping发布的修改
为了测试自己的修改是否正常，特写一篇日志，看PING的通不。
哈哈—怎么说PJ也升级到PJ3啦，也不知道修改方法是不是都一样
先来段介绍：
引用内容ping，操作系统里基本的一个小工具，正宗的解释是“用来侦测网络上的远端主机是否存在，并判断网络状况是否正常的网络侦测工具”。
这里提到的ping仅仅是一个对用户公开的简单的api，用户可以通过这个接口通知ping中心调度程序，由调度程序调控相关进程，检查用户提交的地址是否有新的输出，如果有新的内容则立即取回，并烧制。这对用户的feed来讲，可以做到快速的更新，而不用等待系统的调度，避免了一些feed长期不更新的问题。
简单来说，ping就是一个开放给用户用来检测feed源是否有更新的API应用。ping的应用已经非常广泛，诸如Wordpress、Z-Blog等程序都自带了Ping的功能….
修改方法：
打开blogpost.asp，找到
复制内容到剪贴板
程序代码
程序代码Set lArticle = Nothing
在下面插入以下代码：
复制内容到剪贴板 程序代码
程序代码Const PingContent="http://www.feedsky.com/api/RPC2|
http://ping.baidu.com/cgi-bin/blog|
http://blog.yodao.com/ping/RPC2|
http://api.my.yahoo.com/RPC2|
google.com/ping/RPC2″ target=”_blank” rel=”external”>http://blogsearch.google.com/ping/RPC2|
http://www.xianguo.com/xmlrpc/ping.php|
http://www.zhuaxia.com/rpc/server.php|
http://ping.blog.qikoo.com/rpc2.php|
http://blog.iask.com/RPC2|http://rpc.pingomatic.com"
Function SendPing
Dim Url,Urls
Urls=Split(Replace(PingContent,vbCr,""),"|")
For Each Url In Urls
If Trim(Url)<>"" Then
Call SendPing_Single(url)
End If
Next
End Function
Function SendPing_Single(url)
On Error Resume Next
Dim s,sUrl
If blog_postFile = 2 Then
sUrl = siteURL&"article/"&postLog(2)&".htm"
else
sUrl = siteURL&"default.asp?id="&postLog(2)
end if
s = "<?xml version=""1.0""?><methodCall><methodName>weblogUpdates.ping</methodName>
<params><param><value>"&SiteName&"</value></param>
<param><value>"&sUrl&"</value></param></params></methodCall>"
Response.Write "<p>发送Ping到:" & Url & "</p>"
Response.Flush
Dim objPing
Set objPing = Server.CreateObject("MSXML2.ServerXMLHTTP")
objPing.SetTimeOuts 10000, 10000, 10000, 10000
'第一个数值：解析DNS名字的超时时间10秒
'第二个数值：建立Winsock连接的超时时间10秒
'第三个数值：发送数据的超时时间10秒
'第四个数值：接收response的超时时间10秒
objPing.open "POST",url,False
objPing.setRequestHeader "Content-Type", "text/xml"
objPing.send s
Set objPing = Nothing
Err.Clear
End Function
Call SendPing
%>
http://ping.baidu.com/cgi-bin/blog|
http://blog.yodao.com/ping/RPC2|
http://api.my.yahoo.com/RPC2|
google.com/ping/RPC2″ target=”_blank” rel=”external”>http://blogsearch.google.com/ping/RPC2|
http://www.xianguo.com/xmlrpc/ping.php|
http://www.zhuaxia.com/rpc/server.php|
http://ping.blog.qikoo.com/rpc2.php|
http://blog.iask.com/RPC2|http://rpc.pingomatic.com"
Function SendPing
Dim Url,Urls
Urls=Split(Replace(PingContent,vbCr,""),"|")
For Each Url In Urls
If Trim(Url)<>"" Then
Call SendPing_Single(url)
End If
Next
End Function
Function SendPing_Single(url)
On Error Resume Next
Dim s,sUrl
If blog_postFile = 2 Then
sUrl = siteURL&"article/"&postLog(2)&".htm"
else
sUrl = siteURL&"default.asp?id="&postLog(2)
end if
s = "<?xml version=""1.0""?><methodCall><methodName>weblogUpdates.ping</methodName>
<params><param><value>"&SiteName&"</value></param>
<param><value>"&sUrl&"</value></param></params></methodCall>"
Response.Write "<p>发送Ping到:" & Url & "</p>"
Response.Flush
Dim objPing
Set objPing = Server.CreateObject("MSXML2.ServerXMLHTTP")
objPing.SetTimeOuts 10000, 10000, 10000, 10000
'第一个数值：解析DNS名字的超时时间10秒
'第二个数值：建立Winsock连接的超时时间10秒
'第三个数值：发送数据的超时时间10秒
'第四个数值：接收response的超时时间10秒
objPing.open "POST",url,False
objPing.setRequestHeader "Content-Type", "text/xml"
objPing.send s
Set objPing = Nothing
Err.Clear
End Function
Call SendPing
%>
对于PingContent="“这后面的用 | 隔开的，则是可以修改或者增减Ping地址，随你喜欢。
结果：非常让人开心，看图吧！~~
评论 共1条 (RSS 2.0) 发表评论
才女。
[reply=mini,2009-06-20 11:47 PM]唉，半调子很可怕的。
我宁愿自己有一项打遍天下无敌手的专长。哈哈。
那时你再来称赞我，我会更得意的。[/reply]