UC知道XML如何用ASP输出
来源：百度知道 编辑：UC知道 时间：2024/05/11 02:32:52
<beckham>
<item title="碧咸001" img="beckham03.jpg" url="http://www.flash8.net" />
<item title="碧咸002" img="001.jpg" url="http://www.flash8.net" />
<item title="碧咸003" img="002.jpg" url="http://www.flash8.net" />
<item title="碧咸004" img="003.jpg" url="http://www.flash8.net" />
</beckham>
</data>
存为xm2.xml
如何将文件改成由asp输出的?
请熟识的朋友指点一下`
<%
'------------------------------------------------------
'读取文件 ReadTxtFile(FileName)
'------------------------------------------------------
Function ReadTxtFile(FileName)
Dim fso,f1,ts,FilePath
FilePath=server.mappath(FileName)
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(FilePath,1,1)
ReadTxtFile = ts.ReadAll
set ts=nothing
set fso=nothing
End Function
'------------------------------------------------------------
'把信息写入文件
'------------------------------------------------------------
Function WriteTxtFile(Text,FileName)
path=Server.MapPath(FileName)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(path,true)
f1.Write (Text)
f1.Close
End Function
%>
<%
Text = "<?xml version='1.0' encoding='gb2312'?>&q