ASP 百度主动推送代码范例

辛巴海

范例代码

1. function BytesToBstr(body,Cset) 
2.    dim objstream 
3. set objstream = Server.CreateObject("adodb.stream")
4. objstream.Type = 1 
5. objstream.Mode =3 
6. objstream.Open 
7. objstream.Write body 
8. objstream.Position = 0 
9. objstream.Type = 2 
10. objstream.Charset = Cset 
11. BytesToBstr = objstream.ReadText 
12. objstream.Close 
13. set objstream = nothing 
14. End function
15. '==================================================
16. function PostHTTPPage(url,data) 
17. dim Http 
18. set Http=server.createobject("MSXML2.SERVERXMLHTTP.3.0")
19. Http.open "POST",url,false 
20. Http.setRequestHeader "CONTENT-TYPE", "text/plain" 
21. Http.send(data) 
22. if Http.readystate<>4 then 
23. exit function 
24. End if
25. PostHTTPPage=bytesToBSTR(Http.responseBody,"utf-8") 
26. set http=nothing 
27. if err.number<>0 then err.Clear 
28. End function

复制代码

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

调用方法：

调用方法：

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

复制代码

到此这篇关于ASP 百度主动推送代码范例的文章就介绍到这了,更多相关ASP 百度主动推送内容请搜索晓枫资讯以前的文章或继续浏览下面的相关文章希望大家以后多多支持晓枫资讯！

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！

刺客老K

感谢大大分享~~~~~~~~