ASP 百度主动推送代码范例
导读:收集整理的这篇文章主要介绍了ASP 百度主动推送代码范例,觉得挺不错的,现在分享给大家,也给大家做个参考。 范例代码function BytestoBstr(body,Cset ...
收集整理的这篇文章主要介绍了ASP 百度主动推送代码范例,觉得挺不错的,现在分享给大家,也给大家做个参考。 范例代码
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 ifPostHTTPPage=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.js-code.com& token=xxxxxxx,https://www.js-code.com/article/184256.htm)
到此这篇关于ASP 百度主动推送代码范例的文章就介绍到这了,更多相关ASP 百度主动推送内容请搜索以前的文章或继续浏览下面的相关文章希望大家以后多多支持!
声明:本文内容由网友自发贡献,本站不承担相应法律责任。对本内容有异议或投诉,请联系2913721942#qq.com核实处理,我们将尽快回复您,谢谢合作!
若转载请注明出处: ASP 百度主动推送代码范例
本文地址: https://pptw.com/jishu/604400.html