打印

[asp] ASP+VML实现立体曲线统计图(可以从数据库读数据)

本主题由 kuhanzhu 于 2008-7-24 15:45 分类

jimstory [楼主]

西瓜别

中级会员

帖子: 156
体力: 330
威望: 0
当前: 上海徐汇
离线: 1 天

专长 网页设计,ASP,Access

1^# 大中小发表于 2008-6-25 15:47

版权属于作者.
保存为.asp文件,在IE里运行OK.
但是有个问题,某条曲线某月值为空,或者后面几个无数据的时候,不知道怎么显示.如果改为null,会出现line_code(i,j) = cdbl(line_temp(j-1)) 里类型不匹配: 'cdbl'
改为0会使得曲线很不好看.最好是,那个月的值为空,那曲线上当月的值就不要显示.
看哪位高手可以改得更完美.

<%
'┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
'┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃
'┃ 摘　要： 统计图--曲线图　　 　　　　　　　　　　　　　　　　 ┃
'┃ 作　者： 翁云兵　　　　　　　　　　　　　　　　　　　　　　　┃
'┃ 创建日期：2004年12月01日　　　　　　　　　　　　　　　　　　┃
'┃ 完成日期：2004年11月03日　　　　　　　　　　　　　　　　　　┃
'┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┃
'┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
'参数含义(数组，横坐标，纵坐标，图表的宽度，图表的高度,图表标题，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
num1 = ubound(stat_array,1) 
line_temp=split(stat_array(0,1),",")
num2 = ubound(line_temp,1)+1
dim line_code
redim line_code(num1,num2)
for j=1 to num2
line_code(0,j) = line_temp(j-1)
next
for i=1 to num1
line_temp = split(stat_array(i,1),",")
line_code(i,0) = stat_array(i,2)
for j=1 to num2
line_code(i,j) = cdbl(line_temp(j-1))
next
next 
value_Max=0
for i=1 to num1
for j=1 to num2
if value_Max<line_code(i,j) then value_Max=line_code(i,j) 
next
next
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
item_width = 20000/(num2-1)
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 = '27500,12800'>"
response.Write " <v:Rect style='position:relative;left:1500;top:200;width:23000;height:800'filled='false' stroked='f'>"
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:1700;top:1200;width:20500; height:10500;' fillcolor='#9cf' strokecolor='#DFDFDF'>"
response.Write " <v:fill rotate='t' angle='-45' focus='100%' type='gradient'/>"
response.Write " </v:rect>"
response.Write " <v:rect id='back2' style='position:relative;left:23000;top:1200;width:4000; height:"&(10500)&";' 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>"
for i=1 to num1
if i=1 then
displaystr=""
else
displaystr="none"
end if
response.Write " <div style='cursor:hand;' onmouseover='moveon(rec"&i&",line_"&i&")' onmouseout='moveout(rec"&i&",line_"&i&","&i&")' onclick='clickit("&i&")'>"
response.Write " <v:Rect id='rec"&i&"' style='position:relative;left:23100;top:"&(i-1)*10200/10+1450&";width:3800;height:800;display:"&displaystr&";' 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:23200;top:"&(i-1)*10200/10+1500&";width:600;height:700' fillcolor='"&bg_color(i)&"' stroked='f'/>"
response.Write " <v:Rect style='position:relative;left:24000;top:"&(i-1)*10200/10+1500&";width:3400;height:700' filled='f' stroked='f'>"
response.Write " <v:TextBox inset='0pt,4pt,0pt,0pt' style='font-size:9pt;'><div align='left'>"&stat_array(i,2)&"</div></v:TextBox>"
response.Write " </v:Rect> "
response.Write " </div> "
next
response.Write " <v:line ID='X' from='1700,11700' to='22700,11700' style='z-index:2' strokecolor='#000000' strokeWeight=1pt><v:stroke EndArrow='Classic'/></v:line>"
response.Write " <v:line ID='Y' from='1700,900' to='1700,11700' style='z-index:2' strokecolor='#000000' strokeWeight=1pt><v:stroke StartArrow='Classic'/></v:line>"
response.Write " <v:Rect style='position:relative;left:100;top:700;width:1500;height:500' filled='false' stroked='false'>"
response.Write " <v:TextBox inset='0pt,0pt,0pt,0pt' style='font-size:9pt;'><div align='right'>"&Y_unit&"</div></v:TextBox>"
response.Write " </v:Rect> " 
response.Write " <v:Rect style='position:relative;left:22200;top:11900;width:2000;height:500' filled='false' stroked='false'>"
response.Write " <v:TextBox inset='0pt,0pt,0pt,0pt' style='font-size:9pt;'><div align='left'>"&X_unit&"</div></v:TextBox>"
response.Write " </v:Rect> " 
for i=0 to 4
response.Write " <v:line from='1300,"&i*2000+1700&"' to='1700,"&i*2000+1700&"' style='z-index:2' strokecolor='#000000'></v:line>"
response.Write " <v:line from='1700,"&i*2000+1700&"' to='2200,"&i*2000+1200&"' style='z-index:2' strokecolor='#0099FF'></v:line>"
response.Write " <v:line from='2200,"&i*2000+1200&"' to='22200,"&i*2000+1200&"' style='z-index:2' strokecolor='#0099FF'></v:line>"
response.Write " <v:line from='2200,"&i*2000+2200&"' to='22200,"&i*2000+2200&"' style='z-index:2' strokecolor='#0099FF'>"
response.Write " <v:stroke dashstyle='Dot'/>"
response.Write " </v:line>"
response.Write " <v:Rect style='position:relative;left:100;top:"&i*2000+1250&";width:1500;height:500' filled='false' stroked='false'>"
response.Write " <v:TextBox inset='0pt,0pt,0pt,0pt' style='font-size:9pt;'><div align='right'>"&item_hight*(5-i)&"</div></v:TextBox>"
response.Write " </v:Rect> " 
next
response.Write " <v:line from='2200,11200' to='22200,11200' style='z-index:2' strokecolor='#0099FF'></v:line>"
response.Write " <v:line from='2200,1200' to='2200,11200' style='z-index:2' strokecolor='#0099FF'></v:line>"
response.Write " <v:line from='1700,11700' to='2200,11200' style='z-index:2' strokecolor='#0099FF'></v:line>"
for j=0 to num2-1
response.Write " <v:line from='"&j*item_width+1700&",11700' to='"&j*item_width+1700&",12000' style='z-index:2' strokecolor='#000000'></v:line>"
response.Write " <v:line from='"&j*item_width+1700&",11700' to='"&j*item_width+2200&",11200' style='z-index:2' strokecolor='#0099FF'><v:stroke dashstyle='ShortDot'/></v:line>"
response.Write " <v:line from='"&j*item_width+2200&",1200' to='"&j*item_width+2200&",11200' style='z-index:2' strokecolor='#0099FF'><v:stroke dashstyle='ShortDot'/></v:line>"
response.Write " <v:Rect style='position:relative;left:"&j*item_width+1700-item_width/2&";top:12100;width:"&item_width&";height:500' filled='false' stroked='false'>"
response.Write " <v:TextBox inset='0pt,0pt,0pt,0pt' style='font-size:9pt;'><div align='center'>"&line_code(0,j+1)&"</div></v:TextBox>"
response.Write " </v:Rect> " 
next
for i=1 to num1
if i=1 then
displaystr=""
else
displaystr="none"
end if
response.Write " <div id='line_"&i&"' style='display:"&displaystr&";'>"
for j=0 to num2-2
this_hight1 = cint(line_code(i,j+1)/(5*item_hight)*10000)
this_hight2 = cint(line_code(i,j+2)/(5*item_hight)*10000)
'线条样式
response.Write " <v:line from='"&j*item_width+1850&","&(10000-this_hight1+1550)&"' to='"&(j+1)*item_width+1850&","&(10000-this_hight2+1550)&"'style='z-index:"&i*10&";' strokeweight='0.1pt' strokecolor='"&bg_color(i)&"'>"
response.Write " <o:extrusion v:ext='view' backdepth='2pt' on='t' lightposition='-50000,-50000' lightposition2='50000'/>"
response.Write " </v:line>"
next
response.Write " </div>"
next
response.Write "</v:group>" 
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>
<SCRIPT LANGUAGE="JavaScript">

