因为本人想给自己的网站建立rss新闻聚合功能,所以写了一段asp生成xml的程序,但是有些新闻聚合阅读器不支持 类型为.asp生成的xml文件,就是说不认.asp的文件,比如周伯通阅读器,所以我只好请大家帮忙,帮我想想如何生成,xml格式的文件.谢谢大家了.
asp源代码如下: rss.asp
<%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文件,请各位帮忙!!
[返回] 中文XML论坛 - 专业的XML技术讨论区 →
XML.ORG.CN讨论区 - XML技术 → 『 XML工具及XML开发环境 』 → 请问如何将.asp文件生成.xml文件?求教
(订阅本版)
2005/3/21 12:30:00
新浪微博
请问如何将.asp文件生成.xml文件?求教
