Друзья, которые прочитали это, могут помочь. Эти коды публикуются впервые. Многие из существующих кодов либо очень сложны, либо непонятны, либо непригодны для использования. Когда я пишу следующее, я старался быть максимально кратким и ясным. Существует множество так называемых кодов. Код генерации карты сайта генерирует только адреса файлов каталогов, а не динамические. Я позже написал это, который поддерживает динамические. Если у вас есть веб-сайт статей с 2000 статьями, вы можете изменить соответствующую вам таблицу данных статей, чтобы генерировать не только все файлы каталогов, но и ваши динамические 2000 адресов. Это совершенно нечего сказать, и скорость генерации очень быстрая. .
Сохраните следующий код как файл sitemap.asp, измените несколько мест, которые я отметил, и не изменяйте остальные. Вы узнаете, хорош ли он, только после его использования.
Скопируйте код кода следующим образом:
<!--#include file=conn.asp-->
<%
сеанс (количество) = 0
strURL = http:// & request.servervariables(SERVER_NAME) & _
left(request.servervariables(SCRIPT_NAME),len(request.servervariables(SCRIPT_NAME))-len(/sitemap.asp))
тусклый дурак
дурак = дурак + <?xml версия=1.0 кодировка=UTF-8?>
дурак = дурак + <!--Файл карты сайта 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 & / & File.Name & </loc>
дурак = дурак + </url>
сеанс(количество)=сессия(количество)+1
следующий
дим JS, SQL
установите js = server.CreateObject(ADODB.RecordSet)
sql = select * from [имя таблицы, которая будет сгенерирована] в порядке по возрастанию идентификатора // Измените имя таблицы данных, которую вы хотите сгенерировать
установить js = conn.execute (sql)
делать до тех пор, пока js.eof
id=&js(id) //Измените поле идентификатора
дурачок = дурак + <url>
дурак = дурак + <loc> & strURL & /xxx.asp?Id= & id & </loc> //Измените имя и идентификатор файла
дурак = дурак + </url>
сеанс(количество)=сессия(количество)+1
js.movenext
петля
js.закрыть
установить js = ничего
дурачок = дурак + </urlset>
дурак = + дурак +
дурак = & дурак &
FolderPath = Server.MapPath(/)
Установите fso = Server.CreateObject(Scripting.FileSystemObject)
Установите fout = fso.CreateTextFile(FolderPath/sitemap.xml)
fout.writeLine дурак
фут.закрыть
установить fout = ничего
конн.закрыть
установить соединение = ничего
Функция return_RFC822_Date(byVal myDate, byVal TimeZone)
Уменьшить myDay, myDays, myMonth, myYear
Уменьшите яркость моих часов, моих минут, моих секунд
мояДата = CDate(мояДата)
myDay = EnWeekDayName(myDate)
myDays = Right(00 & Day(myDate),2)
myMonth = EnMonthName(myDate)
мойГод = Год(мояДата)
myHours = Right(00 & Hour(myDate),2)
myMinutes = Right(00 & Minute(myDate),2)
mySeconds = Right(00 и секунда(myDate),2)
return_RFC822_Date = мойДень, & _
моиДни & _
мойМесяц&_
мойГод&_
мои часы:& _
моиМинуты:& _
моисекунды & _
и часовой пояс
Конечная функция
Функция EnWeekDayName(InputDate)
Тусклый результат
Выберите случай WeekDay(InputDate,1)
Случай 1: Результат = Солнце
Случай 2: Результат = Пн.
Случай 3: Результат = Вт.
Случай 4: Результат = Ср.
Случай 5: Результат = четверг
Случай 6: Результат = Пт.
Случай 7: Результат=Сб
Конец выбора
ИмяДняНедели = Результат
Конечная функция
Функция EnMonthName(InputDate)
Тусклый результат
Выберите месяц дела (InputDate)
Случай 1: Результат = Январь
Случай 2: Результат = февраль
Случай 3: Результат=Март
Случай 4: Результат = апрель
Случай 5: Результат = май
Случай 6: Результат = июнь
Случай 7: Результат = июль
Случай 8: Результат = август
Случай 9: Результат = сентябрь
Случай 10: Результат = октябрь
Случай 11: Результат = ноябрь
Случай 12: Результат = декабрь
Конец выбора
ИмяЭнМесяца = Результат
Конечная функция
%>