給你的asp+ac站點(diǎn)加rss功能

%
Response.ContentType="text/xml"
dim db,dbpath,conn
dim rs,SQL
db="shujuku/hotltcom.mdb"''''這里填寫你的數(shù)據(jù)庫地址
Set conn = Server.CreateObject("ADODB.Connection")
dbpath="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  Server.MapPath(db)
conn.Open dbpath
%>
?xml version="1.0" encoding="gb2312"?>rss version="2.0">'這里是xml的版本和語言聲明
channel>
'以下相當(dāng)于html的meta部分,包括標(biāo)題.連接.語言.版權(quán)信息以及l(fā)ogo圖標(biāo)等
title>簡單的快樂/title>
link>http://siyizhu.com/link>
Description>簡單的快樂/Description>
language>zh-cn/language>
copyright>Copyright 2006 hotlt/copyright>
webMaster>hotlt@tom.com/webMaster>
image>
title>簡單的快樂/title> 
url>http://siyizhu.com/logo.gif/url> 
link>http://siyizhu.com//link>description>siyizhu's weblog/description>/image>
'以下是連接數(shù)據(jù)庫數(shù)據(jù)表部分,top 15代表最新的15條,movie是數(shù)據(jù)表
%
SQL="select top 15 * from movie order by id desc"
set rs=conn.execute(SQL)
if rs.Eof or rs.Bof then
response.write "item>/item>"
end if
while not rs.Eof 
Title=rs("Title")'這里定義Title是標(biāo)題,("Title")為字段名稱
id=rs("id")'這里定義id是連接id ,("id")為字段名稱
Time=rs("Time")'這里定義Time是時間 ,("Time")為字段名稱
Content=replace(replace(left(rs("Content"),200),"",""),">",">")'這里的Content是內(nèi)容的字段名稱
'以下是rss輸出
response.Write "item>"
Response.write "title>"Title"/title>" '這里是輸出標(biāo)題
response.write "link>http://siyizhu.com/weblog/article.asp?ID="id"/link>" '這里是輸出鏈接,注意要用網(wǎng)址
response.write "author>siyizhu/author>" '這里是輸出作者,如果有字段可以調(diào)用字段
response.write "PubDate>"Time"/PubDate>" '這里是時間
response.write "description>![CDATA["Content"]]>/description>"'這里是輸出簡介,因?yàn)榭赡苡写a.括起來,否則預(yù)覽時會提示錯誤。
response.write "/item>"
rs.MoveNext 
wend 
set rs=nothing
conn.Close
set conn = nothing
%>
/channel>/rss>