最近百度站长平台推出了链接提交主动推送功能，PHP的官方有实例，下面的是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

sitemap = sitemap& "推送网址1" &vbcrlf '读取数据库，每行一条 sitemap = sitemap& "推送网址2" &vbcrlf sitemap = sitemap& "推送网址3"

html = PostHTTPPage("没有权限发布网址_站长平台url及token等复制到这里",sitemap) Response.Write html response.clear

json = html Set json = toObject(json) if instr(html,"success")>0 then Response.Write "推送成功 "&json.success&" 条；剩余配额 "&json.remain&" 条" else Response.Write "推送失败！返回代码 => "&html end if Set json = Nothing %> 本文来源于广州网站建设公司与广州网站设计制作公司-广帆互动广州公司！