熊掌號asp方式資源提交

熊掌號asp方式資源提交
自熊掌號出現后，很多做seo的朋友非常注重熊掌號的培養。熊掌號的資源提交是網站優化非常重要的環節，不僅可以提高熊掌號指數，而且可以有效的提升排名。
熊掌號的資源提交主要有兩種方式：API提交、手動提交
手動提交略微麻煩一些，每次都寫完文章后我們需要登錄熊掌號搜索資源平臺，填寫url在進行提交。如果能在網站中直接提交就再好不過了，那就需要使用api提交
但是api提交需要有一定的開發能力，API中的推送示例只有curl推送示例、post推送示例、php推送示例、ruby推送示例，這對于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")
    Http.open "POST",url
    Http.setRequestHeader "CONTENT-TYPE", "text/plain"
    'Http.setRequestHeader "User-Agent", "curl/7.12.1"
    'Http.setRequestHeader "Content-Length", "83"
    Http.send(data)
    if Http.readystate<>4 then
        exit function
    End if
    PostHTTPPage=bytesToBSTR(Http.responseBody,"utf-8")
    response.Write("<div style='padding-top:100px; font-size:24px; text-align:center; color:#d00;'>"&PostHTTPPage&"</div>")
    set http=nothing
    if err.number<>0 then err.Clear
End function

然后調用函數即可
postData = "http://www.hbap.net/News/4213581330.html"
postUrl = "http://data.zz.baidu.com/urls?appid=xxxx&token=xxxxx&type=realtime"
call postHTTPPage(postUrl,postData)
執行完畢后看看顯示結果是否正常，然后看看你資源提交配額是不是減少了，如果減少則標稱重。
祝君好運，如果對你有幫助歡迎在下方給個贊。