ASP生成RSS

最新推荐文章于 2019-11-13 14:42:00 发布

原创最新推荐文章于 2019-11-13 14:42:00 发布 · 1.1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#asp #vbscript #sql #encoding #comments #存储

ASP 专栏收录该内容

8 篇文章

订阅专栏

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
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>8848So.com 人物新闻</title>")
Response.Write("<link>http://www.8848so.com</link>")
Response.Write("<description>8848so.com 百科存储</description>")
Response.Write("<category>8848so</category>")
Response.Write("<language>zh-cn</language>")
Response.Write("<docs>http://www.8848so.com/RSS/RSS.asp</docs>")
Response.Write("<generator>www.8848so.com</generator>")
Response.Write("<webMaster>hztgcl1986@163.com</webMaster>")
Response.Write("<managingEditor>hztgcl1986@163.com</managingEditor>")
Response.Write("<pubDate>"&Now()&"</pubDate>")
Response.Write("<lastBuildDate>"&Now()&"</lastBuildDate>")
Response.Write("<ttl>30</ttl> ")
Response.Write("<copyright>Copyright 2007,8848So.</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>8848So</source>")
    Response.Write("<category>8848So.com 人物新闻</category>")
    Response.Write("<pubDate>"&rs("NewsDT")&"</pubDate>")
    Response.Write("<comments>8848So.com 人物新闻</comments>")
    Response.Write("</item>")

    rs.MoveNext()
Loop

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

Call CDB()
%>