google网站地图制作代码

google网站地图制作代码

ID:11543160

大小:51.50 KB

页数:9页

时间:2018-07-12

google网站地图制作代码_第1页
google网站地图制作代码_第2页
google网站地图制作代码_第3页
google网站地图制作代码_第4页
google网站地图制作代码_第5页
资源描述:

《google网站地图制作代码》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、google网站地图制作代码技术了知2007-11-1416:52:35阅读529评论0字号:大中小用记事本新建一个sitemap.asp文件,把下面的代码复制到sitemap.asp里<%'sitemap_gen.asp'Asimplescripttoautomaticallyproducesitemapsforawebserver,intheGoogleSitemapProtocol(GSP)'byFrancescoPassantino''v0.2released5june2005(Listingadirectorytreerecursivelyimprovement)''BSD

2、2.0license,session("server")="http://www.0574jz.com"     '你的域名vDir="/blueidea"              '制作SiteMap的目录,相对目录(相对于根目录而言)setobjfso=CreateObject("Scripting.FileSystemObject")root=Server.MapPath(vDir)response.ContentType="text/xml"response.write""response.write"

3、"SetobjFolder=objFSO.GetFolder(root)'response.writegetfilelink(objFolder.Path,objFolder.dateLastModified)SetcolFiles=objFolder.FilesForEachobjFileIncolFiles  response.writegetfilelink(objFile.Path,objfile.dateLastModified)NextShowSubFold

4、ers(objFolder)response.write""setfso=nothingSubShowSubFolders(objFolder)  SetcolFolders=objFolder.SubFolders  ForEachobjSubFolderIncolFolders    iffolderpermission(objSubFolder.Path)then      response.writegetfilelink(objSubFolder.Path,objSubFolder.dateLastModified)      SetcolFiles=ob

5、jSubFolder.Files      ForEachobjFileIncolFiles        response.writegetfilelink(objFile.Path,objFile.dateLastModified)      Next      ShowSubFolders(objSubFolder)    endif  NextEndSubFunctiongetfilelink(file,datafile)  file=replace(file,root,"")  file=replace(file,"","/")  IfFileExtensionIsBad

6、(file)thenExitFunction  ifmonth(datafile)<10thenfiledatem="0"  ifday(datafile)<10thenfiledated="0"  filedate=year(datafile)&"-"&filedatem&month(datafile)&"-"&filedated&day(datafile)  getfilelink=""&server.htmlencode(session("server")&vDir&file)&""&filedate&"

7、hangefreq>daily1.0"  Response.FlushEndFunctionFunctionFolderpermission(pathName)  '需要过滤的目录(不列在SiteMap里面)  PathExclusion=Array("temp","_vti_cnf","_vti_pvt","_vti_log","cgi-bin")  Folderperm

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。