สิ่งที่ใช้ในการสร้างไฟล์ sitemap.xml นั้นเอื้อต่อการรวบรวมข้อมูลเครื่องมือค้นหาเช่น Google
-
Server.ScriptTimeOut = 50000
'sitemap_gen.asp
'asimplescript toautomically ผลิต sitemapsforawebserver, inthegooglesitemapprotocol (GSP)
'byfrancescopassantino
'www.iteam5.net/francesco/sitemap
'v0.2released5june2005 (listingadirectorytreerecursively improvement)
-
'BSD2.0License
'http://www.opensource.org/licenses/bsd-license.php
'รวบรวมและจัดเรียง: Chongqing [email protected]
เซสชัน ("เซิร์ฟเวอร์") = "// 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
ต่อไป
sweetubfolders (objfolder)
'response.write "</urlset>"
str = str & "</urlset>" & vbcrlf
setfso = ไม่มีอะไร
setObjstream = server.createObject ("adodb.stream")
ไม่มี bjstream
'.type = AdTypetext
'.mode = AdmoderEadWrite
.เปิด
.Charset = "UTF-8"
.position = objstream.size
.writeText = str
.savetofilesserver.mapath ("/sitemap.xml"), 2 'สร้างชื่อไฟล์ XML
.ปิด
จบลงด้วย
setObjstream = ไม่มีอะไร
ifnoterrthen
Response.write ("<script> Alert ('Success!'); history.back (); </script>")
Response.end
endif
subshowsubfolders (objfolder)
setColfolders = objfolder.subfolders
foreachobjsubfolderincoldolders
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
ต่อไป
sweetubfolders (objsubfolder)
endif
ต่อไป
enddub
