时时商务社区

标题: ASP生成XML动态数据读取代码实例 [打印本页]

作者: yj1281 时间: 2018-2-18 04:48


"&rshot("rl_time")&""&vbcrlf&""
line2=line2&" "&rshot("rl")&""&vbcrlf&""
i=i+1
rshot.movenext
loop
end if
rshot.close
set rshot=nothing
xmlfile=server.mappath("/party/amline/value_indicator/amline_rl_"&username&".xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True)
MyFile.WriteLine("")
MyFile.WriteLine("")
MyFile.WriteLine(" ")
MyFile.WriteLine line
MyFile.WriteLine(" ")
MyFile.WriteLine(" ")
MyFile.WriteLine("  ")
MyFile.WriteLine line2
MyFile.WriteLine("  ")
MyFile.WriteLine(" ")
MyFile.WriteLine("")
MyFile.Close
response.Redirect("m_my_bar.asp?username="&username&"")
%>
[color=]
")
MyFile.WriteLine("")
MyFile.WriteLine(" ")
MyFile.WriteLine("  1997")
MyFile.WriteLine("  1997")
MyFile.WriteLine(" ")
MyFile.WriteLine(" ")
MyFile.WriteLine("  ")
MyFile.WriteLine(" 50")
MyFile.WriteLine(" 50")
MyFile.WriteLine("  ")
MyFile.WriteLine(" ")
MyFile.WriteLine("")
MyFile.Close
%>
查看XML文件内容

欢迎光临时时商务社区 (http://bbs.4435.cn/)