asp生成xml文件

最新推荐文章于 2025-02-19 15:04:57 发布

maskice

最新推荐文章于 2025-02-19 15:04:57 发布

阅读量2.1k

点赞数

分类专栏： asp 文章标签： asp

本文链接：https://blog.youkuaiyun.com/maskice/article/details/50010717

版权

asp 专栏收录该内容

1 篇文章

订阅专栏

												
 <!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>