Создание агрегации RSS и XML в основном предназначено для облегчения подписки и предоставления пользователям возможности быстро узнавать об обновлениях вашего веб-сайта. формат rss.asp
Следующий код сохраняется как rss.asp
Скопируйте код кода следующим образом:
<!--#include file=conn.asp-->
<%
strURL = http:// & request.servervariables(имя_сервера) & _
left(request.servervariables(script_name),len(request.servervariables(SCRIPT_NAME))-len(/rss.asp)) ///rss.asp — это имя вашего файла
sql=select top 100 * from [table name] order by id desc //Согласно вашему фактическому изменению, топ-100 — это последние 100, измените его самостоятельно и добавьте условия запроса, например, где xxx=1... .
установите rs=server.createobject(adodb.recordset)
rs.open sql,conn,1,1
ответ.contenttype=текст/xml
response.write <?xml version=1.0coding=gb2312 ?> & vbcrlf
response.write <rss version=2.0> и vbcrlf
response.write <канал> и vbcrlf
response.write <title>RSS-канал xxx.com</title> и vbcrlf
response.write <link> & strURL & </link> & vbcrlf
response.write <language>zh-cn</language> и vbcrlf
response.write <авторское право>RSS-канал для xxx.comcopyright> и vbcrlf
пока не RS.eof
response.write <элемент> и vbcrlf
response.write <title><![CDATA[ & rs(title) & ]]></title> & vbcrlf
response.write <link>&strURL/xxxx.asp?Id=&rs(id)</link> и vbcrlf
response.write <description><![CDATA[ & rs(поле темы) & <br /> & rs (поле содержимого) & <br /><br />]]></description> & vbcrlf
response.write <pubDate> & return_RFC822_Date(rs(поле времени),GMT) & </pubDate> & vbcrlf
response.write </item> и vbcrlf
rs.movenext
идти
response.write </channel> и vbcrlf
response.write </rss> и vbcrlf
RS.закрыть
установить rs=ничего
Функция 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: Результат = декабрь
Конец выбора
ИмяЭнМесяца = Результат
Конечная функция
%>
формат rss.xml
Скопируйте код кода следующим образом:
<!--#include file=conn.asp-->
<%
strURL = http:// & request.servervariables(SERVER_NAME) & _
left(request.servervariables(SCRIPT_NAME),len(request.servervariables(SCRIPT_NAME))-len(/rss.asp))
дим дурак, js
установите js = server.CreateObject(ADODB.RecordSet)
sql = выбрать * из [имя таблицы] упорядочить по возрастанию идентификатора
установить js = conn.execute (sql)
дурак = дурак + <?xml версия=1.0 кодировка=UTF-8 ?>
дурак = дурачок + <rss версия=2.0>
дурак = дурачок + <канал>
дурак = дурак + <title>XML-фид xxx.com</title>
дурак = дурак + <link> & strURL & </link>
дурачок = дурак + <язык>zh-cn</language>
дурак = дурак + <copyright>Фид XML для xxx.com</copyright>
делать до тех пор, пока js.eof
дурак = дурак + <предмет>
дурак = дурак + <title><![CDATA[ & rs(поле темы) & ]]></title>
дурак = дурак + <description><![CDATA[ & rs(поле темы) & <br /> & rs(поле содержимого) & <br /><br />]]></description>
дурак = дурак + <ссылка> & strURL & /xxx.asp?Id=&rs(поле идентификатора)</link>
дурак = дурак + <pubDate> & rs(поле времени) & </pubDate>
дурак = дурак + </item>
js.movenext
петля
js.закрыть
установить js = ничего
дурачок = дурак + </channel>
дурак = дурак + </rss>
дурак = + дурак +
дурак = & дурак &
FolderPath = Server.MapPath(/)
Установите fso = Server.CreateObject(Scripting.FileSystemObject)
Установите fout = fso.CreateTextFile(FolderPath/rss.xml)
fout.writeLine дурак
фут.закрыть
установить fout = ничего
конн.закрыть
установить соединение = ничего
%>