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 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.zzvips.com&token=xxxxxxx,http://www.zzvips.com/bc/asp/)

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

原文链接：http://www.qdxw.net/xwhtml/231.html

ASP 百度主动推送代码范例

相关文章

热门资讯