<%
response.contenttype="text/xml"
dim db,dbpath,conn
dim rs,sql
db="shujuku/hotltcom.mdb"''''这里填写你的数据库地址
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>
'以下相当于html的meta部分,包括标题.连接.语言.版权信息以及logo图标等
<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>
'以下是连接数据库数据表部分,top 15代表最新的15条,movie是数据表
<%
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是标题,("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
set rs=nothing
conn.close
set conn = nothing
%>
</channel></rss>
*为输出内容,应为内容可能为代码形式,如有空格或asp代码.否则可能会出错误.
我要评论
网友评论