简化版 分站 地图 日历 影视
计算器 行情 加解密 长度 面积
首页 软件 编程 笑话 知识 公告 注册 登录 用QQ登录本站
  •  
    您现在的位置:首页 >> ASP >> 内容

    ASP 百度主动推送代码范例

    内容摘要:function BytesToBstr(body,Cset) dim objstreamset objstream = Server.CreateObject('adodb.stream')objstream.Type = 1objstream.Mode =3objstream.Openobjstream.Write bodyobjstream.Posit......

      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

    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

    ASP百度主动推送需要上面2个ASP函数。


    调用方法:


    调用方法:


    baiduts=PostHTTPPage(http://data.zz.baidu.com/urls?site=www.jb51.net&token=xxxxxxx,https://www.jb51.net/article/184256.htm)

      版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


    发布日期:2020/6/2 发布时间:16:54:21 点击:335 
  • 上一篇:asp获得完整的url
  • 下一篇:没有了
  • 本类新增
    本类热门文章
    Baidu
    壹 家 软 件 工 作 室(YiJia SoftWare Workroom) 齐天大圣® 制 作 ©2000-2020

    本空间由景安网络提供,百度云加速提供加速防护
    YiJiaCMS V3.31 Build 20.6.5(MSSQL) 闽ICP备05000814号-1