|
蓝森林 http://www.lslnet.com 2006年8月25日 8:28
 [ASP]ASP生成的RSS为什么不显示？
有ASP生成的RSS2.0为什么不能显示，只能把生成的文件保存为XML文件后才能显示？
[code]
<?xml version="1.0" encoding="gb2312" ?>
<!-- #include file="un.class.asp" -->
<rss version="2.0">
<channel>
<%
Dim objLoadInfo
Set objLoadInfo = New LoadInfo
objLoadInfo.LoadBasicInfo
Response.Write vbTab & "<title>"& objLoadInfo.bsTitle &"</title>" & vbCrLf
Response.Write vbTab & "<link>"& objLoadInfo.bsHost &"</link>" & vbCrLf
Response.Write vbTab & "<description>"& objLoadInfo.bsText &"</description>" & vbCrLf
Response.Write vbTab & "<copyright>"& objLoadInfo.bsCopyright &"</copyright>" & vbCrLf
Response.Write vbTab & "<master>"& objLoadInfo.bsMaster &"</master>" & vbCrLf
Response.Write vbTab & "<language>zh-cn</language>" & vbCrLf
Dim logUrl, i
logUrl = objLoadInfo.bsHost & "show.asp?id="
objLoadInfo.RssLog
If Ubound(objLoadInfo.ReArr) < 0 Then Response.Write "<item></item>"
For i = 0 to Ubound(objLoadInfo.ReArr)
Response.Write "<item>" & vbCrLf
Response.Write vbTab & "<link>"& logUrl & objLoadInfo.ReArr(0,i) &"</link>" & vbCrLf
Response.Write vbTab & "<title><![CDATA[ "& objLoadInfo.ReArr(1,i) &" ]]></title>" & vbCrLf
Response.Write vbTab & "<creator>"& objLoadInfo.ReArr(2,i) &"</creator>" & vbCrLf
Response.Write vbTab & "<PubDate>"& objLoadInfo.ReArr(3,i) &"</PubDate>" & vbCrLf
Response.Write vbTab & "<description><![CDATA[ "& objLoadInfo.ReArr(4,i) &" ]]></description>" & vbCrLf
Response.Write "</item>" & vbCrLf
Next
Set objLoadInfo = Nothing
%>
</channel>
</rss>
[/code] |
|
