ASP 百度主动推送代码示例

发布时间：2023-09-01 15:05:59 所属栏目：Asp教程来源：

导读：百度推送可以让你发布的东西直接推送给百度蜘蛛，让其快速收录，百度官方给出了很多范例知道，但是没有ASP的范例，下面跟大家分享下

范例代码

function BytesToBstr(body,Cset)

dim objstream

se

百度推送可以让你发布的东西直接推送给百度蜘蛛，让其快速收录，百度官方给出了很多范例知道，但是没有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.jb51.net&token=xxxxxxx,https://www.jb51.net/article/184256.htm)

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!