asp生成xml文件

最新推荐文章于 2020-12-03 08:07:54 发布

maskice

最新推荐文章于 2020-12-03 08:07:54 发布

阅读量2k

点赞数

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

本文链接：https://blog.csdn.net/maskice/article/details/50010717

版权

asp 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

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

maskice

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
asp生成xml文件

<% 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
复制链接

扫一扫