ตามการปรับเปลี่ยนรหัสที่จัดทำโดยฟอเรสต์เว็บมาสเตอร์ได้รับการทดสอบใน vevb.com ซึ่งใช้งานง่าย!
เวอร์ชัน ASP ต้องการการสนับสนุน FSO ของ Space!
ต่อไปนี้เป็นส่วนของรหัส:
-
Server.ScriptTimeOut = 50000
'sitemap_gen.asp
'สคริปต์ที่เรียบง่ายสำหรับการผลิตไซต์แบบอัตโนมัติสำหรับเว็บเซิร์ฟเวอร์ใน Google Sitemap Protocol (GSP)
'โดย Francesco Passantino
'www.iteam5.net/francesco/sitemap
'v0.2 เปิดตัว 5 มิถุนายน 2548
-
ใบอนุญาต BSD 2.0
'http://www.opensource.org/licenses/bsd-dhhense.php
'รวบรวมและจัดระเบียบ: Chongqing [email protected]
เซสชัน (เซิร์ฟเวอร์) = http: //192.168.0.111 'ชื่อโดเมนของคุณ
vdir = / 'สร้างไดเรกทอรีของ Sitemap, Directory สัมพัทธ์ (สัมพันธ์กับไดเรกทอรีราก)
ตั้งค่า objfso = createObject (scripting.filesystemobject)
root = server.mappath (vdir)
'response.contentType = text/xml
'response.write <?
'response.write <urlset xmlns =' http://www.google.com/schemas/sitemap/0.84 '>
str = <?
str = str & <urlset xmlns = 'http://www.google.com/schemas/sitemap/0.84'> & vbcrlf
ตั้งค่า objfolder = objfso.getFolder (root)
'response.write getFileLink (objfolder.path, objfolder.datelastmodify)
ตั้งค่าสี = objfolder.files
สำหรับแต่ละ objfile ใน colfiles
'Response.write getFileLink (objfile.path, objfile.datelastmodify)
str = str & getFilelink (objfile.path, objfile.datelastmodify) & vbcrlf
ต่อไป
sweetubfolders (objfolder)
'response.write </urlset>
str = str & </urlset> & vbcrf
ตั้งค่า fso = ไม่มีอะไร
ตั้งค่า objstream = server.createObject (adodb.stream)
กับ objstream
'.type = AdTypetext
'.mode = AdmoderEadWrite
.Opeen
.Charset = UTF-8
.position = objstream.size
.writeText = str
.savetofile Server.Mappath (/sitemap.xml) ชื่อไฟล์ XML ที่สร้างโดย 2 '
.ปิด
จบลงด้วย
ตั้งค่า objstream = ไม่มีอะไร
หากไม่ผิดพลาดแล้ว
Response.write (<script> Alert ('การสร้างเว็บไซต์สร้างที่ประสบความสำเร็จ!'); history.back (); </script>)
Response.end
สิ้นสุดถ้า
Sub Sweetsubfolders (objfolder)
ตั้งค่า colorders = objfolder.subfolders
สำหรับ OBJSubFolder แต่ละตัวใน colfolders
ถ้า FolderPermission (objsubfolder.path) แล้ว
'Response.write getFileLink (objsubfolder.path, objsubfolder.datelastmodify)
str = str & getFilelink (objsubfolder.path, objsubfolder.datelastmodify) & vbcrlf
ตั้งค่าสี = objsubfolder.files
สำหรับแต่ละ objfile ใน colfiles
'Response.write getFileLink (objfile.path, objfile.datelastmodify)
str = str & getFilelink (objfile.path, objfile.datelastmodify) & vbcrlf
ต่อไป
sweetubfolders (objsubfolder)
สิ้นสุดถ้า
ต่อไป
สิ้นสุดย่อย
ฟังก์ชั่น getFileLink (ไฟล์, datafile)
file = แทนที่ (ไฟล์, root,)
file = แทนที่ (ไฟล์,/,/)
ถ้า filextensionisbad (ไฟล์) จากนั้นออกจากฟังก์ชัน
ถ้าเดือน (datafile) <10d filedatem = 0
ถ้าวัน (datafile) <10d ยื่น = 0
Feledate = Year (DataFile) &-& FileDateM & Month (DataFile) &-& Feledated & Day (DataFile)
getFileLink = <url> <corl> & server.htmlencode (เซสชัน (เซิร์ฟเวอร์) & vdir & ไฟล์) & </local) q> <priority> 1.0 </ลำดับความสำคัญ> </url "
Response.flush
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น FolderPermission (ชื่อพา ธ )
'ไดเรกทอรีที่ต้องกรอง (ไม่อยู่ในรายการ Sitemap)
pathExClusion = aray (/temp,/_ vti_cnf, _vti_pvt, _vti_log, cgi-bin,/admin,/edu)
FolderPerMission = true
สำหรับแต่ละ pathexcluded ใน pathexclusion
ถ้า instr (ucase (ชื่อพา ธ ), ucase (pathexcluded))> 0 แล้ว
FolderPerMission = FALSE
ออกจาก
สิ้นสุดถ้า
ต่อไป
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น fileextensionisbad (sfilename)
Dim Sfileextension, bfileextensionisvalid, sfileext
'แก้ไขสำหรับส่วนขยายไฟล์ของคุณ (http://www.googleguide.com/file_type.html)
ส่วนขยาย = อาร์เรย์ (PNG, GIF, JPG, JPEG, ZIP, PDF, PS, HTML, HTM, PHP, WK1, WK2, WK3, WK4, WK5, WKI, WKS, WKU, LWP, MW, XLS SWF, WKS, WPS, WDB, WRI, RTF, ANS, TXT)
'ตั้งชื่อไฟล์ของรายการหากส่วนขยายไม่ได้อยู่ในนั้น SitEmap จะไม่รวมไฟล์ของชื่อเพิ่มเติม
ถ้า len (trim (sfilename)) = 0 แล้ว
fileextensionisbad = true
ฟังก์ชั่นออก
สิ้นสุดถ้า
sfileextension = ขวา (sfilename, len (sfilename) -instrrev (sfilename,.))))
bfileextensionisvalid = false 'สมมติว่าส่วนขยายไม่ดี
สำหรับแต่ละ sfileext ในส่วนขยาย
ถ้า ucase (sfileext) = ucase (sfileextation) แล้ว
bfileextensionisvalid = true
ออกจาก
สิ้นสุดถ้า
ต่อไป
fileextensionisbad = ไม่ใช่ bfileextentisvalid
ฟังก์ชันสิ้นสุด
-