ASP网页编程之vml 完成饼图的代码

只看该作者 · 发表于 2015-1-16 22:48:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

对用户来说可预见费用、节约费用，可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用，用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的，对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。饼图|饼图<%dimtotal(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
%><htmlxmlns:v="urn:schemas-microsoft-com:vml"xmlns:o="urn:schemas-microsoft-com:office:office">

<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title></title>
<style>
TD{FONT-SIZE:9pt}
</style></head>
<bodytopmargin=5leftmargin=0scroll=AUTO>
典范一
<%calltable3(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>典范二
<%calltable3(total,300,450,250,250,"B")%>
</body>
</html>
<%
functiontable3(total,table_x,table_y,all_width,all_height,table_type)
参数寄义(传送的数组，横坐标，纵坐标，图表的宽度，图表的高度,图表的范例)
纯ASP代码天生图表函数3――饼图
龚叫(Passwordgm)QQ:25968152MSN:passwordgm@sina.comEmail:passwordgm@sina.com
自己十分乐意和ASP,VML,Flash的喜好者在HTTP://topclouds.126.com举行交换和切磋
版本1.0最初修正日期2003-8-11
十分感激您利用这个函数，请您利用和转载时保存版权信息，这是对作者事情的最好的尊敬。
tb_height=30
dimtb_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
fori=1tototal_no
totalpie=totalpie+total(i,1)
next
PreAngle=0
fori=1tototal_no
response.write"<v:shapeid=_x0000_s1025alt=style=position:absolute;left:"&table_x&"px;top:"&table_y&"px;width:"&all_width&"px;height:"&all_height&"px;z-index:1coordsize=1500,1400o:spt=100adj=0,,0path=m750,700ae750,700,750,700,"&int(23592960*PreAngle)&","&int(23592960*total(i,1)/totalpie)&"xefillcolor="&tb_color(i,1)&"strokecolor=#FFFFFF><v:fillcolor2="&tb_color(i,2)&"rotate=tfocus=100%type=gradient/><v:strokejoinstyle=round/><v:formulas/><v:patho:connecttype=segments/></v:shape>"&CHr(13)
PreAngle=PreAngle+total(i,1)/totalpie
next
iftable_type="A"then
response.write"<v:rectid=_x0000_s1025style=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/>"
fori=1tototal_no
response.write"<v:shapeid=_x0000_s1025type=#_x0000_t202alt=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:textboxinset=0px,0px,0px,0px><tablecellspacing=3cellpadding=0width=100%height=100%><tr><tdalign=left>"&total(i,0)&"</td></tr></table></v:textbox></v:shape>"
response.write"<v:rectid=_x0000_s1040alt=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:1fillcolor="&tb_color(i,1)&"><v:fillcolor2="&tb_color(i,2)&"rotate=tfocus=100%type=gradient/></v:rect>"
显现比例数
response.write"<v:shapeid=_x0000_s1025type=#_x0000_t202alt=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:textboxinset=0px,0px,0px,0px><tablecellspacing=3cellpadding=0width=100%height=100%><tr><tdalign=left>"&formatnumber(total(i,1)*100/totalpie,2,-1)&"%</td></tr></table></v:textbox></v:shape>"
next
endif
iftable_type="B"then
pie=3.14159265358979
TempPie=0
fori=1tototal_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_
ASP由于使用了COM组件所以它会变的十分强大，但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意，哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失；

只看该作者 · 发表于 2015-1-19 23:54:58

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

只看该作者 · 发表于 2015-1-25 18:05:59

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

只看该作者 · 发表于 2015-2-3 12:32:24

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

只看该作者 · 发表于 2015-2-8 23:51:13

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

只看该作者 · 发表于 2015-2-26 14:02:49

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

只看该作者 · 发表于 2015-3-8 15:30:38

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

只看该作者 · 发表于 2015-3-16 03:25:47

代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

只看该作者 · 发表于 2015-3-22 19:23:03

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网页编程之vml 完成饼图的代码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子