ASP生成柱型体,折线图,饼图源代码(4)
作者:龚鸣 发布时间:2007-09-20 12:56:00
标签:柱型体,折线图,饼图,asp
<%
function table3(total,table_x,table_y,all_width,all_height,table_type)
’参数含义(传递的数组,横坐标,纵坐标,图表的宽度,图表的高度,图表的类型)
’纯ASP代码生成图表函数3——饼图
’作者:龚鸣(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com
tb_height=30
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)="#99cc00"
total_no=ubound(total,1)
totalpie=0
for i=1 to total_no
totalpie=totalpie+total(i,1)
next
PreAngle=0
for i=1 to total_no
response.write "<v:shape id=’_x0000_s1025’ alt=’’ style=’position:absolute;left:"&table_x&"px;top:"&table_y&"px;width:"&all_width&"px;height:"&all_height&"px;z-index:1’ coordsize=’1500,1400’ o:spt=’100’ adj=’0,,0’ path=’m750,700ae750,700,750,700,"&int(23592960*PreAngle)&","&int(23592960*total(i,1)/totalpie)&"xe’ fillcolor=’"&tb_color(i,1)&"’ strokecolor=’#FFFFFF’><v:fill color2=’"&tb_color(i,2)&"’ rotate=’t’ focus=’100%’ type=’gradient’/><v:stroke joinstyle=’round’/><v:formulas/><v:path o:connecttype=’segments’/></v:shape>"&CHr(13)
PreAngle=PreAngle+total(i,1)/totalpie
next
if table_type="A" then
response.write "<v:rect id=’_x0000_s1025’ style=’position:absolute;left:"&table_x+all_width+20&"px;top:"&table_y+20&"px;width:100px;height:"&total_no*tb_height+20&"px;z-index:1’/>"
for i=1 to total_no
response.write "<v:shape id=’_x0000_s1025’ type=’#_x0000_t202’ alt=’’ style=’position:absolute;left:"&table_x+all_width+25&"px;top:"&table_y+30+(i-1)*tb_height&"px;width:60px;height:"&tb_height&"px;z-index:1’>"
response.write "<v:textbox inset=’0px,0px,0px,0px’><table cellspacing=’3’ cellpadding=’0’ width=’100%’ height=’100%’><tr><td align=’left’>"&total(i,0)&"</td></tr></table></v:textbox></v:shape>"
response.write "<v:rect id=’_x0000_s1040’ alt=’’ style=’position:absolute;left:"&table_x+all_width+80&"px;top:"&table_y+30+(i-1)*tb_height+3&"px;width:30px;height:20px;z-index:1’ fillcolor=’"&tb_color(i,1)&"’><v:fill color2=’"&tb_color(i,2)&"’ rotate=’t’ focus=’100%’ type=’gradient’/></v:rect>"
’显示比例数
’ response.write "<v:shape id=’_x0000_s1025’ type=’#_x0000_t202’ alt=’’ style=’position:absolute;left:"&table_x+all_width+110&"px;top:"&table_y+30+(i-1)*tb_height&"px;width:60px;height:"&tb_height&"px;z-index:1’>"
’ response.write "<v:textbox inset=’0px,0px,0px,0px’><table cellspacing=’3’ cellpadding=’0’ width=’100%’ height=’100%’><tr><td align=’left’>"&formatnumber(total(i,1)*100/totalpie,2,-1)&"%</td></tr></table></v:textbox></v:shape>"
next
end if
if table_type="B" then
pie=3.14159265358979
TempPie=0
for i=1 to total_no
TempAngle=pie*2*(total(i,1)/(TotalPie*2)+TempPie)
x1=table_x+all_width/2+cos(TempAngle)*all_width*3/8
y1=table_y+all_height/2-sin(TempAngle)*all_height*3/8
x2=table_x+all_width/2+cos(TempAngle)*all_width*3/4
y2=table_y+all_height/2-sin(TempAngle)*all_height*3/4
if x2>table_x+all_width/2 then
x3=x2+20
x4=x3
else
x3=x2-20
x4=x3-100
end if
response.write "<v:oval id=’_x0000_s1027’ style=’position:absolute;left:"&x1-2&"px;top:"&y1-2&"px;width:4px;height:4px; z-index:2’ fillcolor=’#111111’ strokecolor=’#111111’/>"&CHR(13)
response.write "<v:line id=’_x0000_s1025’ alt=’’ style=’position:absolute;left:0;text-align:left;top:0;z-index:1’ from=’"&x1&"px,"&y1&"px’ to=’"&x2&"px,"&y2&"px’ coordsize=’21600,21600’ strokecolor=’#111111’ strokeweight=’1px’></v:line>"
response.write "<v:line id=’_x0000_s1025’ alt=’’ style=’position:absolute;left:0;text-align:left;top:0;z-index:1’ from=’"&x2&"px,"&y2&"px’ to=’"&x3&"px,"&y2&"px’ coordsize=’21600,21600’ strokecolor=’#111111’ strokeweight=’1px’></v:line>"
response.write "<v:shape id=’_x0000_s1025’ type=’#_x0000_t202’ alt=’’ style=’position:absolute;left:"&x4&"px;top:"&y2-10&"px;width:100px;height:20px;z-index:1’>"
response.write "<v:textbox inset=’0px,0px,0px,0px’><table cellspacing=’3’ cellpadding=’0’ width=’100%’ height=’100%’><tr><td align=’left’>"&total(i,0)&" "&formatnumber(total(i,1)*100/totalpie,2,-1)&"%</td></tr></table></v:textbox></v:shape>"
TempPie=TempPie+total(i,1)/TotalPie
next
end if
end function
%>
纯ASP代码生成图表函数1——柱状图调用示例
<%
dim total(7,2)
total(1,1)=200
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)="中国经营报"
total(2,2)="招聘网"
total(3,2)="51Job"
total(4,2)="新民晚报"
total(5,2)="新闻晚报"
total(6,2)="南方周末"
total(7,2)="羊城晚报"
total_no=7
%>
<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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style>
TD { FONT-SIZE: 9pt}
</style></head>
<body topmargin=5 leftmargin=0 scroll=AUTO>
<%call table1(total,200,20,20,30,400,200,"A")%>
<%call table1(total,200,320,20,20,400,250,"B")%>
</body>
</html>
0
投稿
猜你喜欢
- 一、创建和管理表 1、创建表语法 create table 表名(column datatype [default expr][,colum
- Java Java 是由 Sun 公司开发而成的一种编程语言,利用 Jave 写成的小程序叫做 Java
- 您可以使用 ObjectContext 对象提交或放弃一项由 Microsoft Transaction Server (MTS) 管理的事
- 在实际的工作和学习中,许多人的SQL Server 2005数据库日志文件可能会发生损坏,例如硬件故障、计算机非正常重启或关机等等。在SQL
- 阅读上一篇:FrontPage2002简明教程五:css样式表的应用 用户可以快速和容易地创建图片库,以显示图片或图像。他们可以将图像添加到
- 调用 <script language="javascript" src="xxx.asp?m
- 给网页添加打印按钮,除了打印之外,还有页面设置、打印预览、复制本文链接到剪贴板等网页基本应用。正象我在图中标注的,大部分按钮只能适用于IE浏
- 任何位置都能明确“我在哪里?这里有什么?从这里能去哪里?” 小时候,童话故事都告诉我们,迷路可不是一件好事。那会伴随着困惑、沮丧、
- em 和 strong 的区别,可以从三个层次上来谈。首先看 HTML 4.01 中的说明:EM: Indicates emphasis.S
- 当用户关闭cookie时,通过asp程序提示访客打开,源代码如下: Dim strCookie, strT
- MySQL的本地备份和双机相互备份脚本:首先,我们需要修改脚本进行必要的配置,然后以root用户执行。◆1. 第一执行远程备份时先用 fir
- [编者注:]提起数据库,第一个想到的公司,一般都会是Oracle(即甲骨文公司)。Oracle在数据库领域一直处于领先地位。Oracle关系
- asp数字分页涵数参数说明:SQL: 查询语句,PageSizeN: 每页显示多少新闻记录classid: 栏目ID,PageCountS:
- 第一节:WAP的潜能 这些日子,我们常听到WAP技术,一种手机上网的技术。从技术上讲,移动电话不可能和PC来竞争,移动电话的屏幕只能容下很少
- 代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001&quo
- ul设置浮动后不能自适应高度,也就是不能撑开父容器,不能自适应内容的高度。解决方法是在ul结束标签前加个清除浮动。 &
- 在这里我们将介绍的是MySQL内存使用上的线程独享,线程独享内存主要用于各客户端连接线程存储各种操作的独享数据,如线程栈信息,分组排序操作,
- 首先恭喜月影,当然希望好书大卖!原文提供了样章下载1.1M,pdf格式的。如果大家想下载可以访问源地址:http://bbs.51js.co
- 如何显示一个文本文件?完整显示文本文件的代码如下: Write(STRING) WriteLine(STRING) WriteBlan
- 在上一个文章里写了关于左(右)侧定宽右(左)侧自动缩放的两列浮动,这个文章就要说一下三列浮动的问题了。在之前说过,两列浮动是其他多列浮动的基