<!--#include file="jtxw/strconnection.asp"-->

<%
Dim sSQL, rs, sCrLf, sXmlClear, sRssEnd,SQL,Xmlzj,Xmlzh
sCrLf = chr(13) & chr(10) '回车+换行
Xmlzj=""

sXmlClear = "<?xml version='1.0' encoding='gb2312'?>" & sCrLf '开始
sXmlClear =sXmlClear& "<RSS VERSION='2.0'>"& sCrLf
'中间没有用程序控制,直接用的ASP打印出来的
sRssEnd="</RSS>"'结束

'下面就是输入:中间的内容
Set rs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT top 50 * FROM jtnews order by newid desc"
rs.open sql,conn,1,3

while not rs.Eof

Xmlzj= Xmlzj&"<channel>"&sCrLf
Xmlzj= Xmlzj&"<title>交通规划</title>"&sCrLf
Xmlzj= Xmlzj&"<link>http://www.cqjt.gov.cn/</link>"&sCrLf
Xmlzj= Xmlzj& "<item>"&sCrLf
Xmlzj= Xmlzj& "<title>"&rs("title")&"</title>"&sCrLf
Xmlzj= Xmlzj& "<link>http://www.cqjt.gov.cn/new.aspx?id="&rs("newid")&"</link>"&sCrLf
Xmlzj= Xmlzj&"<pubDate>"&rs("dateandtime")&"</pubDate>"&sCrLf
Xmlzj= Xmlzj&"<type>0</type>"&sCrLf
Xmlzj= Xmlzj&"<id>"&rs("newid")&"</id>"&sCrLf
Xmlzj= Xmlzj& "<description><![CDATA["&rs("content")&"]]></description>"&sCrLf
Xmlzj= Xmlzj& "</item>"&sCrLf
Xmlzj= Xmlzj& "</channel>"&sCrLf
rs.MoveNext
wend

set rs=nothing
conn.Close
set conn = nothing

Xmlzh=sXmlClear&Xmlzj&sRssEnd

Const ForWriting = 2

Dim fso, f

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile(Server.MapPath("test.xml"), ForWriting, True)

f.WriteLine Xmlzh

f.Close

set fso = nothing

%>
此代码我测试过,XML部分能正常显示成XML,但是我要的是要它生成一个独立XML文件,而不是在原来的ASP页上显示成XML,为什么我写出数据的时候红颜色的地方报错,说是无效参数,哪位高手能给我讲讲吗`?
谢谢``````````````````````

[此贴子已经被作者于2006-10-26 17:00:04编辑过]