无法显示 XML 页。
使用 XSL 样式表无法查看 XML 输入。请更正错误然后单击 刷新按钮，或以后重试。
--------------------------------------------------------------------------------
XML 文档只能有一个顶层元素。处理资源 'http://wjg197788.104.tofor.com/blogrss2.asp' 时出错。第 39 行，位置: 2
<rss>
-^
..................................................................................................................
源码如下:
..................................................................................................................
<!--#include file="mdb.asp" -->
<%
Response.ContentType="application/xml"
Response.Expires=0
Response.Write("<?xml version=""1.0"" encoding=""gb2312""?>")
%>
<!--#include file="inc/CONFIG.asp" -->
<!--#include file="inc/function_blog.asp" -->
<rss>
<channel>
<title><%=webName%></title>
<link><%=webURL%></link>
<Description><%=webName%></Description>
<language>zh-cn</language>
<copyright>Copyright 2005-2008 xinchuang</copyright>
<webMaster>webmaster@hx66.net</webMaster>
<image>
<title><%=webName%></title>
<url><%=webURL%>/img/logo.gif</url>
<link><%=webURL%></link>
<description><%=webName%></description>
</image>
<%
Dim catid
catid=Request.QueryString("cat_id")
IF IsInteger(cate_ID) = False Then
SQL="SELECT TOP 10 H.blog_ID,H.blog_Title,H.blog_Author,H.blog_PostTime,H.blog_Content,H.blog_IsShow,H.blog_DisSM,H.blog_DisUBB,H.blog_DisIMG,H.blog_AutoURL,H.blog_AutoKEY,X.cate_Name FROM b_Content AS H,b_Cat AS X WHERE blog_IsShow=True AND X.cate_ID=H.blog_cateID ORDER BY blog_PostTime DESC"
Else
SQL="SELECT TOP 10 H.blog_ID,H.blog_Title,H.blog_Author,H.blog_PostTime,H.b_Content,H.blog_IsShow,H.blog_DisSM,H.blog_DisUBB,H.blog_DisIMG,H.blog_AutoURL,H.blog_AutoKEY,X.cate_Name FROM b_Content AS H,b_Cat AS X WHERE blog_cateID="&catid&" AND blog_IsShow=True AND X.cate_ID=H.blog_cateID ORDER BY blog_PostTime DESC"
End IF
Dim RS
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open SQL,Conn,1,1
IF RS.EOF AND RS.BOF Then
Response.Write("<item></item>")
Else
Do While NOT RS.EOF
Response.Write("<item>")
Response.Write("<link>"&webURL&"/showblog.asp?blog_id="&RS("blog_ID")&"</link>")
Response.Write("<title><![CDATA["&RS("blog_Title")&"]]></title>")
Response.Write("<author>"&RS("blog_Author")&"</author>")
Response.Write("<category>"&RS("cate_Name")&"</category>")
Response.Write("<pubDate>"&RS("blog_PostTime")&"</pubDate>")
Response.Write("<guid>"&webURL&"/showblog.asp?blog_id="&RS("blog_ID")&"</guid>")
Response.Write("<description><![CDATA["&Ubbcode(HTMLEncode(RS("blog_Content")),RS("blog_DisSM"),RS("blog_DisUBB"),RS("blog_DisIMG"),RS("blog_AutoURL"),RS("blog_AutoKEY"))&"]]></description>")
Response.Write("</item>")
RS.MoveNext
Loop
End IF
RS.Close
Set RS=Nothing
Conn.Close
Set Conn=Nothing
%>
</channel>
</rss>
请问错在那里?如何解决!!在线等,谢谢高手指点!!
[返回] 中文XML论坛 - 专业的XML技术讨论区 →
XML.ORG.CN讨论区 - XML技术 → 『 XML基础 』 → [求助]只能有一个顶层元素,怎么解决??在线等
(订阅本版)
2007/4/24 19:22:00
新浪微博
[求助]只能有一个顶层元素,怎么解决??在线等
