服务器之家

服务器之家 > 正文

asp生成三维饼图的函数

时间:2019-10-08 09:29     来源/作者:asp教程网

代码如下:


<% 
'参数含义(数组,横坐标,纵坐标,图表的宽度,图表的高度,图表标题,单位) 
function table2(stat_array,table_left,table_top,all_width,all_height,table_title,unit) 
       dim bg_color(10),pie(10) 
       bg_color(1)="#ff1919" 
       bg_color(2)="#ffff19" 
       bg_color(3)="#1919ff" 
       bg_color(4)="#19ff19" 
       bg_color(5)="#fc0" 
       bg_color(6)="#3cc" 
       bg_color(7)="#ff19ff" 
       bg_color(8)="#993300" 
       bg_color(9)="#f60" 
       bg_color(10)="#ff8c19" 
       num =ubound(stat_array,1) 
       allvalues=0 
       for i=1 to num 
              allvalues = allvalues+stat_array(i,1) 
       next 
       k=0 
       for i=1 to num-1 
              pie(i)=formatnumber(stat_array(i,1)/allvalues,4,-1) 
              k=k+pie(i) 
       next 
       pie(num)=formatnumber((1-k),4,-1) 
       response.Write "<v:shapetype id='Cake_3D' coordsize='21600,21600' o:spt='95' adj='11796480,5400' path='al10800,10800@0@0@2@14,10800,10800,10800,10800@3@15xe'></v:shapetype>" 
       response.Write "<v:shapetype id='3dtxt' coordsize='21600,21600' o:spt='136' adj='10800' path='m@7,l@8,m@5,21600l@6,21600e'> " 
       response.Write " <v:path textpathok='t' o:connecttype='custom' o:connectlocs='@9,0;@10,10800;@11,21600;@12,10800' o:connectangles='270,180,90,0'/>" 
       response.Write " <v:textpath on='t' fitshape='t'/>" 
       response.Write " <o:lock v:ext='edit' text='t' shapetype='t'/>" 
       response.Write "</v:shapetype>" 
       response.Write "<v:rect id='background' style='position:absolute;left:"&table_left&"px;top:"&table_top&"px;WIDTH:"&all_width&"px;HEIGHT:"&all_height&"px;' fillcolor='#EFEFEF' strokecolor='gray'>" 
       response.Write " <v:shadow on='t' type='single' color='silver' offset='4pt,4pt'/>" 
       response.Write "</v:rect>" 
       response.Write "<v:group ID='table' style='position:absolute;left:"&table_left&"px;top:"&table_top&"px;WIDTH:"&all_width&"px;HEIGHT:"&all_height&"px;' coordsize = '21000,11500'>"  
       response.Write " <v:Rect style='position:relative;left:500;top:200;width:20000;height:800'filled='false' stroked='false'>" 
       response.Write " <v:TextBox inset='0pt,0pt,0pt,0pt'>" 
       response.Write " <table width='100%' border='0' align='center' cellspacing='0'>" 
       response.Write " <tr>" 
       response.Write " <td align='center' valign='middle'><div style='font-size:15pt; font-family:黑体;'><B>"&table_title&"</B></div></td>" 
       response.Write " </tr>" 
       response.Write " </table>" 
       response.Write " </v:TextBox>" 
       response.Write " </v:Rect> " 
       response.Write " <v:rect id='back' style='position:relative;left:500;top:1000;width:20000; height:10000;' onmouseover='movereset(1)' onmouseout='movereset(0)' fillcolor='#9cf' strokecolor='#888888'>" 
       response.Write " <v:fill rotate='t' angle='-45' focus='100%' type='gradient'/>" 
       response.Write " </v:rect>" 
       response.Write " <v:rect id='back' style='position:relative;left:15000;top:1400;width:5000; height:"&((num+1)*9000/11+200)&";' fillcolor='#9cf' stroked='t' strokecolor='#0099ff'>" 
       response.Write " <v:fill rotate='t' angle='-175' focus='100%' type='gradient'/>" 
       response.Write " <v:shadow on='t' type='single' color='silver' offset='3pt,3pt'/>" 
       response.Write " </v:rect>" 
       response.Write " <v:Rect style='position:relative;left:15500;top:1500;width:4000;height:700' fillcolor='#000000' stroked='f' strokecolor='#000000'>" 
       response.Write " <v:TextBox inset='8pt,4pt,3pt,3pt' style='font-size:11pt;'><div align='left'><font color='#ffffff'><B>总数:"&allvalues&unit&"</B></font></div></v:TextBox>" 
       response.Write " </v:Rect> "  
       for i=1 to num 
              response.Write " <v:Rect id='rec"&i&"' style='position:relative;left:15400;top:"&i*9000/11+1450&";width:4300;height:800;display:none' fillcolor='#efefef' strokecolor='"&bg_color(i)&"'>" 
              response.Write " <v:fill opacity='.6' color2='fill darken(118)' o:opacity2='.6' rotate='t' method='linear sigma' focus='100%' type='gradient'/>" 
              response.Write " </v:Rect>" 
              response.Write " <v:Rect style='position:relative;left:15500;top:"&i*9000/11+1500&";width:600;height:700' fillcolor='"&bg_color(i)&"' stroked='f'/>" 
              response.Write " <v:Rect style='position:relative;left:16300;top:"&i*9000/11+1500&";width:3400;height:700' filled='f' stroked='f'>" 
              response.Write " <v:TextBox inset='0pt,5pt,0pt,0pt' style='font-size:9pt;'><div align='left'>"&stat_array(i,2)&":"&stat_array(i,1)&unit&"</div></v:TextBox>" 
              response.Write " </v:Rect> "  
       next 
       response.Write "</v:group>" 
       k1=180 
       k4=10 
       for i=1 to num 
