-- 发布时间：7/11/2006 9:24:00 PM
-- [求助]关于ASP生成XML的RSS技术问题
[size=4]有关ASP生成XML的RSS技术（之前有人用过），不过我在运行时出现了点问题，特请各位兄弟帮忙看一下！！以下是写好的代码，是从另外一个页面转过来的：
<!--#include virtual="/Include/Conn.asp" -->
<%
Dim strSQL,RS,sCrLf,sXmlClear,sRssHead,sRssEnd,Conn
Dim AuthorID,AuthorType,Author
const RssFeed_Article="Article.xml"
sCrLf = chr(13) & chr(10) '回车+换行
sXmlClear = "<?xml version='1.0' encoding='UTF-8'?>" & sCrLf
sRssHead = "<rss version='2.0'>" & sCrLf
sRssHead = sRssHead & "<channel>" & sCrLf
sRssHead = sRssHead & "<title> 1111</title>" & sCrLf
sRssHead = sRssHead & "<description> 1111</description>" & sCrLf
sRssHead = sRssHead & "<link>http://www.steven.com/<;/link>" & sCrLf
sRssHead = sRssHead & "<language>zh-cn</language>" & sCrLf
sRssHead = sRssHead & "<docs>1111</docs>" & sCrLf
sRssHead = sRssHead & "<generator>Rss Generator By www.steven.com
</generator>" & sCrLf
sRssEnd = "</channel></rss>"
Response.Clear
Response.CharSet="gb2312" '数据集
Response.ContentType="text/xml" '数据流格式定义
'输出：
Response.write (writexml(RssFeed_Article,sXmlClear))
Response.write (writexml(RssFeed_Article,sRssHead))
'获取变量
AuthorID=ProcessID(Request("AuthorID"))
AuthorType=ProcessID(Request("AuthorType"))
'创建Connection对象
Set Conn=server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Call ConnectDB(Conn) 'ConnectDB----定义的一个函数
strSQL="select * from Articles where AuthorID="&AuthorID&" And AuthorType="&AuthorType&" And IsDeleted=-1 And Status=1 order by LMDate desc"
rs.Open strSQL, Conn, 1, 1
if not RS.eof then
do while not RS.eof
response.write (writexml(RssFeed_Article,"<item>" & sCrLf))
response.write (writexml(RssFeed_Article,"<title> " & RS("Title") & " </title>" & sCrLf))
response.write (writexml(RssFeed_Article,"<link> " & "http://www.steven.com/Educate/blog.asp?ArticleID="& RS("ArticleID") & " </link>" & sCrLf))
response.write (writexml(RssFeed_Article,"<description> " & TruncateString(RS("Content"),300,"...") & " </description>" & sCrLf))
response.write (writexml(RssFeed_Article,"<category> " & RS("CategoryID")) & " </category>" & sCrLf))
response.write (writexml(RssFeed_Article,"<author> " & RS("Author") & " </author>" & sCrLf))
response.write (writexml(RssFeed_Article,"<pubDate> " & RS("PostDate") & " </pubDate>" & sCrLf))
response.write (writexml(RssFeed_Article,"</item>" & sCrLf & sCrLf))
RS.movenext
Loop
end if
RS.close
set RS=nothing
Response.write (writexml(RssFeed_Article,sRssEnd))
function writexml(filename,bodytext)
Dim fso,MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile(filename, True)
MyFile.WriteLine(bodytext)
MyFile.close
end function
%>
但是运行时却出现以下的错误：
无法显示 XML 页。
使用 样式表无法查看 XML 输入。请更正错误然后单击 刷新按钮，或以后重试。
--------------------------------------------------------------------------------
XML 文档必须有一个顶层元素。处理资源 'http://localhost/Educate/blog/RssFeed_Article_.asp?AuthorID=102&AuthorType=2' 时出错。
请各位帮忙指点一下！！！！！