您的位置：首页 > 编程语言 > ASP

asp生成xml文件

2015-11-24 11:56 661 查看

<!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 = 1
xmlfile=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 Then

MyFile.WriteLine("  <set label='Jan"&i&"' value='462'/>")

End If
If Not rs.eof Then
rs.movenext
End If
Next
End If

MyFile.WriteLine("</chart>")
MyFile.Close
%>
</body>
</html>

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航