谁帮我blog写个rss??

我的好象没用

代码:

<?xml version="1.0" encoding="gb2312"?>
<!--#include file="administrator/global.asp"-->
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
%>
<rss version="2.0">
	<channel>
		<title><%=IniValue("global_variables|system.web.titlebar.text")%></title>
		<link><%=IniValue("global_variables|system.web.url")%></link>
		<description><%=IniValue("common_variables|system.web.version")%></description>
<%
SQL = "Select top 10 * from Archives order by createdbydate desc"
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>"&IniValue("global_variables|system.web.url")&IniValue("global_variables|system.web.absolute.rootpath")&"archives/"&rs("yearfolder")&"/"&rs("monthfolder")&"/"&rs("dayfolder")&"/"&rs("createdbyfilename")&"</link>"
	Response.write "<title><![CDATA["&rs("entrytitle")&"]]></title>"
	response.write "<creator>"&IniValue("common_variables|system.web.author")&"</creator>"
	response.write "<PubDate>"&rs("createdbydate")&"</PubDate>"
 	response.write "<description><![CDATA["&rs("entrycontent")&"]]></description>"
	response.write "</item>"
	rs.MoveNext          
wend                  
set rs=nothing
conn.Close
set conn = nothing
%>
</channel>
</rss>

 

代码:

 帮忙拉

 

现在的人对RSS输出都要美化拉，哈哈