|
如题,公司网站计划提供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()
%> |
|