</script>
</head>
<body>
<%
dim total(10,2)
total(0,1)="1月,2月,3月,4月,5月,6月,7月,8月,9月,10月,11月,12月"
total(1,1)="200,158,982,0,369,100,595,895,652,25,245,951"
total(2,1)="984,58,495,36,158,486,952,258,653,415,485,14"
total(3,1)="850,988,958,145,369,745,265,158,856,145,425,352"
total(4,1)="600,525,235,485,258,265,158,365,35,148,658,475"
total(5,1)="62,525,635,215,0,465,258,305,66,547,54,148"
total(6,1)="560,625,645,329,158,665,358,95,120,358,42,253"
total(7,1)="950,725,635,435,258,865,458,955,152,845,425,421"
total(8,1)="600,825,155,455,458,265,558,365,352,245,853,122"
total(9,1)="360,925,215,545,658,465,658,845,400,421,541,125"
total(10,1)="50,225,355,655,858,665,758,35,584,214,54,651"
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,350,"曲 线 统 计 图","时间","元")
%>
</body>
</html>

提示：您可以先修改部分代码再运行

[ 本帖最后由 jimstory 于 2008-6-25 16:19 编辑 ]

TOP

做西部数码代理.Cn1元国际45元 | 微软开发者工具互动网站

ciker

