chart_service_list.asp

来自「Activity——活动管理模块 Analyse——分析模块 Client—」· ASP 代码 · 共 60 行

ASP
60
字号
<!--#include file="../conn.asp"-->
<!--#include file="../IsUser.asp"-->
<!--#include file="Private_fun.asp"-->
<!--#include file="../pub_fun.asp"-->
 <script language="vBScript">
			opener.close()
</script>
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">

<style>
v\:* { behavior: url(#default#VML) }
o\:* { behavior: url(#default#VML) }
.shape { behavior: url(#default#VML) }
</style>

<HEAD><title>服务分析</title>
<META NAME="Keywords" CONTENT="FastReport"/>
<META NAME="Description" CONTENT="The FastReport report"/>
<LINK href="../css.css" rel="stylesheet" type="text/css" media="all">
</head>

<body >

<%
'获取传递过来的参数,然后组合成相应的查询语句
	condition= decrypt(trim(request("condition")))
    sql="select "
	select case trim(request("kind"))
	  case "0"
	     sql=sql&" YEAR(FeedbackDate) AS FeedbackDate, COUNT(*) AS total FROM Feedback"
		 sql=sql& condition
		 sql=sql&" GROUP BY YEAR(FeedbackDate)"
		 
	 case "1"
	     sql=sql&" RTRIM(YEAR(FeedbackDate)) + '-' + RTRIM(MONTH(FeedbackDate)) AS FeedbackDate, COUNT(*) AS total , CONVERT(datetime, RTRIM(YEAR(FeedbackDate)) + '-' + RTRIM(MONTH(FeedbackDate)) + '-1') AS Feedbackoder  from Feedback"
		 sql=sql& condition
		 sql=sql&" GROUP BY RTRIM(YEAR(FeedbackDate)) + '-' + RTRIM(MONTH(FeedbackDate)), CONVERT(datetime, RTRIM(YEAR(FeedbackDate)) + '-' + RTRIM(MONTH(FeedbackDate)) + '-1') ORDER BY Feedbackoder"
	 case "2"
	     sql=sql&" FeedbackDate, Count(*) as total  FROM Feedback"
		 sql=sql& condition
		 sql=sql&" GROUP BY FeedbackDate"
   end select

dim show_data(100,2)
	set rs_s = server.createobject("adodb.recordset")
	rs_s.open sql,conn,3
	if not rs_s.eof then
  total_no=rs_s.recordcount
	for i=1 to total_no
 		show_data(i,1)=cdbl(rs_s("total"))
		show_data(i,2)=rs_s("FeedBackDate")
		rs_s.movenext
	next
	end if
width=cint(total_no)*65
call table1(show_data,total_no,-20,40,8,15,width,400)

%>

</BODY></HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?