 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<%dim total(7,1) total(1,0)="中国经营报" total(2,0)="招聘网" total(3,0)="51Job" total(4,0)="新民晚报" total(5,0)="新闻晚报" total(6,0)="南方周末" total(7,0)="羊城晚报" total(1,1)=200 total(2,1)=1200 total(3,1)=900 total(4,1)=600 total(5,1)=1222 total(6,1)=413 total(7,1)=800 %><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 table3(total,100,40,250,250,"A")%> < Br><Br><Br><Br><Br><Br><Br><Br> <Br><Br><Br><Br><Br><Br><Br>< Br><Br><Br><Br><Br>范例二 <%call table3(total,300,450,250,250,"B")%> </body> </html> <% 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 \\\'本人异常愿意和ASP,VML,FLASH的兴趣者在HTTP://topclouds.126.com进行交流和探讨 \\\'版本1.0 最后修改日期 2003-8-11 \\\'异常感谢您使用这个函数，请您使用和转载时保留版权信息，这是对作者工作的最好的尊重。 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学习笔记 下一教程: 在线压缩ACCESS数据库 您可以阅读与"VML 实现饼图的代码"相关的教程: · 用ASP实现的代码批量修改程序，FSO相关 · 用ASP实现邮箱登陆的代码 · 动网论坛上传文件漏洞的原理以及攻击的代码实现 · ASP查询XML的代码，实现了无刷新、模糊查询功能 · ASP + SERV-U 实现FTP的代码 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
