范例代碼
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 functionASP百度主動推送需要上面2個ASP函數。
調用方法:
調用方法:
baiduts=PostHTTPPage(http://data.zz.baidu.com/urls?site=m.survivalescaperooms.com&token=xxxxxxx,http://m.survivalescaperooms.com/article/184256.htm)
到此這篇關于ASP 百度主動推送代碼范例的文章就介紹到這了,更多相關ASP 百度主動推送內容請搜索武林網以前的文章或繼續瀏覽下面的相關文章希望大家以后多多支持武林網!
|
新聞熱點
疑難解答