百度主动推送ASP源码

百度推出了主动推送，主动推送您将站点当天新产出链接立即通过此方式推送给百度，以保证新链接可以及时被百度收录。 下面编程之家跟大家分享：百度主动推送ASP源码。

百度主动推送ASP源码实例

<script language="JScript" runat="Server">

function toObject(json) {

     eval("var o=" + json);

     return o;

}

</script>

<%

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

function PostHTTPPage(url,data) 

    dim Http 

    set Http=server.createobject("MSXML2.SERVERXMLHTTP.3.0")

    Http.open "POST",url,false 

    Http.setRequestHeader "CONTENT-TYPE", "text/plain" 

    Http.send(data) 

    if Http.readystate<>4 then 

        exit function 

    End if

    PostHTTPPage=bytesToBSTR(Http.responseBody,"utf-8") 

    set http=nothing 

    if err.number<>0 then err.Clear 

End function

sitemap = sitemap& "推送网址1" &vbcrlf        '读取数据库，每行一条

sitemap = sitemap& "推送网址2" &vbcrlf

sitemap = sitemap& "推送网址3"

'百度ASP推送调用方法

xwurl = PostHTTPPage(http://data.zz.baidu.com/urls?site=这里是你的域名&token=这里是准入密钥",sitemap)

response.clear

json = xwurl 

Set json = toObject(json)

if instr(html,"success")>0 then

Response.Write "推送成功 "&json.success&" 条；剩余配额 "&json.remain&" 条"

else

Response.Write "推送失败！返回代码 => "&html

end if

Set json = nothing

%>

编程之家亲测可用，推送成功返回数据截图