【下载文档:  asp生成柱型体，折线图，饼图源代码提供了第1_3页.txt 】

---

ASP生成柱型体，折线图，饼图源代码提供了第1/3页
ASP生成柱型体，折线图，饼图源代码 <% function table2(total,table_x,table_y,all_width,all_height,line_no) '参数含义(传递的数组，横坐标，纵坐标，图表的宽度，图表的高度,折线条数) '纯ASP代码生成图表函数2――折线图 '作者：龚鸣(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com '本人非常愿意和ASP,VML,FLASH的爱好者在HTTP://topclouds.126.com进行交流和探讨 '版本1.0 最后修改日期 2003-8-11 '非常感谢您使用这个函数，请您使用和转载时保留版权信息，这是对作者工作的最好的尊重。 line_color="#69f" left_width=70 total_no=ubound(total,1) temp1=0 for i=1 to total_no for j=1 to line_no if temp19 then temp2=mid(cstr(temp1),2,1) if temp2>4 then temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+1)*10^(len(cstr(temp1))-1) else temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+0.5)*10^(len(cstr(temp1))-1) end if else if temp1>4 then temp3=10 else temp3=5 end if temp4=temp3 response.write "" for i=0 to all_height-1 step all_height/5 response.write "" response.write "" response.write "" response.write "" response.write "

"&temp4&"

" temp4=temp4-temp3/5 next response.write "" response.write "" dim line_code redim line_code(line_no,5) for i=1 to line_no line_temp=split(total(0,i),",") line_code(i,1)=line_temp(0) line_code(i,2)=line_temp(1) line_code(i,3)=line_temp(2) line_code(i,4)=line_temp(3) line_code(i,5)=line_temp(4) next for j=1 to line_no for i=1 to total_no-1 x1=table_x+left_width+all_width*(i-1)/total_no y1=table_y+(temp3-total(i,j))*(all_height/temp3) x2=table_x+left_width+all_width*i/total_no y2=table_y+(temp3-total(i+1,j))*(all_height/temp3) response.write "" select case line_code(j,3) case 1 case 2 response.write "" case 3 response.write "" case 4 response.write "" case 5 response.write "" case 6 response.write "" case 7 response.write "" case else end select response.write ""&CHR(13) select case line_code(j,4) case 1 case 2 response.write ""&CHR(13) case 3 response.write ""&CHR(13) end select next select case line_code(j,4) case 1 case 2 response.write ""&CHR(13) case 3 response.write ""&CHR(13) end select next for i=1 to total_no response.write "" response.write "" response.write "" response.write "

"&total(i,0)&"

" next tb_height=30 response.write "" for i=1 to line_no response.write "" response.write "

"&line_code(i,5)&"

" response.write "" next end function %>
123下一页阅读全文