VML/ASP生成柱状图、曲线图、饼状图

最新推荐文章于 2010-10-29 16:50:35 发布

VIP文章 UglyBean

最新推荐文章于 2010-10-29 16:50:35 发布

阅读量3k

点赞数

分类专栏：技术文章 Coding日志文章标签： table textbox function behavior javascript office

本文链接：https://blog.csdn.net/UglyBean/article/details/111503

版权

查看源码天地站本主题实例

<%
dim total(7,2) ,total1(7,1)
total(1,1)=200 : total1(1,1)=total(1,1)
total(2,1)=800 : total1(2,1)=total(2,1)
total(3,1)=1000 : total1(3,1)=total(3,1)
total(4,1)=600 : total1(4,1)=total(4,1)
total(5,1)=1222 : total1(5,1)=total(5,1)
total(6,1)=1413 : total1(6,1)=total(6,1)
total(7,1)=800 : total1(7,1)=total(7,1)

total(1,2)="51下岗" : total1(1,0)=total(1,2)
total(2,2)="旧浪" : total1(2,0)=total(2,2)
total(3,2)="网难" : total1(3,0)=total(3,2)
total(4,2)="雅猫" : total1(4,0)=total(4,2)
total(5,2)="2587" : total1(5,0)=total(5,2)
total(6,2)="瞎想" : total1(6,0)=total(6,2)
total(7,2)="千秒" : total1(7,0)=total(7,2)

'---------------------------------------------------
dim total2(7,3)
'total2(1,0)=total(1,2)
'total2(2,0)=total(2,2)
'total2(3,0)=total(3,2)
'total2(4,0)=total(4,2)
'total2(5,0)=total(5,2)
'total2(6,0)=total(6,2)
'total2(7,0)=total(7,2)

total2(1,0)="一月"
total2(2,0)="二月"
total2(3,0)="三月"
total2(4,0)="四月"
total2(5,0)="五月"
total2(6,0)="六月"
total2(7,0)="七月"

total2(0,1)="#FF0000,1.5,1,2,旧浪" '参数1线条的颜色，参数2线条的宽度，参数3线条的类型，参数4转折点的类型,参数5线条名称
total2(1,1)=200
total2(2,1)=1200
total2(3,1)=900
total2(4,1)=600
total2(5,1)=1222
total2(6,1)=413
total2(7,1)=800

total2(0,2)="#0000FF,1,2,3,网难"
total2(1,2)=400
total2(2,2)=500
total2(3,2)=1040
total2(4,2)=1600
total2(5,2)=522
total2(6,2)=813
total2(7,2)=980

total2(0,3)="#004D00,1,1,3,雅猫"
total2(1,3)=900
total2(2,3)=890
total2(3,3)=1240
total2(4,3)=1300
total2(5,3)=722
total2(6,3)=833
total2(7,3)=1280
'--------------------------------------------------------------------------------------------------------------

<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>VML演示页面</title>
<style>
TD { FONT-SIZE: 9pt}
</style></head>
<body topmargin=5 leftmargin=0 scroll=AUTO>
<font size="2"><center>
<a href='javascript:window.print()'>打印</a>
    
<A href='javascript:executeCommand();'>另存为</A>
</center>
</font>

<%call table1(total,200,50,20,30,400,200,"A")%>
<%call table1(total,200,290,20,20,400,250,"B")%>
<%call table3(total1,250,630,250,250,"A") %>
<%call table3(total1,340,1000,250,250,"B") %>
<%call table2(total2,120,1400,600,250,3)%>
<div align="center">
<center>
<table border="1" width="700" height="1518">
    <tr>
      <td width="700" height="28">柱型图表。表示二维数据（网站访问量统计图。1-7
        月）</td>
    </tr>
    <tr>
      <td width="700" height="547"></td>
    </tr>
    <tr>
      <td width="700" height="28">扇型图表。表示二维数据（网站访问量统计图。1-7
        月）</td>
    </tr>
    <tr>
      <td width="700" height="718"></td>
    </tr>
    <tr>
      <td width="700" height="27">折线图表。表现三维数据（网站访问量统计图。1-7
        月）三维数据可以表示单个月份。</td>
    </tr>
    <tr>
      <td width="700" height="331"></td>
    </tr>
</table>
</center>
</div>
</body>
</html>

<%
function table1(total,table_x,table_y,thickness,table_width,all_width,all_height,table_type)
dim tb_color(7,2)
tb_color(1,1)="#d1ffd1"
tb_color(2,1)="#ffbbbb"
tb_color(3,1)="#ffe3bb"
tb_color(4,1)="#cff4f3"
tb_color(5,1)="#d9d9e5"
tb_color(6,1)="#ffc7ab"
tb_color(7,1)="#ecffb7"

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

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

temp1=0
for i=1 to total_no
if temp1<total(i,1) then temp1=total(i,1)
next
temp1=int(temp1)
if temp1>9 then
temp2=mid(cstr(temp1),2,1)
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>4 then temp3=10 else temp3=5
end if
temp4=temp3
response.write ""
response.write "<!--[if gte vml 1]><v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width&"px,"&table_y+all_height&"px' to='"&table_x&#

最低0.47元/天解锁文章

UglyBean

关注

0
点赞
踩
1

收藏

觉得还不错? 一键收藏
12
评论
VML/ASP生成柱状图、曲线图、饼状图

查看源码天地站本主题实例 dim total(7,2) ,total1(7,1)total(1,1)=200 : total1(1,1)=total(1,1)total(2,1)=800 : total1(2,1)=total(2,1)total(3,1)=1000 : total1(3,1)=total(3,1)total(4,1)=600 : total1(4,1)=total(
复制链接

扫一扫