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的版本和語言聲明
'以下相當(dāng)于html的meta部分,包括標(biāo)題.連接.語言.版權(quán)信息以及l(fā)ogo圖標(biāo)等
簡單的快樂
http://siyizhu.com
簡單的快樂
zh-cn
Copyright?2006?hotlt
hotlt@tom.com
簡單的快樂?
http://siyizhu.com/logo.gif?
http://siyizhu.com/siyizhu's?weblog
'以下是連接數(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?"
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?"- "
Response.write?""&Title&""?'這里是輸出標(biāo)題
response.write?"http://siyizhu.com/weblog/article.asp?ID="&id&""?'這里是輸出鏈接,注意要用網(wǎng)址
response.write?"siyizhu"?'這里是輸出作者,如果有字段可以調(diào)用字段
response.write?""&Time&""?'這里是時(shí)間
response.write?""'這里是輸出簡介,因?yàn)榭赡苡写a.括起來,否則預(yù)覽時(shí)會(huì)提示錯(cuò)誤。
response.write?" "
rs.MoveNext?
wend?
set?rs=nothing
conn.Close
set?conn?=?nothing
%>
