ASP生成XML后用FLASH读取的问题
<%@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,1do 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,1do 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.movenextlooprs_ad2.closeset rs_ad2=nothing%><%MyFile.WriteLine "</dept>"%><%rs_ad1.movenextlooprs_ad1.closeset rs_ad1=nothing%><%MyFile.WriteLine "</main>"%><%MyFile.close '关闭foutset MyFile=nothing '清空foutset fso=nothing %></body></html>