asp生成三维饼图的函数_应用技巧

为方便生成三维饼图函数，我收集了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,"三维饼状图","元")
'参数含义(数组，横坐标，纵坐标，图表的宽度，图表的高度,图表标题,单位)
%>

时间： 2024-12-24 08:42:27

asp生成三维饼图的函数_应用技巧的相关文章

asp生成三维饼图的函数

为方便生成三维饼图函数,我收集了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&q

ASP UTF-8编码生成静态网页的函数_应用技巧

以下函数采用FSO对象,文件位置在FSO.ASP.FSO对象的文件编码属性只有三种,系统默认,Unicode,ASCII,并没有我们要的utf-8,所以一般中文系统上使用FSO对象生成的文件都是gb2312网页编码格式,无法生成UTF-8编码,因此,英文等拉丁语系和中文可以正常显示,但象俄语等非拉丁语系,页面就会出现乱码. 复制代码 代码如下: function createfile(sfilename,scontent) set fso=server.CreateObject("scripti

fso asp生成静态html的代码_应用技巧

FSO生成静态HTML文件的时候替换模板标签一直是一个很麻烦的问题,至少我是这么认为的,还要别外做一个模板,麻烦!,我今天看见有一个方法可以解决这个问题         如一个正常的index.asp页面,并且用ASP代码调出数据库中的内容,另建一个makehtml.asp的页面,加入一个textarea域,假设为name="body",将index.asp在textarea里调出来,如:  <textarea name="body"><!--#i

asp实现过滤关键字的函数_应用技巧

过滤关键字<% '****************************** '函数:ChkKeyWord(ByVal keyword) '参数:keyword,关键字 '作者:阿里西西 '日期:2007/7/15 '描述:过滤关键字 '示例:ChkKeyWord("sfsdfdf'8&5ddd") '****************************** Function ChkKeyWord(ByVal keyword)   Dim FobWords, i  

ASP实现强制图片下载函数_应用技巧

图片不进行处理,图片默认是用浏览器打开显示,如果希望图片变为下载可以使用以下代码 function downloadFile(strFile) strFilename = server.MapPath(strFile) Response.Buffer = True Response.Clear Set s = Server.CreateObject("ADODB.Stream") s.Open s.Type = 1 on error resume next Set fso = Serv

asp最常用的分页函数_应用技巧

复制代码 代码如下:     rs.open sql,conn,1,1     if rs.eof and rs.bof then      response.write "<p align='center'>还没找到文章</p>"   else    totalPut=rs.recordcount    maxperpage=18    if currentpage<1 then     currentpage=1     end if    if (c

ASP生成静态htm页面基本代码_应用技巧

以下虚线框内为mk.asp文件的具体代码:--------------------------------------------------------------------------------<%filename="test.htm"if request("body")<>"" thenset fso = Server.CreateObject("Scripting.FileSystemObject"

asp生成静态HTML(动态读取)_应用技巧

复制代码 代码如下: <!--#include file="admin_Checkuser.asp"--> <% call ConnectionDatabase()dim str,str_newstr=""str_new=""sqlx="select id from Fl_Products order by id desc" set rsx=conn.execute(sqlx)do while not rsx

收集整理的ASP的常用内置函数_应用技巧

函数,就是该语言封装了的一个功能块,以方便用户的调用.比如"now()"在VBScript中就是一个能显示出当前日期和时间的函数.至于具体为什么能显示,则是该语言内核所定的,用户只需明白"now()"就是用来能显示日期时间的.那么,我们当前接触的VBScript还有其他什么功能的函数么? 1,日期/时间函数 这些函数包括对"年"."月"."日"."时"."分".&qu