ASP 百度主动推送代码范例_ASP教程

ASP 百度主动推送代码范例

2020-06-30 14:36青岛星网 ASP教程

百度推送可以让你发布的东西直接推送给百度蜘蛛，让其快速收录，百度官方给出了很多范例知道，但是没有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