asp vml 对比柱形图

来源：互联网发布：iphone音乐剪辑软件编辑：程序博客网时间：2024/04/28 04:18

<%
dim total(10,4)

total(1,1)="项目 01"
total(2,1)="项目 02"
total(3,1)="项目 03"

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

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

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

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)

else
if temp1>5 then temp3=10 else temp3=5
end if
temp4=temp3/5

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