见习刺客

银牌会员

帖子: 1484
体力: 1901
威望: 5
当前: 山东烟台
离线: 8 天

专长 ASP,.NET,安全

2^# 大中小发表于 2008-7-23 16:07

很棒。

我也收藏了两个。

<%dim   total(7,3)   
  total(1,0)="中国经营报"   
  total(2,0)="招聘网"   
  total(3,0)="51Job"   
  total(4,0)="新民晚报"   
  total(5,0)="新闻晚报"   
  total(6,0)="南方周末"   
  total(7,0)="羊城晚报"   
    
  total(0,1)="#FF0000,1.5,1,2,公司1"'参数1线条的颜色，参数2线条的宽度，参数3线条的类型，参数
4转折点的类型,参数5线条名称   
  total(1,1)=200   
  total(2,1)=1200   
  total(3,1)=900   
  total(4,1)=600   
  total(5,1)=1222   
  total(6,1)=413   
  total(7,1)=800   
    
  total(0,2)="#0000FF,1,2,3,公司2"   
  total(1,2)=400   
  total(2,2)=500   
  total(3,2)=1040   
  total(4,2)=1600   
  total(5,2)=522   
  total(6,2)=813   
  total(7,2)=980   
    
  total(0,3)="#004D00,1,1,3,公司3"   
  total(1,3)=900   
  total(2,3)=890   
  total(3,3)=1240   
  total(4,3)=1300   
  total(5,3)=722   
  total(6,3)=833   
  total(7,3)=1280   
    
  %><html   xmlns:v="urn:schemas-microsoft-com:vml"   xmlns:o="urn:schemas-microsoft-
com:office:office">   
     
    
  <head>   
  <meta   http-equiv="Content-Type"   content="text/html;   charset=gb2312">   
  <title></title>   
  <style>   
  TD   { FONT-SIZE:   9pt}   
  </style></head>   
  <body   topmargin=5   leftmargin=0   scroll=AUTO>   
  <%call   table2(total,100,90,600,250,3)%>   
  </body>   
  </html>
<%   
  function   table2(total,table_x,table_y,all_width,all_height,line_no)   
    
  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<total(i,j)   then   temp1=total(i,j)   
  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   "<v:rect   id='_x0000_s1027'   alt=''   
style='position:absolute;left:"&table_x+left_width&"px;top:"&table_y&"px;width:"&all_width&"
px;height:"&all_height&"px;z-index:-1'   fillcolor='#9cf'   stroked='f'><v:fill   rotate='t' 
  angle='-45'   focus='100%'   type='gradient'/></v:rect>"   
  for   i=0   to   all_height-1   step   all_height/5   
  response.write   "<v:line   id='_x0000_s1027'   alt=''   
style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1'   
from='"&table_x+left_width+length&"px,"&table_y+all_height-length-i&"px'   
to='"&table_x+all_width+left_width&"px,"&table_y+all_height-length-i&"px'   
strokecolor='"&line_color&"'/>"   
  response.write   "<v:line   id='_x0000_s1027'   alt=''   
