新云管理系统3.0版 Google地图生成器提供了，测试了，好用

2019-11-02 17:00:29

字体：大中小

来源：转载

供稿：网友

新云管理系统Google地图生成器for v3.0 版

它的好处不用我多说，但有一点需要声明，程序是官方商业版里东西，3.0版之前只对生成了HTML页面的网站有效，并且只能生成文章和下载频道

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

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

最新修正ASP动态生成地图

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

只要解压上传至网站根目录，运行一下就行了，然后去GG网站管理后台(https://www.google.com/accounts/ServiceLogin?service=sitemaps&hl=zh_CN&continue=https%3A%2F%2Fwww.google.com%2Fwebmasters%2Ftools%2Fsiteoverview&nui=1)提交http://你的网址/sitemap.xml就行了

最好是在后台里搞个该程序的连接，等你每次更新后就在后台一起生成就行了

复制代码代码如下:

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

上一篇：使用科汛系统的安全小常识