- 1、本文档共9页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
google网站地图制作代码
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
您可能关注的文档
最近下载
- 2024年上海市普通高校招生本科艺术甲批次平行段院校专业组投档分数线美术与设计类.pdf VIP
- 2024入团共青团基础知识题库(含答案).docx
- 2024年在线网课学习课堂《健康管理科研思维训练(杭州师大 )》单元测试考核答案.pdf
- 2024年中国河南国际合作集团有限公司人员招聘考试题库及答案解析.docx
- 《骆驼祥子》读书分享PPT课件(精选图文).pptx
- 汉长安城遗址总体规划.pptx
- 欠钱不还的法院起诉书.docx VIP
- GB-T 10125-2012 人造气氛腐蚀试验 盐雾试验.pdf
- 新人教版七年级上册生物全册教案(2024年秋季新版教材).docx
- pcs-9651_080885技术和使用说明书.pdf
文档评论(0)