<%
Response.ContentType="text/xml"
dim db,dbpath,conn
dim rs,SQL
db="shujuku/hotltcom.mdb"''''這里填寫你的數(shù)據(jù)庫(kù)地址
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>簡(jiǎn)單的快樂</title>
<link>http://siyizhu.com</link>
<Description>簡(jiǎn)單的快樂</Description>
<language>zh-cn</language>
<copyright>Copyright 2006 hotlt</copyright>
<webMaster>hotlt@tom.com</webMaster>
<image>
<title>簡(jiǎn)單的快樂</title> 
<url>http://siyizhu.com/logo.gif</url> 
<link>http://siyizhu.com/</link><description>siyizhu's weblog</description></image>
'以下是連接數(shù)據(jù)庫(kù)數(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是時(shí)間 ,("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>" '這里是時(shí)間
response.write "<description><![CDATA["&Content&"]]></description>"'這里是輸出簡(jiǎn)介,因?yàn)榭赡苡写a.括起來,否則預(yù)覽時(shí)會(huì)提示錯(cuò)誤。
response.write "</item>"
rs.MoveNext 
wend 
set rs=nothing
conn.Close
set conn = nothing
%>
</channel></rss>