新云管理系統(tǒng)3.0版 Google地圖生成器提供了，測試了，好用

2019-11-02 17:00:29

字體：大中小

來源：轉(zhuǎn)載

供稿：網(wǎng)友

新云管理系統(tǒng)Google地圖生成器for v3.0 版

它的好處不用我多說，但有一點需要聲明，程序是官方商業(yè)版里東西，3.0版之前只對生成了HTML頁面的網(wǎng)站有效，并且只能生成文章和下載頻道

2.1版演示地址：http://code.feyu.cn/sitemap.xml

3.0版演示地址：http://www.feyu.cn/sitemap.xml

最新修正ASP動態(tài)生成地圖

演示地址：http://vip.feyu.cn/sitemap.xml

只要解壓上傳至網(wǎng)站根目錄，運行一下就行了，然后去GG網(wǎng)站管理后臺(https://www.google.com/accounts/ServiceLogin?service=sitemaps&hl=zh_CN&continue=https%3A%2F%2Fwww.google.com%2Fwebmasters%2Ftools%2Fsiteoverview&nui=1)提交http://你的網(wǎng)址/sitemap.xml就行了

最好是在后臺里搞個該程序的連接，等你每次更新后就在后臺一起生成就行了

復(fù)制代碼代碼如下:

Server.ScriptTimeout = 50000

Dim Rs,SQL,XMLContent,Thisurl

Dim CreateHtml,ChannelRootDir,ChannelID

Dim XMLDOM,node,Cnode,Cnode1,msginfo

Thisurl="http://" & Request.ServerVariables("HTTP_HOST")

'Response.Clear

'Response.CharSet="UTF-8"

'Response.ContentType="text/xml"

Call IndexSiteMap("/")

'Call ChannelSiteMap("./")

'Response.Write XMLContent

'Response.Write Newasp.FormatDate(now,2)

Sub IndexSiteMap(strPath)

XMLContent = "<?xml version='1.0' encoding='UTF-8'?>" & vbNewLine

XMLContent = XMLContent & "<urlset xmlns=""http://www.google.com/schemas/sitemap/0.84"">" & vbNewLine

XMLContent = XMLContent & "<url>" & vbNewLine

XMLContent = XMLContent & "<loc>" & Thisurl & "/</loc>" & vbNewLine & "<lastmod>" & Newasp.FormatDate(Now(),2) & "</lastmod>" & vbNewLine & "<changefreq>daily</changefreq>" & vbNewLine & "<priority>1.0</priority>" & vbNewLine

XMLContent = XMLContent & "</url>" & vbNewLine

LoadSitemap 2,0

LoadSitemap 1,0

XMLContent = XMLContent & "</urlset>"

strPath = Server.MapPath(strPath) & "/sitemap.xml"

CreateXMLFile XMLContent,strPath

Response.Write "生成站點地圖成功！"

End Sub

Sub ChannelSiteMap(strPath)

XMLContent = "<?xml version='1.0' encoding='UTF-8'?>" & vbNewLine

XMLContent = XMLContent & "<urlset xmlns=""http://www.google.com/schemas/sitemap/0.84"">" & vbNewLine

上一篇：使用科汛系統(tǒng)的安全小常識