Рекомендуется: 20 очень полезных примеров в программировании ASP (I) 1. Как использовать ASP, чтобы определить виртуальный физический путь вашего веб -сайта Ответ: Используйте метод MAPPATH: < % = server.mappath () %> 2. Ответ: Используйте метод объекта запроса:
Некоторое время назад, чтобы добавить функцию подписки RSS в свой сайт фильма, я написал код ASP, который динамически генерирует RSS -канал. Поскольку сайт фильма получит его напрямую. Сгенерированный RSS-канал кодируется UTF-8, подтверждается FeedValidator.org и совместим с RSS 2.0 и Atom.
Как использовать: Сохраните следующий код как RSS.ASP (не забудьте сохранить его в формате UTF-8) и загрузите его в корневую каталог веб-сайта. Ваше доменное имя /rss.asp
Демо: http://www.366mv.cn
Код выглядит следующим образом.
| <%@Language = VBScript CodePage = 65001%> <% Session.codepage = 65001 Response.charset = utf-8 '============================================================================ ================= ============================================================= «Copyright (C) 2005-2007, Sour Liu Liu Film and Television ([url] www.366mv.cn [/url]) Все права защищены. '============================================================================ ================= ============================================================= «Имя: rss.asp 'Описание: динамически генерировать RSS -канал. '============================================================================ ================= ============================================================= %> <!-#include file = inc/conn.asp-> <? xml version = 1.0 Encoding = UTF-8?> <rss version = 2,0 xmlns: atom = http: //www.w3.org/2005/atom> <% Название = Souliao Liu Film and Television'clage It на ваше собственное имя response.write <nannel> & chr (13) response.write <atom: link href = http: //&maxz_2&/xml.asp rel = self type = application/rss xml/> & chr (13) response.write <title> Последние обновленные видео - & title & </title> & chr (13) response.Write <NINKE> http: // & maxz_2 & </link> & chr (13) response.write <Описание> и название и - смотреть десять тысяч видео онлайн. Бесплатные фильмы, онлайн -фильмы, TVB, японские драмы, корейские драмы, анимация, научная фантастика, ужас, роман, сериал, блокбастеры, новогодние фильмы ... </description> & chr (13) response.write get_left (15,0) 'Показать первые 15 видео, отсортированные по дате обновления response.write </channel> & chr (13) Функция re (str) Если нет isnull (str), то тогда re = заменить (str & &) re = заменить (re, <, <) re = Заменить (re,>,>) re = заменить (re, ', & apos;) re = заменить (re ,,) Конец, если Конечная функция Функция get_left (n, m) n = cint (n): m = cint (m) Если m = 1 то MM = заказ от ZT_HIT Еще MM = заказ по zt_date desc 'сортирован по дате обновления Конец, если Установите rs1 = conn.execute (выберите Top & n & zt_id, zt_name, zt_zy, zt_dy, zt_type, zt_date, zt_hits, zt_content от zt_data & mm) get_left_i = 0 Делать, пока не rs1.eof get_left_i = get_left_i 1 get_left = get_left & <tem> & chr (13) get_left = get_left & <title> & re (rs1 (zt_name)) и </title> & chr (13) get_left = get_left & <link> http: // & maxz_2 &/& get_classenname (rs1 (zt_type)) и/& rs1 (zt_id) & </link> & chr (13) get_left = get_left & <description> <! > <p> Старшая главная роль: & rs1 (zt_zy) & </p> <p> сюжет: & re (rs1 (zt_content)) и </p>]]> </description> & chr (13) get_left = get_left & <bide> http: // & maxz_2 &/& get_classenname (rs1 (zt_type)) и/& rs1 (zt_id) & </guid> & chr (13) get_left = get_left & <Category> <! [CDATA [& get_classname (rs1 (zt_type)) и]> </category> & chr (13) get_left = get_left & <pubdate> & datetorfc822 (rs1 (zt_date)) и </pubdate> & chr (13) get_left = get_left & </item> & chr (13) Если get_left_i> = n, тогда выйдите rs1.movenext Петля rs1.close Конечная функция Функция datetorfc822 (byval dtaval) Dim Strcurlocale: strcurlocale = getLocale () Setlocale (en-gb) dtaval = cdate (dtaval) DateTorfc822 = WeekDayName (WeekDay (Dtaval), True) & & _ Справа (0 и день (dtaval), 2) & _ Monthname (месяц (dtaval), true) & _ Год (dtaval) & & _ Справа (0 и час (dtaval), 2) &: & _ Справа (0 & Minute (dtaval), 2) &: & _ Справа (0 & Second (dtaval), 2) & _ 0800 Setlocale (strcurlocale) Конечная функция %> </rss> |
Поделиться: как ASP может получить первый адрес изображения в коде 'Измените шаблон снова, чтобы обнаружить Code'http: //www.knowsky.com/asp.asp'leixing html или Ubb'nopic Cod