Teman-teman yang sudah membacanya bisa membantu. Kode-kode ini diposting untuk pertama kalinya. Banyak kode di luar sana yang sangat rumit, tidak dapat dipahami, atau tidak dapat digunakan Ada banyak yang disebut kode di luar sana. Kode pembuatan peta situs hanya menghasilkan alamat file direktori dan tidak menghasilkan alamat dinamis. Jika Anda adalah situs web artikel dengan 2.000 artikel, maka Anda dapat memodifikasi tabel data artikel yang sesuai dengan Anda untuk menghasilkan tidak hanya semua file direktori, tetapi juga 2.000 alamat dinamis Anda .
Simpan kode berikut sebagai file sitemap.asp, modifikasi beberapa tempat yang telah saya catat, dan jangan modifikasi yang lain. Anda hanya akan mengetahui apakah itu bagus setelah menggunakannya.
Copy kode kodenya sebagai berikut:
<!--#sertakan file=sambungan.asp-->
<%
sesi(hitungan)=0
strURL = http:// & permintaan.variabel server(SERVER_NAME) & _
kiri(request.servervariables(SCRIPT_NAME),len(request.servervariables(SCRIPT_NAME))-len(/sitemap.asp))
kucing bodoh yang redup
kucing bodoh = kucing bodoh + <?xml versi=1.0 pengkodean=UTF-8?>
Foolcat = Foolcat + <!--File Peta Situs Google Dihasilkan oleh http://www.xxx.com & return_RFC822_Date(now,GMT) & -->
kucing bodoh = kucing bodoh + <urlset xmlns=http://www.google.com/schemas/sitemap/0.84>
kucing bodoh = kucing bodoh + <url>
kucing bodoh = kucing bodoh + <loc> & strURL & /</loc>
kucing bodoh = kucing bodoh + </url>
sesi(hitungan)=sesi(hitungan)+1
atur all_fs = Server.CreateObject(Scripting.FileSystemObject)
atur all_folder = all_fs.GetFolder(server.MapPath(/))
atur semua_file = semua_folder.file
untuk setiap file di all_files
kucing bodoh = kucing bodoh + <url>
kucing bodoh = kucing bodoh + <loc> & strURL & / & File.Nama & </loc>
kucing bodoh = kucing bodoh + </url>
sesi(hitungan)=sesi(hitungan)+1
Berikutnya
redupkan js,sql
set js = server.CreateObject(ADODB.RecordSet)
sql = pilih * dari [nama tabel yang akan dibuat] urutkan berdasarkan id asc //Ubah nama tabel data yang ingin dibuat
set js = samb.execute (sql)
lakukan sampai js.eof
id=&js(id) //Ubah ke kolom id Anda
kucing bodoh = kucing bodoh + <url>
Foolcat = Foolcat + <loc> & strURL & /xxx.asp?Id= & id & </loc> //Ubah nama file dan id Anda
kucing bodoh = kucing bodoh + </url>
sesi(hitungan)=sesi(hitungan)+1
js.movenext
lingkaran
js.close
atur js = tidak ada
kucing bodoh = kucing bodoh + </urlset>
kucing bodoh = + kucing bodoh +
kucing bodoh = & kucing bodoh &
Jalur Folder = Server.Jalur Peta(/)
Setel fso = Server.CreateObject(Scripting.FileSystemObject)
Setel fout = fso.CreateTextFile(FolderPath/sitemap.xml)
fout.writeLine kucing bodoh
fut.close
setel fut = tidak ada
samb.tutup
setel sambungan = tidak ada
Fungsi return_RFC822_Date(byVal myDate, byVal TimeZone)
Redupkan Hariku, Hariku, Bulanku, Tahunku
Redupkan myHours, myMinutes, mySeconds
Tanggalku = Tanggal CD(tanggalku)
hariku = NamaHari Minggu En(tanggalku)
hariku = Kanan(00 & Hari(Tanggalku),2)
Bulanku = NamaBulanEn(Tanggalku)
Tahunku = Tahun(Tanggalku)
myHours = Kanan(00 & Jam(tanggal saya),2)
myMinutes = Kanan(00 & Menit(tanggal saya),2)
mySeconds = Kanan(00 & Detik(tanggal saya),2)
return_RFC822_Date = hari saya, & _
hariku & _
bulanku&_
Tahunku&_
jam saya:& _
menit saya:& _
detik saya & _
& Zona Waktu
Fungsi Akhir
Fungsi EnWeekDayName (Tanggal Masukan)
Hasil Redup
Pilih Hari Minggu Kasus (Tanggal Masukan, 1)
Kasus 1:Hasil=Minggu
Kasus 2:Hasil=Senin
Kasus 3:Hasil=Selasa
Kasus 4:Hasil=Rabu
Kasus 5:Hasil=Kamis
Kasus 6:Hasil=Jumat
Kasus 7: Hasil=Sab
Pilihan Akhir
EnWeekDayName = Hasil
Fungsi Akhir
Fungsi EnMonthName (Tanggal Masukan)
Hasil Redup
Pilih Bulan Kasus (Tanggal Masukan)
Kasus 1: Hasil=Jan
Kasus 2:Hasil=Februari
Kasus 3:Hasil=Mar
Kasus 4:Hasil=Apr
Kasus 5:Hasil=Mei
Kasus 6: Hasil=Jun
Kasus 7: Hasil = Juli
Kasus 8: Hasil = Agustus
Kasus 9: Hasil=Sep
Kasus 10: Hasil=Okt
Kasus 11: Hasil=Nov
Kasus 12:Hasil=Des
Pilihan Akhir
EnMonthName = Hasil
Fungsi Akhir
%>