百度实时推送 asp

本来这个文章不太适合发这里的。因为我们这个是个游戏站点。但是想了想。助人是没有界限的，网站也肯定是没有界限的。所以思索在三还是发出这个教程吧！

准备工作

实时推送需要获得百度的资格，也就是说获得了sitemap权限（当然你都看了这个文章了，也就代表肯定有这个权限的）！

在获得资格的情况下。登陆站长平台，拿到接口调用地址

点这里的添加新数据

拿到这个调用接口地址后就做好准备工作了

开始部署代码

我们需要几个函数如下

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", "application/x-www-form-urlencoded" 
    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

Function tsxml(url)
    tsxml="<urlset xmlns=""http://www.sitemaps.org/schemas/sitemap/0.9"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xsi:schemaLocation=""http://www.sitemaps.org/schemas/sitemap/0.9 http://www.sitemaps.org/schemas/sitemap/0.9/sitemap.xsd"">" &_
    "<url>"&_
    " <loc>"&url&"</loc>"&_
    "<lastmod>"&showtimes(split(rs("date")," ")(0))&"</lastmod>"&_
    "<priority>0.7</priority>"&_
    "</url>"&_
 "</urlset><!--update by "&now()&"-->" 
End Function

复制好后，在需要调用的文章哪里（就是你发布成功的地方调用参数）

示例如下

Call PostHTTPPage("http://ping.baidu.com/sitemap?site=wenwen.19yxw.com&resource_name=sitemap&access_token=TsrduoFe",tsxml("http://top.19yxw.com/Article/133.html"))

好了，如果搞不来，需要我帮忙的话可以加QQ：24722 由我来帮你弄。当然了，这个就需要付点费用了啊。毕竟也是需要花精力的。教程可以写，写了就不需要管。但是帮人的话就得额外占用自己的时间，付出了劳动理所当然需要取得回报！