Freunde, die es gelesen haben, können helfen. Viele der Codes da draußen sind entweder sehr kompliziert, unverständlich oder unbrauchbar. Ich habe versucht, so prägnant und klar wie möglich zu sein . Es gibt viele sogenannte Codes, die nur Verzeichnisdateiadressen generieren und keine dynamischen, die dynamische Adressen unterstützen. Wenn Sie eine Artikel-Website mit 2.000 Artikeln haben, können Sie die entsprechende Artikeldatentabelle ändern, um nicht nur alle Verzeichnisdateien, sondern auch Ihre dynamischen 2.000 Adressen zu generieren, und die Generierungsgeschwindigkeit ist sehr hoch .
Speichern Sie den folgenden Code als sitemap.asp-Datei, ändern Sie einige Stellen, die ich notiert habe, und ändern Sie die anderen nicht. Sie werden erst nach der Verwendung wissen, ob er gut ist.
Kopieren Sie den Codecode wie folgt:
<!--#include file=conn.asp-->
<%
Sitzung(Anzahl)=0
strURL = http:// & request.servervariables(SERVER_NAME) & _
left(request.servervariables(SCRIPT_NAME),len(request.servervariables(SCRIPT_NAME))-len(/sitemap.asp))
düsterer Narr
Foolcat = Foolcat + <?xml Version=1.0 Encoding=UTF-8?>
Foolcat = Foolcat + <!--Google Site Map-Datei generiert von http://www.xxx.com & return_RFC822_Date(now,GMT) & -->
Foolcat = Foolcat + <urlset xmlns=http://www.google.com/schemas/sitemap/0.84>
Foolcat = Foolcat + <URL>
Foolcat = Foolcat + <loc> & strURL & /</loc>
Foolcat = Foolcat + </url>
Sitzung(Anzahl)=Sitzung(Anzahl)+1
set all_fs = Server.CreateObject(Scripting.FileSystemObject)
set all_folder = all_fs.GetFolder(server.MapPath(/))
setze all_files = all_folder.files
für jede Datei in all_files
Foolcat = Foolcat + <URL>
Foolcat = Foolcat + <loc> & strURL & / & File.Name & </loc>
Foolcat = Foolcat + </url>
Sitzung(Anzahl)=Sitzung(Anzahl)+1
nächste
dim js,sql
set js = server.CreateObject(ADODB.RecordSet)
sql = select * from [zu generierender Tabellenname] order by id asc //Ändern Sie den Namen der Datentabelle, die Sie generieren möchten
set js = conn.execute (sql)
tun, bis js.eof
id=&js(id) //Ändern Sie Ihr ID-Feld
Foolcat = Foolcat + <URL>
Foolcat = Foolcat + <loc> & strURL & /xxx.asp?Id= & id & </loc> //Ändern Sie Ihren Dateinamen und Ihre ID
Foolcat = Foolcat + </url>
Sitzung(Anzahl)=Sitzung(Anzahl)+1
js.movenext
Schleife
js.close
setze js = nichts
Foolcat = Foolcat + </urlset>
Foolcat = + Foolcat +
Foolcat = & Foolcat &
FolderPath = Server.MapPath(/)
Setze fso = Server.CreateObject(Scripting.FileSystemObject)
Setze fout = fso.CreateTextFile(FolderPath/sitemap.xml)
fout.writeLine Foolcat
fout.close
set fout = nichts
Verbindung schließen
setze conn = nichts
Funktion return_RFC822_Date(byVal myDate, byVal TimeZone)
Dimmen Sie myDay, myDays, myMonth, myYear
Dimmen Sie myHours, myMinutes, mySeconds
myDate = CDate(myDate)
myDay = EnWeekDayName(myDate)
myDays = Right(00 & Day(myDate),2)
myMonth = EnMonthName(myDate)
myYear = Year(myDate)
myHours = Right(00 & Hour(myDate),2)
myMinutes = Right(00 & Minute(myDate),2)
mySeconds = Right(00 & Second(myDate),2)
return_RFC822_Date = myDay, & _
myDays & _
meinMonat&_
meinJahr&_
myHours:& _
meineMinuten:& _
mySeconds & _
& Zeitzone
Funktion beenden
Funktion EnWeekDayName(InputDate)
Dunkles Ergebnis
Wählen Sie Case WeekDay(InputDate,1)
Fall 1:Ergebnis=Sonn
Fall 2:Ergebnis=Mon
Fall 3:Ergebnis=Di
Fall 4:Ergebnis=Mi
Fall 5:Ergebnis=Do
Fall 6:Ergebnis=Fr
Fall 7:Ergebnis=Sa
Endauswahl
EnWeekDayName = Ergebnis
Funktion beenden
Funktion EnMonthName(InputDate)
Dunkles Ergebnis
Fallmonat auswählen (Eingabedatum)
Fall 1: Ergebnis=Jan
Fall 2: Ergebnis = Feb
Fall 3: Ergebnis = März
Fall 4: Ergebnis=Apr
Fall 5: Ergebnis=Mai
Fall 6:Ergebnis=Jun
Fall 7:Ergebnis=Jul
Fall 8: Ergebnis = Aug
Fall 9:Ergebnis=Sep
Fall 10:Ergebnis=Okt
Fall 11:Ergebnis=Nov
Fall 12:Ergebnis=Dez
Endauswahl
EnMonthName = Ergebnis
Funktion beenden
%>