为动态网站制作RSS内容输出的程序模版

<?xml version="1.0" encoding="gb2312"?>
<%
dim url,db,dbpath,conn,show_username
dim rs,SQL

db="data/oblog221.mdb" ‘这里修改数据库路径或名称

Set conn = Server.CreateObject("ADODB.Connection")
dbpath="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open dbpath
%>
<rss VERSION="2.0">
 <channel>
  <TITLE>网站或栏目的名称</TITLE>
  <LINK>网站或栏目的URL地址</LINK>
  <description>网站或栏目的简要介绍</description>
<%
show_username=replace(request.QueryString("name"),"‘","")
‘set rs = Server.CreateObject("ADODB.Recordset")
if show_username<>"" then
 SQL="select top 10 * from blog where username=‘"&show_username&"‘ and ishide<>‘true‘ and passcheck<>‘false‘ and isnull(ispassword)=true and (isnull(blog_password)=true or blog_password=‘‘) order by id desc"
else
 SQL = "Select top 10 * from blog where ishide<>‘true‘ and passcheck<>‘false‘ and isnull(ispassword)=true and (isnull(blog_password)=true or blog_password=‘‘) order by id desc"
end if
set rs=conn.execute(SQL)
if rs.Eof or rs.Bof then
  response.write "<item></item>"
end if
while not rs.Eof
    response.Write "<item>"
 response.write "<link>"&url&"more.asp?name="&rs("username")&"&id="&rs("id")&"</link>"
 Response.write "<title><![CDATA["&rs("topic")&"]]></title>"
 response.write "<creator>"&rs("username")&"</creator>"
 response.write "<PubDate>"&rs("addtime")&"</PubDate>"
  response.write "<description><![CDATA["&rs("logtext")&"]]></description>"
 response.write "</item>"
 rs.MoveNext         
wend                 
set rs=nothing
conn.Close
set conn = nothing
%></channel></rss>