網站優化知識
熊掌號asp方式資源提交
2018/9/28 17:07:35 作者:安小云 點擊:
熊掌號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)
執行完畢后看看顯示結果是否正常,然后看看你資源提交配額是不是減少了,如果減少則標稱重。
祝君好運,如果對你有幫助歡迎在下方給個贊。
自熊掌號出現后,很多做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)
執行完畢后看看顯示結果是否正常,然后看看你資源提交配額是不是減少了,如果減少則標稱重。
祝君好運,如果對你有幫助歡迎在下方給個贊。