response.write "<a href=aaa.asp>" 
              k2=360*pie(i)/2 
              k3=k1+k2 
              if k3>=360 then 
                     k3=k3-360 
              end if 
              kkk=(-11796480*pie(i)+5898240) 
              k5=3.1414926*2*(180-(k3-180))/360 
              R=all_height/2 
              txt_x = table_left+all_height/8-30+R+R*sin(k5)*0.7 
              txt_y = table_top+all_height/14-39+R+R*cos(k5)*0.7*0.5 
              titlestr = "名称:"&stat_array(i,2)&" 数值:"&stat_array(i,1)&unit&" 所占比例:"&pie(i)*100&"%" 
              response.Write " <div style='cursor:hand;'>" 
              response.Write " <v:shape id='cake"&i&"' type='#Cake_3D' title='"&titlestr&"'" 
              response.Write " style='position:absolute;left:"&table_left+all_height/8&"px;top:"&table_top+all_height/14&"px;WIDTH:"&all_height&"px;HEIGHT:"&all_height&"px;rotation:"&k3&";z-index:"&k4&"'" 
              response.Write " adj='"&kkk&",0' fillcolor='"&bg_color(i)&"' onmouseover='moveup(cake"&i&","&(table_top+all_height/14)&",txt"&i&",rec"&i&")'; onmouseout='movedown(cake"&i&","&(table_top+all_height/14)&",txt"&i&",rec"&i&");'>" 
              response.Write " <v:fill opacity='60293f' color2='fill lighten(120)' o:opacity2='60293f' rotate='t' angle='-135' method='linear sigma' focus='100%' type='gradient'/>" 
              response.Write " <o:extrusion v:ext='view' on='t'backdepth='25' rotationangle='60' viewpoint='0,0'viewpointorigin='0,0' skewamt='0' lightposition='-50000,-50000' lightposition2='50000'/>" 
              response.Write " </v:shape>" 
              response.Write " <v:shape id='txt"&i&"' type='#3dtxt' style='position:absolute;left:"&txt_x&"px;top:"&txt_y&"px;z-index:20;display:none;width:50; height:18;' fillcolor='#ffffff'" 
              response.Write " onmouseover='ontxt(cake"&i&","&(table_top+all_height/14)&",txt"&i&",rec"&i&")'>" 
              response.Write " <v:fill opacity='60293f' color2='fill lighten(120)' o:opacity2='60293f' rotate='t' angle='-135' method='linear sigma' focus='100%' type='gradient'/>" 
              response.Write " <v:textpath style='font-family:'宋体';v-text-kern:t' trim='t' fitpath='t' string='"&pie(i)*100&"%'/>" 
              response.Write " <o:extrusion v:ext='view' backdepth='8pt' on='t' lightposition='0,0' lightposition2='0,0'/>" 
              response.Write " </v:shape>"  
              response.Write " </div>" 
              k1=k1+k2*2 
              if k1>=360 then 
                     k1=k1-360 
              end if 
              if k1>180 then 
                     k4=k4+1 
              else 
                     k4=k4-1 
              end if 
response.write "</a>" 
       next 
end function 
%> 
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office"> 
<head> 
<title></title> 
<STYLE> 
v\:* { Behavior: url(#default#VML) } 
o\:* { behavior: url(#default#VML) } 
</STYLE> 
</head> 
<body> 
<SCRIPT LANGUAGE="JavaScript"> 
<!-- 
onit=true 
num=0 
function moveup(iteam,top,txt,rec){ 
temp=eval(iteam) 
tempat=eval(top) 
temptxt=eval(txt) 
temprec=eval(rec) 
at=parseInt(temp.style.top) 
temprec.style.display = "";  
if (num>27){ 
temptxt.style.display = ""; 

if(at>(tempat-28)&&onit){ 
num++ 
temp.style.top=at-1 
Stop=setTimeout("moveup(temp,tempat,temptxt,temprec)",10) 
}else{ 
return 
}  

function movedown(iteam,top,txt,rec){ 
temp=eval(iteam) 
temptxt=eval(txt) 
temprec=eval(rec) 
clearTimeout(Stop) 
temp.style.top=top 
num=0 
temptxt.style.display = "none"; 
temprec.style.display = "none"; 

function ontxt(iteam,top,txt,rec){ 
temp = eval(iteam); 
temptxt = eval(txt); 
temprec = eval(rec) 
if (onit){ 
temp.style.top = top-28; 
temptxt.style.display = ""; 
temprec.style.display = ""; 


function movereset(over){ 
if (over==1){ 
onit=false 
}else{ 
onit=true 


--> 
</script> 
<% 
dim total(10,2) 
total(1,1)=2000 
total(2,1)=1800 
total(3,1)=1700 
total(4,1)=1500 
total(5,1)=1222 
total(6,1)=1100 
total(7,1)=1000 
total(8,1)=800 
total(9,1)=700 
total(10,1)=600 
total(1,2)="项目1" 
total(2,2)="项目2" 
total(3,2)="项目3" 
total(4,2)="项目4" 
total(5,2)="项目5" 
total(6,2)="项目6" 
total(7,2)="项目7" 
total(8,2)="项目8" 
total(9,2)="项目9" 
total(10,2)="项目10" 
call table2(total,120,20,900,500,"三维饼状图","元") 
'参数含义(数组,横坐标,纵坐标,图表的宽度,图表的高度,图表标题,单位) 
%>

标签:

相关文章

热门资讯

玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情 2019-06-22
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字 2019-06-05
超A是什么意思 你好a表达的是什么
超A是什么意思 你好a表达的是什么 2019-06-06
返回顶部