九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

    前面用ASP讀取了RSS，又在網(wǎng)上搜羅了下ASP生成RSS的，大概有兩種方法，第一是直接在ASP頁面中寫XML的元素，但是要符合XML的格式。另外一種就是用ASP寫XML后綴名的文件?？傮w看來第一種方法比較簡單。

實(shí)例如下：

****************************文件名  RSS.asp**************************

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#Include Virtual="Inc/Conn.asp"-->
<%

Response.Charset = "gb2312"

'注意以下的中文和網(wǎng)址以本博客為例

Response.ContentType="text/xml"

Response.Write("<?xml version=""1.0"" encoding=""gb2312"" ?>")
Response.Write("<rss version=""2.0"">")
Response.Write("<channel>")
Response.Write("<title>老虎花信息速遞</title>")
Response.Write("<link>http://www.ailicn.cn</link>")
Response.Write("<description>信息速遞</description>")
Response.Write("<category>老虎花的博客</category>")
Response.Write("<language>zh-cn</language>")
Response.Write("<docs>http://www.ailicn.cn/RSS.asp</docs>")
Response.Write("<generator>http://www.ailicn.cn</generator>")
Response.Write("<webMaster>web@ailicn.cn</webMaster>")
Response.Write("<managingEditor>web@ailicn.cn</managingEditor>")
Response.Write("<pubDate>"&Now()&"</pubDate>")
Response.Write("<lastBuildDate>"&Now()&"</lastBuildDate>")
Response.Write("<ttl>30</ttl> ")
Response.Write("<copyright>Copyright 2007,老虎花博客.</copyright>")

Dim sql
Dim rs

'以下是讀取文章列表中的記錄

sql="select top 20 * from Article where Deleted=False order by UpdateTime desc"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1

while not rs.Eof 

    '以下開始寫XML中的ITEM
    Response.Write("<item>")
    Response.Write("<title><![CDATA["&rs("Title")&"]]></title>")     '<![CDATA[ ]]>用來告訴瀏覽器以下不需要轉(zhuǎn)換成XML格式的，直接顯示其中的內(nèi)容，主要是防止記錄中的各種符號造成與XML格式?jīng)_突。
    Response.Write("<link>http://lib.forestpolice.net/ShowArticle.asp?ArticleID="&rs("ArticleID")&"</link>")
    Response.Write("<author>"&rs("Author")&"</author>")
    Response.Write("<category>森林公專圖書館信息速遞</category>")
    Response.Write("<pubDate>"&rs("UpdateTime")&"</pubDate>")   
    Response.Write("<description><![CDATA["&left(rs("Content"),100)&"]]></description>")
    Response.Write("</item>")
   
    rs.MoveNext()
wend

'XML結(jié)束

Response.Write("</channel>")
Response.Write("</rss>")

%>