asp生成xml文件

来源：互联网发布：可以免费开淘宝店吗编辑：程序博客网时间：2024/06/09 16:11
 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><!--#include file = "../manage.asp"--><!--#include file="../include/ado.asp"--><html><head><title></title><meta name="description" content=""><meta name="keywords" content=""><link href="/style.css" rel="stylesheet" type="text/css"><script language=javascript src="/include/wpCalendar.js"></script><script></script></head><body><%dtime= DateDiff("s",cdate("1970-1-1 00:00:00"),now()) '获取当前时间和1970年1月1日间的秒数    Dim rs,sql    Set rs = server.CreateObject("adodb.recordset")    sql = " select a.phone,b.mode,c.sectionno, case when a.last4 = 1 then '不含4' when a.last4 = 2 then '含4' else '全部' end last, d.name ckName, case when a.isSended = 1 then '已分配' else '未分配' end issended, case when a.isOpen = 1 then '已开通' else '未开通' end  isopen, a.id from gc_goodPhone a, gc_numberMode b, gc_sectionno c, gc_ck d where a.modeid = b.id and a.sectionnoid = c.id and a.unitid = "&session("unitid")&" and a.ck_id = d.id "rs.open sql, conn, 1, 2         i = 1xmlfile=server.mappath(dtime&".xml")Set fso = CreateObject("Scripting.FileSystemObject")Set MyFile = fso.CreateTextFile(xmlfile,True)MyFile.WriteLine("<chart caption='Monthly Unit Sales' xAxisName='Month' yAxisName='Units' showValues='0' decimals='0' formatNumberScale='0'>") If rs.recordcount > 0 Then   For i= 1 To rs.RecordCount If Not rs.eof ThenMyFile.WriteLine("  <set label='Jan"&i&"' value='462'/>")       End If    If Not rs.eof Then      rs.movenext   End If  NextEnd If MyFile.WriteLine("</chart>")MyFile.Close%></body></html>
0 0