如何创建网站RSS页？版主请锁，最佳答案已附文末，感谢greenleaf..

香叶aiq格格

如题，公司网站计划提供FEED订阅，我不知道怎么创建RSS网页....求教高手...

解决方法如下：【多谢绿叶的帮助】


你看一下紅色的部分吧。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#Include Virtual="Inc/Conn.asp"-->
<%
Response.Charset = "gb2312"
Response.ContentType="text/xml"

Dim sql,manid

manid = Trim(Request.QueryString("manid"))
If IsNumeric(manid) Then
    sql = "Select Top 10 ID,Title,Content,Link,NewsDT,RealName,AddRealName From [V-UserNews] Where DataID="&manid&" Order By ID Desc"
Else
    sql = "Select Top 10 ID,Title,Content,Link,NewsDT,RealName,AddRealName From [V-UserNews] Order By ID Desc"
End If

Set rs = cn.Execute(sql)

Response.Write("<?xml version=""1.0"" encoding=""gb2312"" ?>")
Response.Write("<rss version=""2.0"">")
Response.Write("<channel>")
Response.Write("<title>xrss.cn 人物新闻</title>")
Response.Write("<link>http://www.xrss.cn</link>")
Response.Write("<description>xrss.cn 百科存储</description>")
Response.Write("<category>8848so</category>")
Response.Write("<language>zh-cn</language>")
Response.Write("<docs>http://www.xrss.cn/RSS/RSS.asp</docs>")
Response.Write("<generator>www.xrss.cn</generator>")
Response.Write("<webMaster>xbell@163.com</webMaster>")
Response.Write("<managingEditor>xbell@163.com</managingEditor>")
Response.Write("<pubDate>"&Now()&"</pubDate>")
Response.Write("<lastBuildDate>"&Now()&"</lastBuildDate>")
Response.Write("<ttl>30</ttl> ")
Response.Write("<copyright>Copyright 2007,网络大本营.</copyright>")

Do While (rs.Eof = False)
   
    Response.Write("<item>")
    Response.Write("<guid>"&rs("ID")&"</guid>")        
    Response.Write("<title>"&rs("Title")&"</title>")
    Response.Write("<link>"&rs("Link")&"</link>")
    Response.Write("<description><![CDATA["&rs("Content")&"]]></description>")
    Response.Write("<author>"&rs("AddRealName")&"</author>")
    Response.Write("<source>网络大本营</source>")
    Response.Write("<category>xrss.cn 人物新闻</category>")
    Response.Write("<pubDate>"&rs("NewsDT")&"</pubDate>")   
    Response.Write("<comments>xrss.cn 人物新闻</comments>")   
    Response.Write("</item>")
   
    rs.MoveNext()
Loop

Response.Write("</channel>")
Response.Write("</rss>")
Call CDB()
%>