google网站地图制作代码.docVIP

google网站地图制作代码 技术了知 2007-11-14 16:52:35 阅读529 评论0 字号：大中小 用记事本新建一个 sitemap.asp 文件，把下面的代码复制到 sitemap.asp 里 % sitemap_gen.asp A simple script to automatically produce sitemaps for a webserver, in the Google Sitemap Protocol (GSP) by Francesco Passantino v0.2 released 5 june 2005 (Listing a directory tree recursively improvement) BSD 2.0 license, session(server)= ? ? ? ? ? 你的域名 vDir = /blueidea ? ? ? ? ? ? ? ? ? ? ? ? ? ?制作SiteMap的目录,相对目录(相对于根目录而言) set objfso = CreateObject(Scripting.FileSystemObject) root = Server.MapPath(vDir) response.ContentType = text/xml response.write ?xml version=1.0 encoding=UTF-8? response.write urlset xmlns=/schemas/sitemap/0.84 Set objFolder = objFSO.GetFolder(root) response.write getfilelink(objFolder.Path,objFolder.dateLastModified) Set colFiles = objFolder.Files For Each objFile In colFiles ? ?response.write getfilelink(objFile.Path,objfile.dateLastModified) Next ShowSubFolders(objFolder) response.write /urlset set fso = nothing Sub ShowSubFolders(objFolder) ? ?Set colFolders = objFolder.SubFolders ? ?For Each objSubFolder In colFolders ? ? ? ?if folderpermission(objSubFolder.Path) then ? ? ? ? ? ?response.write getfilelink(objSubFolder.Path,objSubFolder.dateLastModified) ? ? ? ? ? ?Set colFiles = objSubFolder.Files ? ? ? ? ? ?For Each objFile In colFiles ? ? ? ? ? ? ? ?response.write getfilelink(objFile.Path,objFile.dateLastModified) ? ? ? ? ? ?Next ? ? ? ? ? ?ShowSubFolders(objSubFolder) ? ? ? ?end if ? ?Next End Sub Function getfilelink(file,datafile) ? ?file=replace(file,root,) ? ?file=replace(file,\,/) ? ?If FileExtensionIsBad(file) then Exit Function ? ?if month(datafile)10 then filedatem=0 ? ?if day(datafile)10 then filedated=0 ? ?filedate=year(datafile)-filedatemmonth(datafile)-filedatedday(datafile) ? ?getfilelink = urllocserver.htmlencode(session(server)vDirfile)/loclastmodfiledate/lastmodchangefreqdaily/changefreqpriority1.0/priority/url ? ?Response.Flush End Function Function Folderpermission(pathName) ? ?需要过滤的目录(不列在Sit