Bootstrap

百度API提交网站数据,ASP源代码post推送示例

百度API提交网站数据,ASP代码post推送示例(本代码是牙大师口腔医学网yadashi.com花20元找一个程序员朋友所写)
目前在网络上,可以说没有现成可用的代码,因为本人找了很久,也没有找到,本着网络分享开源的精神,特供给所有热爱ASP程序的朋友们无偿使用。
本代码可能存在一个BUG,就是当天使用时还是好好的,第二天再使用时,会出现
500 - 内部服务器错误。
您查找的资源存在问题,因而无法显示。


但重启服务器还能使用,不知道问题出现在哪里。
如有高手能完善并能修改的朋友,请在下边跟贴,非常感谢。
打开页面如图:


代码使用方法:
把如下代码全部另外为:yadashi.asp,然后直接在贵域名加这个页面打开即可,很方便。

<meta http-equiv="Content-Type" Content="text/html; Charset=UTF-8">
<form method="post">
  <textarea name="txt" rows="50" cols="100" id="txt"></textarea>
  <input name="" type="submit" value="go" />
</form>

<script language="JScript" runat="Server">
 function toObject(json) {
     eval("var o=" + json);
     return o;
 }
</script>
<%

dim json,html,txt

txt = trim(Request.Form("txt"))
If txt<>"" then
arry_txt = Split(txt,Chr(13)&Chr(10))

Response.Write("лл╩§:"&ubound(arry_txt)+1)&"<br>"

html = PostHTTPPage("http://data.zz.baidu.com/urls?site=https://www.yadashi.com&token=XXXXX",txt)
Response.Write html
response.clear

json = html
Set json = toObject(json)
if instr(html,"success")>0 then
Response.Write "ok"&json.success&","&json.remain
else
Response.Write "error"&html
end if
Set json = Nothing


end if


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.XMLHTTP")
    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


%>

;