<％
server.scripttimeout = 50000
'Sitemap_gen.asp
'asimplesscript toautomatically sitemapsforawebserver、inthooglesitemapprotocol（GSP）
'byfrancescopassantino
'www.iteam5.net/francesco/sitemap
'v0.2Released5June2005（listingadirectorytreeRecivelyprovement）
'
'bsd2.0license、
'http://www.opensource.org/licenses/bsd-license.php
'収集とソート：Chongqing [email protected]
session（ "server"）= "// www.vevb.com"
'あなたのドメイン名
vdir = "/"
'ディレクトリに対して（ルートディレクトリに関連して）サイトマップが作成されるディレクトリを作成する
setobjfso = createObject（ "scripting.filesystemobject"）
root = server.mappath（vdir）
'Response.ContentType = "text/xml"
'Response.Write "<？xmlversion =' 1.0'encoding = 'utf-8'？>"
'Response.Write "<urlsetxmlns =' http：//www.google.com/schemas/sitemap/0.84 '>"
str = "<？xmlversion = '1.0'encoding =' utf-8 '？>"＆vbcrlf
str = str＆ "<urlsetxmlns = 'http：//www.google.com/schemas/sitemap/0.84'>"＆vbcrlf
setobjfolder = objfso.getFolder（root）
'Response.WriteGetFileLink（objfolder.path、objfolder.datelastModified）
setColfiles = objfolder.files
foreachobjfileincolfiles
'Response.WriteGetFileLink（objfile.path、objfile.datelastModified）
str = str＆getfilelink（objfile.path、objfile.datelastModified）＆vbcrlf
次
shossubfolders（objfolder）
'Response.Write "</urlset>"
str = str＆ "</urlset>"＆vbcrlf
setfso =何もない
setobjstream = server.createObject（ "adodb.stream"）
withoutbjstream
'.type = adtypetext
'.mode = admodereadwrite
。開ける
.charset = "utf-8"
.position = objstream.size
.writeText = str
.savetofilesserver.mapath（ "/sitemap.xml"）、2 'xmlファイル名を生成します
。近い
終わりに
setobjstream =何もない
ifnoterrthen
respons.write（ "<script> alert（ 'success！'）; history.back（）; </script>"）
Response.End
endif
Subshowsubfolders（objfolder）
setColfolders = objfolder.subfolders
foreachobjsubfolderincolfolders
IllerPermission（objsubfolder.path）その後
'Response.WriteGetFileLink（objsubfolder.path、objsubfolder.datelastModified）
str = str＆getfilelink（objsubfolder.path、objsubfolder.datelastModified）＆vbcrlf
setColfiles = objsubfolder.files
foreachobjfileincolfiles
'Response.WriteGetFileLink（objfile.path、objfile.datelastModified）
str = str＆getfilelink（objfile.path、objfile.datelastModified）＆vbcrlf
次
shossubfolders（objsubfolder）
endif
次
Endingub
