Как использовать: Сохраните следующий код как RSS.ASP (не забудьте сохранить его в формате UTF-8) и загрузите его в каталог root Веб-сайт. Остальное состоит в том, чтобы найти портал отправки RSS для отправки вашего адреса подачи http: // Ваше доменное имя/rss.asp
Демо: http://www.366mv.cn
Код выглядит следующим образом. Пожалуйста, измените соответствующую информацию в соответствии с комментариями. Я надеюсь, что вы сможете сохранить информацию об авторском праве ^_ ^
Кода -копия выглядит следующим образом:
<%@Language = "vbscript" codepage = "65001"%>
<%
Session.codepage = 65001
Response.charset = "UTF-8"
'=========================================================================================
Copyright (C) 2005-2007, соевые фильмы и телевидение ([url] www.366mv.cn [/url]).
'=========================================================================================
«Имя: rss.asp
'Описание: динамически генерировать RSSFEED.
'=========================================================================================
%>
<!-#includefile = inc/conn.asp-> <? xmlversion = "1.0" Encoding = "UTF-8"?>
<rssversion = "2.0" XMLNS: atom = "http://www.w3.org/2005/atom">
<%
title = "生杯典" 'изменилось на ваше собственное имя
ответ.
response.write "<atom: linkhref =" "http: //" & maxz_2 & "/xml.asp" "rel =" "self" "type =" "application/rss+xml"/> "& chr (13)
Ответ.
response.write "<nignal> http: //" & maxz_2 & "</link>" & chr (13)
response.write "<secription>" & title & "-смотреть десять тысяч фильмов онлайн. Бесплатные фильмы, онлайн-фильмы, TVB, японские драмы, корейские драмы, анимация, научная фантастика, ужас, романтика, сериал, блокбастеры, новогодние фильмы ... </description>" & Chr (13)
response.writeget_left (15,0) 'Показать первые 15 видео, отсортированные по дате обновления
response.write "</cannel>" & chr (13)
Functionre (str)
Ifnotisnull (str) тогда
re = reply (str, "&", "&")
re = заменить (re, "<", "<")
re = reply (re, ">", ">")
re = reply (re, "'", "'")
re = reply (re, "" "", "" ")
Эндиф
Конечная функция
Functionget_left (n, m)
n = cint (n): m = cint (m)
Ifm = 1then
mm = "orderbyzt_hitsdesc" '' Сортируется с помощью кликов
Еще
mm = "orderbyzt_datedest" 'сортирован по дате обновления
Эндиф
setrs1 = conn.execute ("selecttop" & n & "zt_id, zt_name, zt_zy, zt_dy, zt_type, zt_date, zt_hits, zt_contentfromzt_data" & mm)
get_left_i = 0
Dowhilenotrs1.eof