您正在使用IPV4(3.235.184.215)访问本站 您本次共访问本站 1 次
用户名: 用QQ登录本站
密 码:
验证码:
首页 软件 编程 笑话 知识 公告 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】云产品限时秒杀,爆款1核2G云服务器,首年99元       [公益] 节省一分零钱 献出一份爱心 温暖世间真情      
广告位招租中
2021年 端午节 0
2021年 建党节 17
2022年 元 旦 201
2022年 春 节 232
 
  • 您现在的位置:首页 >> ASP >> 内容

    ASP百度主动推送代码范例

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

      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 点击:2255 录入:齐天大圣
  • 上一篇:asp获得完整的url
  • 下一篇:ASP判断文件是否存在以及删除文件实例代码
  • 本类新增
    本类热门文章
    Baidu

    YiJiaCMS V5.35 Build 21.06.10(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    ©2000-2021