asp Éú³ÉXML - Web ¿ª·¢ / ASP

Ô­XMLÎļþ£»
<?xml version="1.0" encoding="utf-8" ?> 
<dataroot>
<news>
<new>
<title>ÐÂÎűêÌâ1</title>
<shortdesc><![CDATA[sinker.cn flashƬ]]></shortdesc>
<date>1</date>
<link>http://www.sinker.cn</link>
</new>
<new>
<title>ÐÂÎűêÌâ2</title>
<shortdesc><![CDATA[sinker.cn flashƬ]]></shortdesc>
<date>1</date>
<link>http://www.sinker.cn</link>
</new>
</news></dataroot>
ÏÂÃæÊÇÎÒ×öµÄÉú³ÉÏñÉÏÃæÄǸöXMLÄÚÈݵÄxml.aspÎļþ£»´úÂëÈçÏ£º
<% @language="VBScript" @codepage="65001"%>
<%
Option Explicit
Response.contentType="news/xml"
dim conn,connstr,rs,sql
connstr="provider=Microsoft.Jet.OLEDB.4.0;data source="&Server.MapPath("Data-2007/sou596#zuoyun.mdb")&";"
set conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.RecordSet")
conn.open connstr
sql="select top 6 * from news order by ID desc"
rs.open sql,conn,1,1
Response.Write("<?xml version='1.0' encoding='utf-8'?><dataroot><news>")
%>
<%
do while not rs.eof
Response.Write("<new><titl