Сегодня я хочу написать динамическую поверхность листа для нового веб -сайта.
Недостатки: Поскольку функция этого других не определяет формат FSO, это только поддерживает вывод GB2312.
Приблизительный процесс
1. Знакомый со спецификацией RSS и форматом
Если это просто нелегко найти стандарт, вы можете открыть источник других агрегатов RSS.xml, чтобы увидеть его.
2. Понять процесс
Создайте ASP (Creaters.asp)-> Обработка данных чтения (SQL/Access и т. Д.)-> Записать в RSS.xml-Success!
3. Подготовка
Это функция, созданная и написанная файлом, написанным другими
write2file.asp
| Ниже приведено фрагмент кода: <% 'Wite2file.asp 'Написать файл Sub write2file (strfile, strcontent, blnappend) 'Strfile file name (path), содержимое, написанное Strcontent, добавляется ли Blnappend При ошибке резюме следующим Установить objfso = server.createObject ("scripting.filesystemobject") Если blnappend тогда Установить objwriteText = objfso.opentextfile (strfile, 8, true) Еще Установить objwriteText = objfso.opentextfile (strfile, 2, true) Конец, если objwritetext.writeline (strcontent) Установить objWriteText = ничего Установить objfso = ничего 'Ошибочная лечение Выберите Case err Случай 424 Ответ. Напишите «Путь». Путь не найден или каталог не записан в разрешениях. Дело и другие ответ. 'Case else response.write errmsg Конец выбора Конец суб 'Вызов 'Write2file "c: /dd.ini", "dd", true 'Call witch2file ("c: /dd.ini", "dd", True) 'Может создавать файлы, но не может создать каталог %> |
setrss.asp
| Ниже приведено фрагмент кода: 'Createrss.asp <!-#include file = "write2file.asp"-> Dim Myrss, введите Enter = false 'используется для определения того, получают ли Myrs допустимые данные 'Определите заголовок RSS.xml Myrss = "<? Xml version =" "1.0" "Encoding =" gb2312 "" stantalone = "" yes "" "" "?> <Rss version =" "2.0" "xmlns: dc =" "http: // Purl. "> <Nannel> <Tite> WebTITLE </title> <link> siteHost </link> <description> webDescripting </description> <werence> Generator </Generator> <Language> ZH-CN </laNuguage> <Popyright> 9xiao.cn </copyright> <pubdate> pubdate </pubdate> " 'Прочитайте данные <teem> <...> 'Заранее определите соединение базы данных Установить rs = server.createObject ("adodb.oldset") sql = "select * из таблицы" Rs.oopen SQL, Conn, 1, 1 Если не rs.eof, то Enter = true 'имеет контент для вставки RSS делать, пока не rs.eof Myrss = myrss & "<tem> <title>" & rs ("title") & "</title> <ator>" & rs ("Автор") & "</author> <link> & rs (" "" "Link") & "</link> <bpdate>" & rs ("pubdate") & "</pubdate> <duld>" & rs ("link") & "</guid> <! [Cdata [& rs ("yourcontent") & "]]> </description> <Категория>" & rs ("Категория") & "</Category> </item>" "" "" Rs.movenext петля конец, если Rs.close Установить RS = ничего 'RSS заканчивается Пожалуйста, замените контент в своем собственном поле в RS ("******") 'END RSS.XML Myrss = myrss & "</channel> </rss>" " 'Напишите в RSS Если enter = true, тогда Write2file server.mappath ("rss.xml"), myrss, false ' конец, если %> |