style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1'   from='"&table_x+
(left_width-15)&"px,"&table_y+i&"px'   to='"&table_x+left_width&"px,"&table_y+i&"px'/>"   
  response.write   ""   
  response.write   "<v:shape   id='_x0000_s1025'   type='#_x0000_t202'   alt=''   
style='position:absolute;left:"&table_x&"px;top:"&table_y+i&"px;width:"&left_width&"px;heigh
t:18px;z-index:1'>"   
  response.write   "<v:textbox   inset='0px,0px,0px,0px'><table   cellspacing='3'   
cellpadding='0'   width='100%'   height='100%'><tr><td   
align='right'>"&temp4&"</td></tr></table></v:textbox></v:shape>"   
  temp4=temp4-temp3/5   
  next   
  response.write   "<v:line   id='_x0000_s1027'   alt=''   
style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1'   
from='"&table_x+left_width&"px,"&table_y+all_height&"px'   
to='"&table_x+all_width+left_width&"px,"&table_y+all_height&"px'/>"   
  response.write   "<v:line   id='_x0000_s1027'   alt=''   
style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1'   
from='"&table_x+left_width&"px,"&table_y&"px'   
to='"&table_x+left_width&"px,"&table_y+all_height&"px'/>"   
    
  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   "<v:line   id=""_x0000_s1025""   alt=""""   
style='position:absolute;left:0;text-align:left;top:0;z-index:1'   
from="""&x1&"px,"&y1&"px""   to="""&x2&"px,"&y2&"px""   coordsize=""21600,21600""   
strokecolor="""&line_code(j,1)&"""   strokeweight="""&line_code(j,2)&""">"   
  select   case   line_code(j,3)   
  case   1   
  case   2   
  response.write   "<v:stroke   dashstyle='1   1'/>"   
  case   3   
  response.write   "<v:stroke   dashstyle='dash'/>"   
  case   4   
  response.write   "<v:stroke   dashstyle='dashDot'/>"   
  case   5   
  response.write   "<v:stroke   dashstyle='longDash'/>"   
  case   6   
  response.write   "<v:stroke   dashstyle='longDashDot'/>"   
  case   7   
  response.write   "<v:stroke   dashstyle='longDashDotDot'/>"   
  case   else   
  end   select   
  response.write   "</v:line>"&CHR(13)   
  select   case   line_code(j,4)   
  case   1   
  case   2   
  response.write   "<v:rect   id=""_x0000_s1027""   style='position:absolute;left:"&x1-
