ASP生成XML后用FLASH读取的问题

idhgd 2010-03-31 11:07:40

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!--#include file="../Inc/Top.asp"-->



<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<title>无标题文档</title>

</head>



<body>

<%xmlfile=server.mappath("/case/amline.xml")

Set fso = CreateObject("Scripting.FileSystemObject")

Set MyFile = fso.CreateTextFile(xmlfile,True)

MyFile.WriteLine("<?xml version=""1.0""?>")

MyFile.WriteLine("<main>")

%>



<%sql_ad1="select * from lanmu where bigclass=37 order by nb"

Set rs_ad1= Server.CreateObject("ADODB.Recordset")

rs_ad1.open sql_ad1,conn,1,1

do while not rs_ad1.eof

%>

<%MyFile.WriteLine "<dept name=""" & rs_ad1("lmname") & """>" %>

<%sql_ad2="select * from Img where class2=38"

Set rs_ad2= Server.CreateObject("ADODB.Recordset")

rs_ad2.open sql_ad2,conn,1,1

do while not rs_ad2.eof

%>

<%MyFile.WriteLine "<city>"%>

 <%MyFile.WriteLine "<point name="""&rs_ad2("title")&""" url=""caseimg.asp?ID="&rs_ad2("id")&""" />"%>

<%MyFile.WriteLine "</city>"%>



<%

rs_ad2.movenext

loop

rs_ad2.close

set rs_ad2=nothing

%>

<%MyFile.WriteLine "</dept>"%>

<%

rs_ad1.movenext

loop

rs_ad1.close

set rs_ad1=nothing

%>

<%MyFile.WriteLine "</main>"%>

<%



MyFile.close '关闭fout

set MyFile=nothing '清空fout

set fso=nothing 

%>

</body>

</html>

我用以上代码或者编码encoding="ISO10646“生成XML文件，然后用FLASH读取就不可以。但我用DREAMWEAVER打开后修改其中的一个汉字，然后再直接保存就可以读取了。试着用encoding="GB2312"生成的修改了某个汉字还是不可以读取。是什么原因呢？我要怎样才能使生成的文件可以直接用FLASH读取？

...全文