<%
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