เพื่อนที่ได้อ่านแล้วสามารถช่วยได้ รหัสเหล่านี้ถูกโพสต์เป็นครั้งแรก โค้ดจำนวนมากมีความซับซ้อน ไม่สามารถเข้าใจได้ หรือใช้งานไม่ได้ เมื่อฉันเขียนข้อความต่อไปนี้ ฉันได้พยายามที่จะกระชับและชัดเจนที่สุด มีโค้ดที่เรียกว่ามากมาย โค้ดการสร้างแผนผังไซต์จะสร้างเฉพาะที่อยู่ไฟล์ไดเร็กทอรีเท่านั้น และไม่ได้สร้างโค้ดนี้เองในภายหลัง ซึ่งรองรับไดนามิก ตัวอย่าง: หากคุณเป็นเว็บไซต์บทความที่มีบทความ 2,000 บทความ คุณสามารถแก้ไขตารางข้อมูลบทความที่สอดคล้องกับคุณเพื่อสร้างไม่เพียงแต่ไฟล์ไดเร็กทอรีทั้งหมด แต่ยังรวมไปถึงที่อยู่ไดนามิก 2,000 รายการของคุณอีกด้วย และความเร็วในการสร้างก็รวดเร็วมาก .
บันทึกโค้ดต่อไปนี้เป็นไฟล์ sitemap.asp แก้ไขบางตำแหน่งที่ฉันจดบันทึกไว้ และอย่าแก้ไขส่วนอื่นๆ คุณจะรู้ได้เฉพาะเมื่อใช้งานแล้วเท่านั้น
คัดลอกรหัสรหัสดังต่อไปนี้:
<!--#include file=conn.asp-->
-
เซสชั่น(นับ)=0
strURL = http:// & คำขอเซิร์ฟเวอร์ตัวแปร (SERVER_NAME) & _
ซ้าย(request.servervariables(SCRIPT_NAME),len(request.servervariables(SCRIPT_NAME))-len(/sitemap.asp))
แมวโง่สลัว
Foolcat = Foolcat + <?xml version=1.0 การเข้ารหัส=UTF-8?>
Foolcat = Foolcat + <!--ไฟล์แผนผังเว็บไซต์ของ Google สร้างโดย http://www.xxx.com & return_RFC822_Date(now,GMT) & -->
โง่ = โง่ + <urlset xmlns=http://www.google.com/schemas/sitemap/0.84>
หลอกแมว = หลอกแมว + <url>
หลอก = หลอก + <loc> & strURL & /</loc>
หลอกแมว = หลอกแมว + </url>
เซสชั่น(นับ)=เซสชั่น(นับ)+1
ตั้งค่า all_fs = Server.CreateObject (Scripting.FileSystemObject)
ตั้งค่า all_folder = all_fs.GetFolder(server.MapPath(/))
ตั้งค่า all_files = all_folder.files
สำหรับแต่ละไฟล์ใน all_files
หลอกแมว = หลอกแมว + <url>
โง่ = หลอก + <loc> & strURL & / & ไฟล์ชื่อ & </loc>
หลอกแมว = หลอกแมว + </url>
เซสชั่น(นับ)=เซสชั่น(นับ)+1
ต่อไป
js, sql สลัว
ตั้ง js = เซิร์ฟเวอร์ CreateObject (ADODB.RecordSet)
sql = เลือก * จาก [ชื่อตารางที่จะสร้าง] เรียงลำดับตาม id asc //แก้ไขชื่อของตารางข้อมูลที่คุณต้องการสร้าง
ตั้งค่า js = conn.execute (sql)
ทำจนถึง js.eof
id=&js(id) //เปลี่ยนเป็นช่อง ID ของคุณ
หลอกแมว = หลอกแมว + <url>
โง่ = โง่ + <loc> & strURL & /xxx.asp?Id= & id & </loc> // เปลี่ยนเป็นชื่อไฟล์และ id ของคุณ
หลอกแมว = หลอกแมว + </url>
เซสชั่น(นับ)=เซสชั่น(นับ)+1
js.movenext
วนซ้ำ
js.ปิด
ตั้งค่า js = ไม่มีเลย
หลอกแมว = หลอกแมว + </urlset>
หลอกแมว = + หลอกแมว +
หลอกแมว = & หลอกแมว &
FolderPath = Server.MapPath(/)
ตั้งค่า fso = Server.CreateObject (Scripting.FileSystemObject)
ตั้งค่า fout = fso.CreateTextFile(FolderPath/sitemap.xml)
fout.writeLine หลอกแมว
fout.ปิด
ตั้งค่า fout = ไม่มีอะไร
เชื่อมต่อปิด
ตั้งค่า conn = ไม่มีอะไร
ฟังก์ชัน return_RFC822_Date (byVal myDate, byVal TimeZone)
หรี่ myDay, myDays, myMonth, myYear
หรี่ myHours, myMinutes, mySeconds
myDate = CDate (myDate)
myDay = EnWeekDayName(myDate)
myDays = ขวา(00 & วัน (myDate),2)
myMonth = ชื่อเดือน(myDate)
myYear = ปี(myDate)
myHours = ขวา(00 & ชั่วโมง(myDate),2)
myMinutes = ขวา(00 & นาที(myDate),2)
mySeconds = ขวา(00 และวินาที (myDate),2)
return_RFC822_Date = วันของฉัน, & _
วันของฉัน & _
เดือนของฉัน&_
ปีของฉัน&_
ชั่วโมงของฉัน:& _
นาทีของฉัน:& _
วินาทีของฉัน & _
& เขตเวลา
ฟังก์ชันสิ้นสุด
ฟังก์ชัน EnWeekDayName(InputDate)
ผลลัพธ์สลัว
เลือกกรณี WeekDay(InputDate,1)
กรณีที่ 1:ผลลัพธ์=วันอาทิตย์
กรณีที่ 2:ผลลัพธ์=จันทร์
กรณีที่ 3:ผลลัพธ์=อังคาร
กรณีที่ 4:ผลลัพธ์=พุธ
กรณีที่ 5:ผลลัพธ์=พฤหัสบดี
กรณีที่ 6:ผลลัพธ์=ศุกร์
กรณีที่ 7:ผลลัพธ์=วันเสาร์
สิ้นสุดการเลือก
EnWeekDayName = ผลลัพธ์
ฟังก์ชันสิ้นสุด
ฟังก์ชัน EnMonthName(InputDate)
ผลลัพธ์สลัว
เลือกเดือนของกรณี(InputDate)
กรณีที่ 1:ผลลัพธ์=มกราคม
กรณีที่ 2:ผลลัพธ์=กุมภาพันธ์
กรณีที่ 3:ผลลัพธ์=มี.ค
กรณีที่ 4:ผลลัพธ์=เม.ย
กรณีที่ 5:ผลลัพธ์=เดือนพฤษภาคม
กรณีที่ 6:ผลลัพธ์=มิ.ย
กรณีที่ 7:ผลลัพธ์=ก.ค
กรณีที่ 8:ผลลัพธ์=ส.ค
กรณีที่ 9:ผลลัพธ์=ก.ย
กรณีที่ 10:ผลลัพธ์=ต.ค
กรณีที่ 11:ผลลัพธ์=พ.ย
กรณีที่ 12:ผลลัพธ์=ธันวาคม
สิ้นสุดการเลือก
ชื่อเดือน = ผลลัพธ์
ฟังก์ชันสิ้นสุด
-