给你的asp+ac站点加rss功能

时间:2021-05-18

复制代码 代码如下:
<%
Response.ContentType="text/xml"
dimdb,dbpath,conn
dimrs,SQL
db="shujuku/hotltcom.mdb"''''这里填写你的数据库地址
Setconn=Server.CreateObject("ADODB.Connection")
dbpath="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(db)
conn.Opendbpath
%>
<?xmlversion="1.0"encoding="gb2312"?><rssversion="2.0">'这里是xml的版本和语言声明
<channel>
'以下相当于html的meta部分,包括标题.连接.语言.版权信息以及logo图标等
<title>简单的快乐</title>
<link>http://siyizhu.com</link>
<Description>简单的快乐</Description>
<language>zh-cn</language>
<copyright>Copyright2006hotlt</copyright>
<webMaster>hotlt@tom.com</webMaster>
<image>
<title>简单的快乐</title>
<url>http://siyizhu.com/logo.gif</url>
<link>http://siyizhu.com/</link><description>siyizhu'sweblog</description></image>
'以下是连接数据库数据表部分,top15代表最新的15条,movie是数据表
<%
SQL="selecttop15*frommovieorderbyiddesc"
setrs=conn.execute(SQL)
ifrs.Eoforrs.Bofthen
response.write"<item></item>"
endif
whilenotrs.Eof
Title=rs("Title")'这里定义Title是标题,("Title")为字段名称
id=rs("id")'这里定义id是连接id,("id")为字段名称
Time=rs("Time")'这里定义Time是时间,("Time")为字段名称
Content=replace(replace(left(rs("Content"),200),"<","<"),">",">")'这里的Content是内容的字段名称
'以下是rss输出
response.Write"<item>"
Response.write"<title>"&Title&"</title>"'这里是输出标题
response.write"<link>http://siyizhu.com/weblog/article.asp?ID="&id&"</link>"'这里是输出链接,注意要用网址
response.write"<author>siyizhu</author>"'这里是输出作者,如果有字段可以调用字段
response.write"<PubDate>"&Time&"</PubDate>"'这里是时间
response.write"<description><![CDATA["&Content&"]]></description>"'这里是输出简介,因为可能有代码.括起来,否则预览时会提示错误。
response.write"</item>"
rs.MoveNext
wend
setrs=nothing
conn.Close
setconn=nothing
%>
</channel></rss>

注意事项:其中要注意[CDATA*]>的使用,像是内容之类的输出尽量用"[CDATA[*]]>",
*为输出内容,应为内容可能为代码形式,如有空格或asp代码.否则可能会出错误.

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章