| ต่อไปนี้เป็นส่วนของรหัส: <%@language = "vbscript" codePage = "65001"%> - Response.charset = "UTF-8" Server.ScriptTimeOut = 50000 'sitemap_gen.asp 'สคริปต์ที่เรียบง่ายสำหรับการผลิตไซต์แบบอัตโนมัติสำหรับเว็บเซิร์ฟเวอร์ใน Google Sitemap Protocol (GSP) 'โดย Francesco Passantino 'www.iteam5.net/francesco/sitemap 'v0.2 เปิดตัว 5 มิถุนายน 2548 เซสชัน ("เซิร์ฟเวอร์") = "http://7thpark.com/" '"ชื่อโดเมนของคุณ vdir = "/" 'ไดเรกทอรี sitemap ไดเรกทอรีสัมพัทธ์ (สัมพันธ์กับไดเรกทอรีราก) ตั้งค่า 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 =' http://www.google.com/schemas/sitemap/0.84 '>" str = "<? xml version = '1.0' encoding = 'utf-8'?>" & vbcrlf ' str = str & "<urlset xmlns = 'http://www.google.com/schemas/sitemap/0.84'>" & vbcrlfff ตั้งค่า 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>" & vbcrlf ตั้งค่า fso = ไม่มีอะไร ตั้งค่า objstream = server.createObject ("adodb.stream")) กับ objstream '.type = AdTypetext '.mode = AdmoderEadWrite .Opeen .Charset = "UTF-8" .position = objstream.size .writeText = str .savetofile Server.mappath ("/sitmap.xml"), 2 ' -ชื่อไฟล์ XML ที่ได้รับการตอบกลับ .ปิด จบลงด้วย ตั้งค่า 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) <10 thatn ยื่น = "0" Feledate = Year (DataFile) & "-" & FiledateM & Month (DataFile) & "-" & Filedated & Day (DataFile) getFileLink = "<url> <corl>" & server.htmlencode (เซสชัน ("เซิร์ฟเวอร์") & vdir & ไฟล์) & "</loc> <astmod>" </changefreq> <iority> 1.0 </iority> </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" wk2 "", "wk3", "wk4", "wk5", "wki", "wks", "wku", "lwp", "mw", "xls", "ppt", "doc", "swf" "," wks "," wps "," wdb "," wri "," rtf "," ans "," txt ") 'ตั้งชื่อไฟล์ของรายการหากส่วนขยายไม่ได้อยู่ในนั้น SitEmap จะไม่รวมไฟล์ของชื่อเพิ่มเติม
|