ASP生成OK柱图1

转载 2006年06月16日 20:44:00

<%
dim total(10,4)


total(1,1)="项目 01"
total(2,1)="项目 02"
total(3,1)="项目 03"
'total(2,1)=800
'total(3,1)=1000
'total(4,1)=600
'total(5,1)=1222
'total(6,1)=3213
'total(7,1)=8


total(1,2)=402003322.3
total(1,3)=300002222.3
total(1,4)=253237400


total(2,2)=35644333.22
total(2,3)=500004344.422
total(2,4)=280001000.5


total(3,2)=33003322.3
total(3,3)=300002222.3
total(3,4)=240000000


 


total_no=3
%>
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<!--[if !mso]>
<style>
v/:*         { behavior: url(#default#VML) }
o/:*         { behavior: url(#default#VML) }
.shape       { behavior: url(#default#VML) }
</style>
<![endif]-->
<head>
 <title>VMl三维图例</title>
 <meta http-equiv="Content-Type" content="text/html; charset=gb2312">  
</head>
<BODY bgColor=#ffffff leftMargin=5 topMargin=5 marginheight="5" marginwidth="5">
<%call table1(total,total_no)%>
</body>
</html>



<%
function table1(total,total_no)
dim tb_color(7,3)
tb_color(1,1)="#d1ffd1"
tb_color(2,1)="#ffbbbb"
tb_color(3,1)="#d9d9e5"
tb_color(4,1)="#cff4f3"
tb_color(5,1)="#ffe3bb"
tb_color(6,1)="#ffc7ab"
tb_color(7,1)="#ecffb7"


tb_color(1,2)="#00ff00"
tb_color(2,2)="#ff0000"
tb_color(3,2)="#666699"
tb_color(4,2)="#33cccc"
tb_color(5,2)="#ff9900"
tb_color(6,2)="#993300"
tb_color(7,2)="#99cc00"


tb_color(2,3)="计划成本"
tb_color(3,3)="发生成本"
tb_color(4,3)="实际支付"


line_color="#cccccc"
left_width=70
length=thickness/2
'total_no=ubound(total,1)


temp1=0
for i=1 to total_no
 for j=2 to 4
 if temp1<total(i,j) then temp1=total(i,j)
 next
next
temp1=round(cdbl(temp1),0)
'response.write "<script>alert('"&temp1&"');</script>"
'response.end
'exit function



if temp1>10 then
 temp2=cdbl(left(temp1,1)+1)
 do while (temp2 mod 2)<>0
 temp2=temp2+1
 loop
 temp3=temp2*10^(len(temp1)-1)
 'response.write "<script>alert('"&temp1&"');</script>"
 'if temp2>4 then
 ' temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+1)*10^(len(cstr(temp1))-1)
 'else
 ' temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+0.5)*10^(len(cstr(temp1))-1)
 'end if
else
 if temp1>5 then temp3=10 else temp3=5
end if
temp4=temp3/5


'response.write "<script>alert('"&temp1&"|"&temp2&"|"&temp4&"');</script>"
'response.end
'exit function


%>
<div align="center" style="padding-top:10;">
<v:group ID="group2" style="WIDTH:700px;HEIGHT:500px" coordsize="4900,3500">
 <v:rect style="WIDTH:4600px;HEIGHT:2900px" coordsize="21600,21600"  style="z-index:-3;" fillcolor="white" strokecolor="black">  
 <v:shadow on="t" type="single"  style="z-index:-2;" color="silver" offset="4pt,3pt"></v:shadow>
 </v:rect>
 <v:shape style='position:absolute;left:0px;top:80px;width:4600px;height:400px;text-align:center;z-index:3'>
  <div style="font-size:18px;" ><b>开发项目投资成本示例图</b></div>
 </v:shape>
  <v:line  from="500,500" to="500,2500" style="z-index:-1;" strokecolor='#000000' strokeweight="1pt"/>
  <v:line  from="700,300" to="700,2300"  style="z-index:-1;" strokecolor='#cccccc' strokeweight="1pt"/>  
  <v:line  from="500,2500" to="3300,2500"  style="z-index:-1;" strokecolor='#000000' strokeweight="1pt"/>
  <v:line  from="700,2300" to="3500,2300"  style="z-index:-1;" strokecolor='#cccccc' strokeweight="1pt"/>
  <v:line  from="3500,300" to="3500,2300"  style="z-index:-1;" strokecolor='#cccccc' strokeweight="1pt"/>
    
  <v:line  from="500,2500" to="700,2300"  style="z-index:-1;" strokecolor='#cccccc' strokeweight="1pt"/>
  <v:line  from="500,2100" to="700,1900"  style="z-index:-1;" strokecolor='#cccccc' strokeweight="1pt"/>
  <v:line  from="500,1700" to="700,1500"  style="z-index:-1;" strokecolor='#cccccc' strokeweight="1pt"/>
  <v:line  from="500,1300" to="700,1100"  style="z-index:-1;" strokecolor='#cccccc' strokeweight="1pt"/>
  <v:line  from="500,900" to="700,700"  style="z-index:-1;" strokecolor='#cccccc' strokeweight="1pt"/>
  <v:line  from="500,500" to="700,300"  style="z-index:-1;" strokecolor='#cccccc' strokeweight="1pt"/>
   
 <v:group ID="Title" style="position:absolute;left:3600;top:300;WIDTH:900px;HEIGHT:900px" coordsize="900,900" >
  <v:rect style="WIDTH:800px;HEIGHT:700px"  style="z-index:-3;" fillcolor="white" strokecolor="black">
  </v:rect>
  
  <%for j=2 to 4%> 
  <v:shape style='position:absolute;left:0px;top:<%=90+(j-2)*200%>px;width:900px;height:200px;z-index:-1'>
  <div style="padding-left:5;font-size:12px;" title="<%=tb_color(j,3)%>"><%=tb_color(j,3)%></div>
  </v:shape>
  <v:rect  title="<%=tb_color(j,3)%>" style="left:100;top:<%=100+(j-2)*200%>;WIDTH:100px;HEIGHT:100px"  style="z-index:1;" fillcolor="<%=tb_color(j,2)%>" strokecolor="black">
  <v:fill color2='<%=tb_color(j,1)%>' rotate='t' type='gradient'/>
  <o:extrusion v:ext='view' backdepth='10' color='<%=tb_color(j,2)%>' on='t'/>
  </v:rect>
  <%next%>
  
 </v:group>
 
  <%for i=1 to 5%>
  <v:shape style='position:absolute;left:0px;top:<%=400*(6-i)%>px;width:500px;height:200px;z-index:-1'>  
  <div align='right' style="font-size:11px;padding-right:5px;" title="<%=round(temp4*i,2)%>"><%=round(temp4*i,2)%></div>  
  </v:shape>
  <%next%>  
    
  <v:line  from="3500,2300" to="3300,2500"  style="z-index:-1;" strokecolor='#cccccc' strokeweight="1pt"/>
  
  <v:line  from="700,1900" to="3500,1900"  style="z-index:-1;" strokecolor='#cccccc' strokeweight="1pt"/>
  <v:line  from="700,1500" to="3500,1500"  style="z-index:-1;" strokecolor='#cccccc' strokeweight="1pt"/>
  <v:line  from="700,1100" to="3500,1100"  style="z-index:-1;" strokecolor='#cccccc' strokeweight="1pt"/>
  <v:line  from="700,700" to="3500,700"  style="z-index:-1;" strokecolor='#cccccc' strokeweight="1pt"/>
  <v:line  from="700,300" to="3500,300"  style="z-index:-1;" strokecolor='#cccccc' strokeweight="1pt"/>
  
  <v:shape id="boxbottom"
  FillColor="#999999"  
  title="基底"
  alt="基底"
  Style="position:relative;width:4900;height:3500;z-index:-2;"  
  path = "m
  500,2500 l
  700,2300,
  3500,2300,
  3300,2500,
  500,2500,
   x e"></v:shape>
  <v:shape id="boxleft"
  FillColor="#eeeeee"
  title="背景墙"
  alt="背景墙"
  Style="position:relative;width:4900;height:3500;z-index:-2;"  
  path = "m
  500,2500 l
  700,2300,
  3500,2300,
  3500,300,
  700,300,
  500,500,
  500,2500,
   x e"></v:shape>
 
 <%for i=1 to  total_no
 templeft=500+200+200+(i-1)*600 
 
 %>
  
 <v:shape style='position:absolute;left:<%=templeft%>px;top:2550px;width:430px;height:300px;z-index:-1'>  
  <div align='left' style="font-size:12px;" title="<%=total(i,1)%>"><%=total(i,1)%></div>  
 </v:shape> 
 <%for j=2 to 4
 tempheight=round((total(i,j)/temp3)*2000,2)
 temptop=400+2000-tempheight
 %> 
 <v:rect id='_x0000_s1025' alt='<%=tb_color(j,3)%>:<%=total(i,j)%>' title='<%=tb_color(j,3)%>:<%=total(i,j)%>' style='position:absolute;left:<%=templeft+(j-2)*135%>px;top:<%=temptop%>px;width:100px;height:<%=tempheight%>px;z-index:1' fillcolor='<%=tb_color(j,2)%>'>
 <v:fill color2='<%=tb_color(j,1)%>' rotate='t' type='gradient'/>
 <o:extrusion v:ext='view' backdepth='10' color='<%=tb_color(j,2)%>' on='t'/>
 </v:rect>
 <%next%>  
 <%next%>
   
</v:group></div>
<%
end function
%>

ASP生成OK柱图2

dim total(10,4)total(1,1)="项目 01"total(2,1)="项目 02"total(3,1)="项目 03"total(2,1)=800total(3,1)=1000to...
  • fenglibing
  • fenglibing
  • 2006年06月16日 20:46
  • 6235

Echarts-java后端封装option--(一)柱状图/折线图 测试用例

最近由于要使用到百度的echarts来做图表的展示,近些天一直在学习echarts的使用,说实话百度echarts的官方文档对于前端通过js来完成图表的展示,确实有很方便之处,但是对于某些数据的处理和...
  • MxiaXxy
  • MxiaXxy
  • 2017年08月17日 23:17
  • 583

Highcharts基本柱图

Highcharts官网 http://www.highcharts.com/
  • whzhaochao
  • whzhaochao
  • 2014年05月04日 10:57
  • 917

Echarts 折柱混合图

数据开发平台使用echarts做数据可视化  var dx = new Array();  var dy_mobile_investment =  new Array();  v...
  • sunkaiyu6
  • sunkaiyu6
  • 2017年08月23日 15:10
  • 663

纯ASP结合VML生成完美图-折线图

%不要修改以下数据,除非你知道你在做什么#####################################Height=200  //图表高度Width=600   //图表宽度posX=39...
  • chinmo
  • chinmo
  • 2008年03月03日 22:48
  • 641

纯ASP结合VML生成完美图-柱图

转自:http://goaler.xicp.net/ShowLog.asp?ID=431演示:http://goaler.xicp.net/Demo/asp_vml_pic3.aspdim total...
  • AppleBBS
  • AppleBBS
  • 2005年01月13日 14:14
  • 1101

润乾报表动态控制柱形图显示柱数

统计图的使用方法是很灵活的,在设计报表的过程中,可能有部分的数据对应的统计值为空或者0,有些客户在进行统计的时候,不想把这样的数据统计进去,下面就介绍一下如何设计这样的统计图。 具体方法:1,可以只显...
  • RQlyc
  • RQlyc
  • 2016年12月01日 11:05
  • 678

echarts线柱图

var myChart; require( [ 'echarts', 'echarts/chart/bar', 'echarts/chart/line' ], ...
  • u010649540
  • u010649540
  • 2014年09月01日 11:19
  • 1305

水球图(ECharts 3.4 版本)

水球图是一种适合于展现单个百分比数据的图表类型第一步:引入 JavaScript 文件ECharts 的水球图是一个插件类型的图表。这意味着,在 ECharts 官网下载的完整版本将不包含水球图——这...
  • devincob
  • devincob
  • 2017年12月26日 15:42
  • 139

jfreechart柱图总结

关于条形图的一个总结: 首先使用的是dataset数据源的类是:DefaultCategoryDataset() 1 DefaultCategoryDataset dataset = new Def...
  • gaobing1106
  • gaobing1106
  • 2014年05月14日 18:12
  • 398
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP生成OK柱图1
举报原因:
原因补充:

(最多只允许输入30个字)