asp画饼型或柱状图的代码
找了好多都是组件的，不过在csdn上找到一个xml的
这是用vml做的，是xml方式
还有一种是用组建生成gif图片的
可以是实现的有柱状图，折线图，饼图，三维饼图，散点图
<%
'参数含义(数组，横坐标，纵坐标，图表的宽度，图表的高度,图表标题，X轴单位，Y轴单位)
function table1(stat_array,table_left,table_top,all_width,all_height,table_title,X_unit,Y_unit)
dim bg_color(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"
if X_unit<>"" then
X_unit=X_unit
end if
if Y_unit<>"" then
Y_unit=Y_unit
end if
num =ubound(stat_array,1)
item_width = cint(20000/num+0.5)
begin_x= cint((item_width-1200)/2)+2200
value_Max=0
for i=1 to num
if value_Max
value_Max = cint(value_Max)
value_Max_str =cstr(value_Max)
if value_Max>9 then
temp=mid(value_Max_str,2,1)
if temp>4 then
temp2=(int(value_Max/(10^(len(value_Max_str)-1)))+1)*10^(len(value_Max_str)-1)
else
temp2=(int(value_Max/(10^(len(value_Max_str)-1)))+0.5)*10^(len(value_Max_str)-1)
end if
else
if value_Max>4 then temp2=10 else temp2=5
end if
item_hight = temp2/5
'下一句改变柱状体的3d模式
response.Write "
response.Write "
response.Write "
response.Write "
'绘制图的主体
response.Write "
'绘制标题层
response.Write "
response.Write "
response.Write " "
"
response.Write " " "
response.Write " "&table_title&" "
response.Write "
response.Write "
response.Write "
response.Write "
'绘制图表主体的蓝色渐变背景
response.Write "
response.Write "
response.Write "
'横坐标轴
response.Write "
'纵坐标轴
response.Write "
'写x、y轴单位
response.Write "
response.Write "
response.Write "
response.Write "
response.Write "
response.Write "
'4根纵坐标校准线
for i=0 to 4
response.Write "
response.Write "
response.Write "
response.Write "
response.Write "
response.Write "
'写y轴刻度
response.Write "
response.Write "
response.Write "
next
'3根坐标轴基准线x,y,z
response.Write "
response.Write "
response.Write "
'写柱子
for i=1 to num
this_hight = cint(stat_array(i,1)/(5*item_hight)*10000+420)
response.Write "
response.Write "
response.Write "
response.Write "
response.Write "
response.Write "
response.Write "
next
response.Write "
end function
%>
<%
dim total(10,2)
total(1,1)=200
total(2,1)=800
total(3,1)=1004
total(4,1)=600
total(5,1)=1222
total(6,1)=2100
total(7,1)=80
total(8,1)=502
total(9,1)=145
total(10,1)=30000
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 table1(total,20,20,700,400,"统 计 图","","美圆")
%>
本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！