Друзья, которые видели, могут помочь вершину. просто, когда я пишу.
Добавьте функцию агрегации RSS для вашего веб -сайта, блога и т. Д., А теперь дайте код полимеризации RSS.ASP, чтобы увидеть, как вы отвечаете, если хорошо
Вам удобно отлаживать и показать появление http://www.nbpda.com/rss.asp
После тестирования поддерживайте большинство совокупных читателей
Следующий код сохраняется как rss.asp
Ниже приведено фрагмент кода:
| Ниже приведено фрагмент кода: <!-#include file = "conn.asp"-> <% strurl = "http: //" & request.servervariables ("server_name") & _ Слева (request.servervariables ("script_name"), len (request.servervariables ("script_name"))-len ("/rss.asp") //-это ваше имя для вашего имени файла SQL = "Выберите Top 100 * из заказа [Table] от id desc" // Согласно фактической модификации, топ -100 - это последние 100 элементов, изменить его самостоятельно, и в то же время вы можете добавить условия запроса, такие как где xxx = 1 .... Установить rs = server.createObject ("adodb.oldset") Rs.oopen SQL, Conn, 1,1 response.contenttype = "text/xml" response.write "<? xml version =" "1.0" "Encoding =" gb2312 ""?> "& vbcrlf response.write "<rss version =" "2.0" ">" & vbcrlf response.write "<nelanse>" & vbcrf response.write "<title> xxx.com rss feed </title>" & vbcrlf response.write "<NINKE>" & strURL & "</link>" & vBcrip ответ. response.write "<Copyright> rss -канал для xxx.comcopyright>" & vbcrlf Хотя не рупий response.write "<tem>" & vbcrlf Response.write "<title> <! [" "" & Rs ("title") & "] >> </title>" & vbcrlf Response.write "<nulte>" & strurl & "/xxxx.asp? Id =" & rs ("id") & "</link>" & vblockff Response.Write "<SOMNAD> <! [" "" "" "& Rs (" Field Theme Field ") &" <br /> "& rs (" Field Content ") &" <br /> <br />]>>>> < /description> "& vbcrf Response.write "<pubdate>" & return_rfc822_date (rs ("Поле времени"), "Gmt") & "</pubdate>" & vbcrlfff response.write "</item>" & vbcrf Rs.movenext Венд response.write "</cannel>" & vbcrlf response.write "</rss>" & vbcrlf Rs.close Установить RS = ничего Функция return_rfc822_date (byval mydate, byval timezone) Dim MyDay, MyDays, MyMonth, Myyear Dim Myhours, Myminutes, Myseconds mydate = cdate (mydate) Myday = enweekdayname (mydate) MyDays = right ("00" & day (mydate), 2) myMonth = enmonthName (mydate) myyear = год (mydate) myhours = right ("00" и час (mydate), 2) Myminutes = right ("00" и минута (mydate), 2) Myseconds = right ("00" и второе (mydate), 2) Return_rfc822_date = myday & "," & _ MyDays & "" & _ MyMonth & "& _ Myyear & "" & _ мой дом & ":" & _ Myminutes & ":" & _ Myseconds & "" & _ "" "& Timezone Конечная функция Функция enweekdayname (inputdate) Тусклый результат Выберите Case Weekday (inputdate, 1) Случай 1: Результат = "Солнце" Случай 2: Результат = "Пн" Случай 3: Результат = "Вторник" Случай 4: Результат = "Ср" Случай 5: Результат = "Чт" Случай 6: Результат = "Пт" Случай 7: Результат = "SAT" Конец выбора EnweekDayName = результат Конечная функция Функция EnmonthName (inputDate) Тусклый результат Выберите месяц случая (inputdate) Случай 1: Результат = "Ян" Случай 2: Результат = "февраль" Случай 3: Результат = "Мар" Случай 4: Результат = "Апр" Случай 5: Результат = "может" Случай 6: Результат = "Jun" Случай 7: Результат = "Jul" Случай 8: Результат = "Авг" Случай 9: Результат = "СЕП" Случай 10: Результат = "ОКТ" Случай 11: Результат = "Nov" Случай 12: Результат = "DEC" Конец выбора EnmonthName = результат Конечная функция %> |