chart_client_area.asp

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

ASP

80 行

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

<%

''获取传递过来的查询条件和统计变量
kind=trim(request("kind"))
condition= decrypt(trim(request("condition"))) 

''根据查询条件和统计变量生成相应的查询语句 
    sql="select "
	select case trim(request("kind"))
	  case "0"
	     sql=sql&" ClientNation,  COUNT(ClientID) AS totalnum FROM Client "
		 sql=sql& condition
		 sql=sql&" GROUP BY Clientnation"
	 case "1"
	     sql=sql&" ClientProvince,  COUNT(ClientID) AS totalnum FROM Client "
		 sql=sql& condition
		 sql=sql&" GROUP BY ClientProvince"
	 case "2"
	     sql=sql&" ClientCity,  COUNT(ClientID) AS totalnum FROM Client "
		 sql=sql& condition
		 sql=sql&" GROUP BY ClientCity"
   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("totalnum"))
	''数组中第二项要根据统计变量分别给出
 	select case trim(kind)
	  case "0"
	     show_data(i,2)=rs_s("Clientnation")		 
	 case "1"
	    show_data(i,2)=rs_s("ClientProvince")
	 case "2"
	      show_data(i,2)=rs_s("ClientCity")
	  case else
	    show_data(i,2)=rs_s("ClientProvince")
	end select 
		rs_s.movenext
	next
	end if
	
	
width=cint(total_no)*60
call table1(show_data,total_no,-20,40,8,15,width,400)

%>

</BODY></HTML>

chart_client_area.asp - 源码说明

本页面展示了「Activity——活动管理模块 Analyse——分析模块 Client——客户管理系统模块 Email——E-mail管理模块 Fee——费用管理模块 Report——报表模块 Sel」中的 chart_client_area.asp 源码文件，采用 ASP 编程语言编写，共 80 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与模块相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?