<%Response.contentType = "text/xml"%>
<?xml version="1.0" encoding="gb2312"?>
<!-- Source download URL: http://www.oioj.com/blog/rss2.asp       -->
<rss version="2.0">
<%
dim connstr,conn
dim rs,SQL
const issqldate=false
if not issqldate then
 Dim Db
 Db = "data/db.mdb"  '这是数据库路径
 set conn=server.createobject("adodb.Connection")
 connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
end if
'Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
'set rs=conn.execute("select siteurl,sitetitle,copyrighturl,webmastername,webmasteremail from bloginfo")
'url=trim(rs(0))
%>
<channel>
<title>新闻</title>
<link>http://www.shenton.com.cn</link>
<description>shenton property</description>
<copyright>shentongroup</copyright>
<language>zh-cn</language>
<generator>www.shenton.com.cn</generator>
<webMaster>loujiyang</webMaster><%
'show_username=ReplaceBadChar(request.QueryString("name"))
'set rs = Server.CreateObject("ADODB.Recordset")
'以下是sql语句
SQL = "select top  20 * from News where online=true and date()<OffDate and date()>=PubDate order by NewsId 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>" & vbcrlf
 Response.write "<title><![CDATA["&rs("NewsTitle")&"]]></title>" & vbcrlf
 response.write "<link>www.shenton.com.cn/news_detail.asp?NewsId="&rs("NewsId")&"</link>" & vbcrlf
' response.write "<author>"&rs("username")&"</author>" & vbcrlf
 response.write "<pubDate>"&rs("PubDate")&"</pubDate>" & vbcrlf
'  response.write "<description><![CDATA["&rs("logtext")&"]]></description>" & vbcrlf
 response.write "</item>"
 rs.MoveNext          
wend                  
set rs=nothing
conn.Close
set conn = nothing
function ReplaceBadChar(strChar)
 if strChar="" then
  ReplaceBadChar=""
 else
  ReplaceBadChar=replace(replace(replace(replace(replace(replace(replace(strChar,"'",""),"*",""),"?",""),"(",""),")",""),"<",""),".","")
 end if
end function
%></channel></rss>

asp程序已经可执行,下面需要生成一个 .xml文件,请各位帮忙!!