据悉，百度官方前几个月在官方网站上发布了一篇关于《百度搜索引擎优化指南》，里面涉及了很多关于百度SEO优化的问题，对很多关于网站SEO优化排名的问题作出了官方的明确解释，很值得广大SEO优化工作者去拜读一下。

    《百度搜索引擎优化指南》还提到了网站的Ping功能。Ping是针对blog内容的提交方式，实时通知搜索引擎blog上有新内容产生。目前主流的博客程序都支持ping，您只需要将百度的ping服务地址http://ping.baidu.com/ping/RPC2加入博客后台并开启ping功能即可。以后博客更新了内容就可以直接通知百度了。从中也可以看出百度对博客的关注，对互联网大部分原创内容来源的关注。

     

     下面是我收集的使用百度Ping功能的ASP和PHP的源代码，希望大家有时间多多在自己网站上运用，ping功能一直以来用在Worpress博客，但是有SEOer曾经弱弱的告诉偶，使用百度ping功能可以使网站排名飞升，你懂得，呵呵。最近我也正在研究这项技术，在两个网站上试验了，发现效果真的挺不错的，所以今天把这个技术共享出来了，希望大家喜欢。



ASP源码

<%

Option Explicit

Response.Buffer = true

Response.ContentType = "text/html"

Response.Charset = "gb2312"



Dim Url, Result

Url = "http://ping.baidu.com/ping/RPC2"

Result = BytesToBstr(SendPing(Url), "gb2312")

IF Instr(Result, "<int>0</int>") > 0 Then

Response.Write("success")

Else

Response.Write("failure")

End IF









Function SendPing(Url)

    Dim s : s = ""

Randomize()

Dim r : r = Int(Rnd() * 9999) + 1000

    s = s & "<?xml version=""1.0"" encoding=""gb2312""?>"

    s = s & "<methodCall>"

s = s & "<methodName>weblogUpdates.ping</methodName>"

s = s & "<params>"

s = s & "<param><value><string>公司网站建设</string></value></param>"

s = s & "<param><value><string>http://www.yiboo.net/</string></value></param>"

s = s & "<param><value><string>http://www.yiboo.net/seobaidu.asp</string></value></param>"

s = s & "<param><value><string>http://www.fuguojian.com/</string></value></param>"

s = s & "</params>"

    s = s & "</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 & "?r=" & r, False

    objPing.setRequestHeader "Content-Type", "text/xml; charset=gb2312"

    objPing.send(s)

SendPing = objPing.ResponseBody

    Set objPing = Nothing

End Function

'===============================================

'函数名：BytesToBstr

'作用：字符集转换

'参数：body--内容；Cset--指定的字符集

'===============================================

Function BytesToBstr(body, Cset)

dim objstream

set objstream = Server.CreateObject("adodb.stream")

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write body

objstream.Position = 0

objstream.Type = 2

objstream.Charset = Cset

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = nothing

End Function

%>















PHP源码

<?php

function postUrl($url, $postvar)

{

    $ch = curl_init();

    $headers = array(

        "POST ".$url." HTTP/1.0",

        "Content-type: text/xml; charset=\"gb2312\"",

        "Accept: text/xml",

        "Content-length: ".strlen($postvar)

    );

    curl_setopt($ch, CURLOPT_URL, $url);

    curl_setopt($ch, CURLOPT_RETURNTRANSFER,1);

    curl_setopt($ch, CURLOPT_POST, 1);

    curl_setopt($ch, CURLOPT_HTTPHEADER, $headers);

    curl_setopt($ch, CURLOPT_POSTFIELDS, $postvar);

    $res = curl_exec ($ch);

    curl_close ($ch);

    return $res;

}





$baiduXML = "<?xml version=\"1.0\" encoding=\"gb2312\"?>

   <methodCall>

   <methodName>weblogUpdates.extendedPing</methodName>

   <params>

   <param><value><string>不锈钢信息网</string></value></param>

   <param><value><string>http://www.buxiugangw.com</string></value></param>

   <param><value><string>http://www.buxiugangw.com/ad/1.html</string></value></param>

   <param><value><string>http://www.buxiugangw.com</string></value></param>

   </params>

   </methodCall>";

$res = postUrl('http://ping.baidu.com/ping/RPC2', $baiduXML);



if ( strpos($res, "<int>0</int>") )

{

echo "PING成功";

}

else

{

echo "PING失败";

}

?>

是不是真的

这个我朋友都试验过了，效果很不错的

看不懂啊

大家可以试试啊

只能博客用吗？其他的呢？

楼主，这个代码加在哪，怎么用

这个怎么用啊，郁闷了

说的具体点！