2&"px;top:"&y1-2&"px;width:4px;height:4px;   z-index:2'   fillcolor="""&line_code(j,1)&"""   
strokecolor="""&line_code(j,1)&"""/>"&CHR(13)   
  case   3   
  response.write   "<v:oval   id=""_x0000_s1026""   style='position:absolute;left:"&x1-
2&"px;top:"&y1-2&"px;width:4px;height:4px;z-index:1'   fillcolor="""&line_code(j,1)&"""   
strokecolor="""&line_code(j,1)&"""/>"&CHR(13)   
  end   select   
  next   
  select   case   line_code(j,4)   
  case   1   
  case   2   
  response.write   "<v:rect   id=""_x0000_s1027""   style='position:absolute;left:"&x2-
2&"px;top:"&y2-2&"px;width:4px;height:4px;   z-index:2'   fillcolor="""&line_code(j,1)&"""   
strokecolor="""&line_code(j,1)&"""/>"&CHR(13)   
  case   3   
  response.write   "<v:oval   id=""_x0000_s1026""   style='position:absolute;left:"&x2-
2&"px;top:"&y2-2&"px;width:4px;height:4px;z-index:1'   fillcolor="""&line_code(j,1)&"""   
strokecolor="""&line_code(j,1)&"""/>"&CHR(13)   
  end   select   
  next   
    
  for   i=1   to   total_no   
  response.write   "<v:line   id='_x0000_s1027'   alt=''   
style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1'   
from='"&table_x+left_width+all_width*(i-1)/total_no&"px,"&table_y+all_height&"px'   
to='"&table_x+left_width+all_width*(i-1)/total_no&"px,"&table_y+all_height+15&"px'/>"   
  response.write   ""   
  response.write   "<v:shape   id='_x0000_s1025'   type='#_x0000_t202'   alt=''   
style='position:absolute;left:"&table_x+left_width+all_width*(i-
1)/total_no&"px;top:"&table_y+all_height&"px;width:"&all_width/total_no&"px;height:18px;z-
index:1'>"   
  response.write   "<v:textbox   inset='0px,0px,0px,0px'><table   cellspacing='3'   
cellpadding='0'   width='100%'   height='100%'><tr><td   align='left'>"&total(i,0)
&"</td></tr></table></v:textbox></v:shape>"   
  next   
    
  tb_height=30   
  response.write   "<v:rect   id='_x0000_s1025'   
style='position:absolute;left:"&table_x+all_width+20&"px;top:"&table_y&"px;width:100px;heigh
t:"&line_no*tb_height+20&"px;z-index:1'/>"   
  for   i=1   to   line_no   
  response.write   "<v:shape   id='_x0000_s1025'   type='#_x0000_t202'   alt=''   
style='position:absolute;left:"&table_x+all_width+25&"px;top:"&table_y+10+(i-1)
*tb_height&"px;width:60px;height:"&tb_height&"px;z-index:1'>"   
  response.write   "<v:textbox   inset='0px,0px,0px,0px'><table   cellspacing='3'   
cellpadding='0'   width='100%'   height='100%'><tr><td   align='left'>"&line_code(i,5)
&"</td></tr></table></v:textbox></v:shape>"   
  response.write   "<v:rect   id='_x0000_s1040'   alt=''   
style='position:absolute;left:"&table_x+all_width+80&"px;top:"&table_y+10+(i-1)
*tb_height+4&"px;width:30px;height:20px;z-index:1'   fillcolor='"&line_code(i,1)&"'><v:fill  
 color2='"&line_code(i,1)&"'   rotate='t'   focus='100%'   type='gradient'/></v:rect>"   
  next   
    
  end   function   
  %>

提示：您可以先修改部分代码再运行

金榜题名www.jinbangtiming.net 论坛十大菜子

TOP

美橙vps独立IP月付189元 | 千千静听皮肤设计大赛

ciker

见习刺客

银牌会员

帖子: 1484
体力: 1901
威望: 5
当前: 山东烟台
离线: 8 天

专长 ASP,.NET,安全

3^# 大中小发表于 2008-7-23 16:10

<% 
dim total(12,2) 
total(1,1)=56 
total(2,1)=7 
total(3,1)=-7 
total(4,1)=0 
total(5,1)=16 
total(6,1)=10 
total(7,1)=14 
total(8,1)=7 
total(9,1)=9 
total(10,1)=7 
total(11,1)=11 
total(12,1)=14 
total(1,2)="地理" 
total(2,2)="化学" 
total(3,2)="历史" 
total(4,2)="萝卜课" 
total(5,2)="美术" 
total(6,2)="体育" 
total(7,2)="天文" 
total(8,2)="物理" 
total(9,2)="音乐" 
total(10,2)="英语" 
total(11,2)="政治" 
total(12,2)="自然" 
%> 
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office"> 
 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title></title> 
<style> 
TD { FONT-SIZE: 9pt} 
</style></head> 
<body topmargin=5 leftmargin=0 scroll=AUTO> 
<%call table1(total,200,20,10,20,400,200,"A")%> 
<%call table1(total,200,320,10,15,400,250,"B")%> 
</body> 
</html> 
<% 
function table1(total,table_x,table_y,thickness,table_width,all_width,all_height,table_type) 
'参数含义(传递的数组，横坐标，纵坐标，柱子的厚度，柱子的宽度，图表的宽度，图表的高度,图表的类型) 
'纯ASP代码生成图表函数1——柱状图 
'作者：龚鸣(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com 
'本人非常愿意和ASP,VML,FLASH的爱好者在HTTP://www.ilisten.cn进行交流和探讨 
'非常感谢您使用这个函数，请您使用和转载时保留版权信息，这是对作者工作的最好的尊重。 
dim tb_color(14,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(8,1)="#d1ffd1" 
tb_color(9,1)="#ffbbbb" 
tb_color(10,1)="#ffe3bb" 
tb_color(11,1)="#cff4f3" 
tb_color(12,1)="#d9d9e5" 
tb_color(13,1)="#ffc7ab" 
tb_color(14,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" 
tb_color(8,2)="#00ff00" 
tb_color(9,2)="#ff0000" 
tb_color(10,2)="#ff9900" 
tb_color(11,2)="#33cccc" 
tb_color(12,2)="#666699" 
tb_color(13,2)="#993300" 
tb_color(14,2)="#99cc00" 
line_color="#69f" 
left_width=70 
length=thickness/2 
total_no=ubound(total,1) 
temp1=0 
temp6=0 
for i=1 to total_no 
if temp1<total(i,1) then temp1=total(i,1) 
if temp6>total(i,1) then temp6=total(i,1) 
next 
'if temp6=1 then 
'else'出现值小于0的情况 
temp1=int(temp1) 
if temp6>=0 then 
temp6=int(temp6) 
if temp6>10 then 
temp2=mid(cstr(temp6),2,1) 
if temp2>4 then 
temp3=(int(temp6/(10^(len(cstr(temp6))-1)))-1)*10^(len(cstr(temp6))-1) 
else 
temp3=(int(temp6/(10^(len(cstr(temp6))-1)))-0.5)*10^(len(cstr(temp6))-1) 
end if 
temp6=temp3 
else 
temp6=0 
end if 
' if temp6-10<0 then temp6=0 else temp6=temp6-10 
else 
temp6=int(0-temp6) 
if temp6>10 then 
temp2=mid(cstr(temp6),2,1) 
if temp2>4 then 
temp3=(int(temp6/(10^(len(cstr(temp6))-1)))+1)*10^(len(cstr(temp6))-1) 
else 
temp3=(int(temp6/(10^(len(cstr(temp6))-1)))+0.5)*10^(len(cstr(temp6))-1) 
end if 
temp6=0-temp3 
else 
temp6=-10 
end if 
end if 
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 "<v:rect id='_x0000_s1027' alt='' style='position:absolute;left:"&table_x+left_width&"px;top:"&table_y&"px;width:"&all_width&"px;height:"&all_height&"px;z-index:-1' fillcolor='#9cf' stroked='f'><v:fill rotate='t' angle='-45' focus='100%' type='gradient'/></v:rect>" 
select case table_type 
case "A" 
for i=0 to all_height step all_height/5 
if i<>all_height then response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width+length&"px,"&table_y+all_height-length-i&"px' to='"&table_x+all_width+left_width&"px,"&table_y+all_height-length-i&"px' strokecolor='"&line_color&"'/>" 
if i<>all_height then response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width&"px,"&table_y+all_height-length-i&"px' to='"&table_x+left_width+length&"px,"&table_y+all_height-i&"px' strokecolor='"&line_color&"'/>" 
response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+(left_width-15)&"px,"&table_y+i&"px' to='"&table_x+left_width&"px,"&table_y+i&"px'/>" 
response.write "" 
response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x&"px;top:"&table_y+i&"px;width:"&left_width&"px;height:18px;z-index:1'>" 
response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='right'>"&temp4&"</td></tr></table></v:textbox></v:shape>" 
temp4=temp4-(temp3-temp6)/5 
next 
response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width+length&"px,"&table_y&"px' to='"&table_x+left_width+length&"px,"&table_y+all_height-length&"px' strokecolor='"&line_color&"'/>" 
response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x+left_width-50&"px;top:"&table_y-20&"px;width:100px;height:18px;z-index:1'>" 
response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='center'>纵坐标</td></tr></table></v:textbox></v:shape>" 
response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x+left_width+all_width&"px;top:"&table_y+all_height-9&"px;width:100px;height:18px;z-index:1'>" 
response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='left'>横坐标</td></tr></table></v:textbox></v:shape>" 
line0=(temp3/(temp3-temp6))*all_height 
response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:2' from='"&table_x+left_width&"px,"&table_y+line0&"px' to='"&table_x+all_width+left_width&"px,"&table_y+line0&"px'></v:line>" 
response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width&"px,"&table_y+line0-length&"px' to='"&table_x+left_width+length&"px,"&table_y+line0&"px' strokecolor='"&line_color&"'/>" 
response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width+length&"px,"&table_y+line0-length&"px' to='"&table_x+all_width+left_width&"px,"&table_y+line0-length&"px' strokecolor='"&line_color&"'/>" 
' response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+(left_width-15)&"px,"&table_y+line0&"px' to='"&table_x+left_width&"px,"&table_y+line0&"px'/>" 
' response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x-15&"px;top:"&table_y+line0-10&"px;width:"&left_width&"px;height:18px;z-index:1'>" 
' response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='right'>0</td></tr></table></v:textbox></v:shape>" 
table_space=(all_width-table_width*total_no)/total_no 
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 "<v:rect id='_x0000_s1025' alt='' style='position:absolute;" 
response.write "left:"&temp_space&"px;top:" 
if total(i,1)>0 then 
response.write table_y+line0-(total(i,1)/(temp3-temp6))*all_height 
else 
response.write table_y+line0 
end if 
response.write "px;width:"&table_width&"px;height:"&all_height*(abs(total(i,1))/(temp3-temp6)) 
response.write "px;z-index:1' fillcolor='"&tb_color(i,2)&"'>" 
response.write "<v:fill color2='"&tb_color(i,1)&"' rotate='t' type='gradient'/>" 
response.write "<o:extrusion v:ext='view' backdepth='"&thickness&"pt' color='"&tb_color(i,2)&"' on='t'/>" 
response.write "</v:rect>" 
response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&temp_space&"px;top:" 
if total(i,1)>0 then 
response.write table_y+line0-(total(i,1)/(temp3-temp6))*all_height-table_width 
else 
response.write table_y+line0-table_width 
end if 
response.write "px;width:"&table_space+15&"px;height:18px;z-index:1'>" 
response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='center'>"&total(i,1)&"</td></tr></table></v:textbox></v:shape>" 
response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&temp_space-table_space/2&"px;top:"&table_y+all_height+1&"px;width:"&table_space+table_width&"px;height:18px;z-index:1'>" 
response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='center'>"&total(i,2)&"</td></tr></table></v:textbox></v:shape>" 
next 
Case "B" 
table_space=(all_height-table_width*total_no)/total_no 
temp4=temp6 
response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width&"px,"&table_y+all_height&"px' to='"&table_x+left_width&"px,"&table_y+all_height+15&"px'/>" 
response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x+left_width-left_width&"px;top:"&table_y+all_height&"px;width:"&left_width&"px;height:18px;z-index:1'>" 
response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='right'>"&temp4&"</td></tr></table></v:textbox></v:shape>" 
temp4=temp6+(temp3-temp6)/5 
response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width+length&"px,"&table_y+all_height-length&"px' to='"&table_x+left_width+all_width&"px,"&table_y+all_height-length&"px' strokecolor='"&line_color&"'/>" 
for i=0 to all_width-1 step all_width/5 
response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width+i&"px,"&table_y+all_height-length&"px' to='"&table_x+left_width+length+i&"px,"&table_y+all_height&"px' strokecolor='"&line_color&"'/>" 
response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width+length+i&"px,"&table_y+all_height-length&"px' to='"&table_x+left_width+length+i&"px,"&table_y&"px' strokecolor='"&line_color&"'/>" 
response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width+i+all_width/5&"px,"&table_y+all_height&"px' to='"&table_x+left_width+i+all_width/5&"px,"&table_y+all_height+15&"px'/>" 
response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x+left_width+i+all_width/5-left_width&"px;top:"&table_y+all_height&"px;width:"&left_width&"px;height:18px;z-index:1'>" 
response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='right'>"&temp4&"</td></tr></table></v:textbox></v:shape>" 
temp4=temp4+(temp3-temp6)/5 
next 
for i=1 to total_no 
temp_space=table_space/2+table_space*(i-1)+table_width*(i-1) 
if total(i,1)>=0 then 
response.write "<v:rect id='_x0000_s1025' alt='' style='position:absolute;left:"&table_x+left_width+all_width*abs(temp6)/(temp3-temp6)&"px;top:"&table_y+temp_space&"px;width:"&all_width*temp3/(temp3-temp6)*(total(i,1)/temp3)&"px;height:"&table_width&"px;z-index:1' fillcolor='"&tb_color(i,2)&"'>" 
response.write "<v:fill color2='"&tb_color(i,1)&"' rotate='t' angle='-90' focus='100%' type='gradient'/>" 
response.write "<o:extrusion v:ext='view' backdepth='"&thickness&"pt' color='"&tb_color(i,2)&"' on='t'/>" 
response.write "</v:rect>" 
response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x+left_width+all_width*abs(temp6)/(temp3-temp6)+all_width*temp3/(temp3-temp6)*(total(i,1)/temp3)+thickness/2&"px;top:"&table_y+temp_space&"px;width:"&table_space+15&"px;height:18px;z-index:1'>" 
response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='center'>"&total(i,1)&"</td></tr></table></v:textbox></v:shape>" 
else 
response.write "<v:rect id='_x0000_s1025' alt='' style='position:absolute;left:"&table_x+left_width+all_width*abs(temp6)/(temp3-temp6)-all_width*temp3/(temp3-temp6)*abs(total(i,1)/temp3)&"px;top:"&table_y+temp_space&"px;width:"&all_width*temp3/(temp3-temp6)*abs(total(i,1)/temp3)&"px;height:"&table_width&"px;z-index:1' fillcolor='"&tb_color(i,2)&"'>" 
response.write "<v:fill color2='"&tb_color(i,1)&"' rotate='t' angle='-90' focus='100%' type='gradient'/>" 
response.write "<o:extrusion v:ext='view' backdepth='"&thickness&"pt' color='"&tb_color(i,2)&"' on='t'/>" 
response.write "</v:rect>" 
response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x+left_width+all_width*abs(temp6)/(temp3-temp6)+thickness/2&"px;top:"&table_y+temp_space-table_space/4&"px;width:"&table_space+30&"px;height:18px;z-index:1'>" 
response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='center'>"&total(i,1)&"</td></tr></table></v:textbox></v:shape>" 
end if 
response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x&"px;top:"&table_y+temp_space&"px;width:"&left_width&"px;height:18px;z-index:1'>" 
response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='right'>"&total(i,2)&"</td></tr></table></v:textbox></v:shape>" 
response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width+all_width*abs(temp6)/(temp3-temp6)&"px,"&table_y&"px' to='"&table_x+left_width+all_width*abs(temp6)/(temp3-temp6)&"px,"&table_y+all_height&"px'></v:line>" 
next 
case else 
end select 
response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width&"px,"&table_y+all_height&"px' to='"&table_x+all_width+left_width&"px,"&table_y+all_height&"px'><v:stroke endarrow='block'/></v:line>" 
response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width&"px,"&table_y&"px' to='"&table_x+left_width&"px,"&table_y+all_height&"px'><v:stroke endarrow='block'/></v:line>" 
'end if 
end function 
%>

提示：您可以先修改部分代码再运行

金榜题名www.jinbangtiming.net 论坛十大菜子

TOP

activeTechPros 共享IT行业薪资信息 | 《疯狂的程序员》劲爆上市

jimstory [楼主]

西瓜别

中级会员

帖子: 156
体力: 330
威望: 0
当前: 上海徐汇
离线: 1 天

专长 网页设计,ASP,Access

4^# 大中小发表于 2008-7-24 08:57

不是看谁收藏的好啊,,,是说有些点没有数据的时候,要不显示曲线啊...

TOP

还在为头像烦恼?还在为不能关注好友动态烦忧?快来蓝色理想家园吧!

outofthink

新手上路

帖子: 6
体力: 12
威望: 0
离线: 29 天

5^# 大中小发表于 2008-7-24 14:06

运行代码后怎么么什么效果？

TOP

jimstory [楼主]

西瓜别

中级会员

帖子: 156
体力: 330
威望: 0
当前: 上海徐汇
离线: 1 天

专长 网页设计,ASP,Access

6^# 大中小发表于 2008-9-29 16:34

COPY下来,保存成 ASP文件,在IIS下OK的啊.

TOP

omeweb

橘子香水

中级会员

帖子: 472
体力: 423
威望: 5
当前: 福建福州
离线: 4 天

专长 .NET,C#,MSSQL

7^# 大中小发表于 2008-9-29 22:10

VML FF 不支持哈

http://www.omeweb.com

TOP