ASP之生成柱型体，折线图，饼图源代码

以下为引用的内容：

<%

  function table2(total,table_x,table_y,all_width,all_height,line_no)

  ’参数含义(传递的数组，横坐标，纵坐标，图表的宽度，图表的高度,折线条数)

  ’纯ASP代码生成图表函数2——折线图

  ’作者：龚鸣(Passwordgm) QQ:25968152 MSN:[e-mail] Email:[e-mail]

  ’本人非常愿意和ASP,VML,Flash的爱好者在进行交流和探讨

  ’版本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 temp1

  next

  next

  temp1=int(temp1)

  if temp1>9 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 "" Chinaz@com

  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 "de(j,1)&""" strokeweight="""&line_code(j,2)&""">"

  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 "de(j,1)&""" strokecolor="""&line_code(j,1)&"""/>"&CHR(13)

中国.站.长站

  case 3

  response.write "de(j,1)&""" strokecolor="""&line_code(j,1)&"""/>"&CHR(13)

  end select

  next

  select case line_code(j,4)

  case 1

  case 2

  response.write "de(j,1)&""" strokecolor="""&line_code(j,1)&"""/>"&CHR(13)

  case 3

  response.write "de(j,1)&""" strokecolor="""&line_code(j,1)&"""/>"&CHR(13)

中国站.长.站

  end select

  next

  for i=1 to total_no

  response.write ""

  response.write ""

  response.write ""

  response.write "

"&total(i,0)&"

"

Chinaz.com

  next

  tb_height=30

  response.write ""

  for i=1 to line_no

  response.write ""

  response.write "

"&line_code(i,5)&"

"

Www_Chinaz_com

  response.write "de(i,1)&"’>de(i,1)&"’ rotate=’t’ focus=’100%’ type=’gradient’/>"

  next

  end function

  %>

  <%

  function table1(total,table_x,table_y,thickness,table_width,all_width,all_height,table_type)

  ’参数含义(传递的数组，横坐标，纵坐标，柱子的厚度，柱子的宽度，图表的宽度，图表的高度,图表的类型)

  ’纯ASP代码生成图表函数1——柱状图

  ’作者：龚鸣(Passwordgm) QQ:25968152 MSN:[e-mail] Email:[e-mail]

  ’本人非常愿意和ASP,VML,FLASH的爱好者在进行交流和探讨

站长.站

  ’版本2.0 最后修改日期 2003-7-22

  ’非常感谢您使用这个函数，请您使用和转载时保留版权信息，这是对作者工作的最好的尊重。

  dim tb_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"

  line_color="#69f"

  left_width=70

  length=thickness/2

  total_no=ubound(total,1)

  temp1=0

  for i=1 to total_no

中国.站.长站

  if temp1

  next

  temp1=int(temp1)

  if temp1>9 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 ""

Chinaz

  response.write ""

  response.write ""

Chinaz^com

 

   select case table_type

  case "A"

  table_space=(all_width-table_width*total_no)/total_no

  response.write ""

  for i=0 to all_height-1 step all_height/5

  response.write "" 中.国站长站

  response.write ""

  response.write ""

  response.write ""

  temp4=temp4-teMP3/5

  next

  for i=1 to total_no

  temp_space=table_x+left_width+table_space/2+table_space*(i-1)+table_width*(i-1)

  response.write "

  response.write temp_space

Chinaz@com

  response.write "px;top:"

  response.write table_y+all_height*(1-(total(i,1)/temp3))

  response.write "px;width:"&table_width&"px;height:"&all_height*(total(i,1)/temp3)&"px;z-index:1’ fillcolor=’"&tb_color(i,2)&"’>"

  response.write ""

  response.write ""

  response.write ""

  response.write "" 中国站长_站,为中文网站提供动力

  response.write "

"&total(i,1)&"

"

  response.write ""

  response.write "

"&total(i,2)&"

"

Www_Chinaz_com

  next

  Case "B"

  table_space=(all_height-table_width*total_no)/total_no

  response.write ""

  for i=0 to all_width-1 step all_width/5

  response.write ""

中国站长_站,为中文网站提供动力

  response.write ""

  response.write ""

  response.write ""

  temp4=temp4-temp3/5

  next

  for i=1 to total_no

  temp_space=table_space/2+table_space*(i-1)+table_width*(i-1)

  response.write "

  response.write table_x+left_width

  response.write "px;top:"

  response.write table_y+temp_space

  response.write "px;width:"&all_width*(total(i,1)/temp3)&"px;height:"&table_width&"px;z-index:1’ fillcolor=’"&tb_color(i,2)&"’>"

  response.write ""

  response.write ""

  response.write ""

  response.write ""

Www^Chinaz^com

  response.write "

"&total(i,1)&"

"

  response.write ""

  response.write "

"&total(i,2)&"

"

Chinaz^com

  next

  case else

  end select

  end function

  %>

  <%

  function table3(total,table_x,table_y,all_width,all_height,table_type)

  ’参数含义(传递的数组，横坐标，纵坐标，图表的宽度，图表的高度,图表的类型)

  ’纯ASP代码生成图表函数3——饼图

  ’作者：龚鸣(Passwordgm) QQ:25968152 MSN:[e-mail] Email:[e-mail]

  ’本人非常愿意和ASP,VML,Flash的爱好者在进行交流和探讨

  ’版本1.0 最后修改日期 2003-8-11

  ’非常感谢您使用这个函数，请您使用和转载时保留版权信息，这是对作者工作的最好的尊重。

  tb_height=30

  dim tb_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

  for i=1 to total_no

  totalpie=totalpie+total(i,1)

  next

  PreAngle=0

  for i=1 to total_no

  response.write ""&CHr(13) Chinaz~com

  PreAngle=PreAngle+total(i,1)/totalpie

  next

  if table_type="A" then

  response.write ""

  for i=1 to total_no

  response.write ""

  response.write "

"&total(i,0)&"

" Chinaz~com

  response.write ""

  ’显示比例数

  ’ response.write ""

  ’ response.write "

"&formatnumber(total(i,1)*100/totalpie,2,-1)&"%

" Chinaz

  next

  end if

  if table_type="B" then

  pie=3.14159265358979

  TempPie=0

  for i=1 to total_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_x+all_width/2+cos(TempAngle)*all_width*3/4

  y2=table_y+all_height/2-sin(TempAngle)*all_height*3/4

  if x2>table_x+all_width/2 then

  x3=x2+20

  x4=x3

  else

  x3=x2-20

  x4=x3-100

  end if

  response.write ""&CHR(13)

  response.write ""

Chinaz_com

  response.write ""

  response.write ""

  response.write "

"&total(i,0)&" "&formatnumber(total(i,1)*100/totalpie,2,-1)&"%

"

中国站.长站

  TempPie=TempPie+total(i,1)/TotalPie

  next

  end if

  end function

  %>

  纯ASP代码生成图表函数1——柱状图调用示例

  <%

  dim total(7,2)

  total(1,1)=200

  total(2,1)=800

  total(3,1)=1000

  total(4,1)=600

  total(5,1)=1222

  total(6,1)=3213

  total(7,1)=8

  total(1,2)="中国经营报"

  total(2,2)="招聘网"

  total(3,2)="51Job"

  total(4,2)="新民晚报"

  total(5,2)="新闻晚报"

  total(6,2)="南方周末"

  total(7,2)="羊城晚报"

  total_no=7

  %>

 

 

 

 

 

 

 

  <%call table1(total,200,20,20,30,400,200,"A")%>

  <%call table1(total,200,320,20,20,400,250,"B")%>