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

发布时间:2017-03-06 09:06 来源:互联网 当前栏目:web技术类

新云管理系统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就行了

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

复制代码 代码如下:

<!--#include file="conn.asp"-->

<!--#include file="inc/const.asp"-->

<%

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
  • 1、
  • 2、
  • 3、
  • 4、
  • 5、
  • 6、
  • 7、
  • 8、
  • 9、
  • 10、
  • 11、
  • 12、
  • 13、
  • 14、
  • 15、
  • 16、
  • 17、
  • 18、
  • 19、
  • 20、
  • 21、
  • 22、
  • 23、
  • 24、
  • 25、
  • 1、
  • 2、
  • 3、
  • 4、
  • 5、
  • 6、
  • 7、
  • 8、
  • 9、
  • 10、
  • 11、
  • 12、
  • 13、
  • 14、
  • 15、
  • 16、
  • 17、
  • 18、
  • 19、
  • 20、
  • 21、
  • 22、
  • 23、
  • 24、
  • 25、