ASPは、列型のボディ、ラインチャート、パイチャートソースコードを生成します
<％
functionTable2（total、table_x、table_y、all_width、all_height、line_no）
'パラメーターの意味（合格配列、水平座標、垂直座標、チャート幅、チャートの高さ、行数）
'純粋なASPコードはチャート機能2-行チャートを生成します
著者：Gong Ming（PasswordGM）QQ：25968152MSN：[email protected]：[email protected]
「私はhttp://topclouds.126.comでASP、VML、およびフラッシュ愛好家とコミュニケーションをとり、話し合いたいと思っています。
'バージョン1.0最終修正日2003-8-11
「この機能を使用してくれてありがとう。使用および転載の際には、著作権情報を保管してください。これは、著者の仕事に対する最高の敬意です。
line_color = "＃69f"
rept_width = 70
total_no = ubund（total、1）
TEMP1 = 0
fori = 1tototal_no
forj = 1toline_no
iftemp1 <合計（i、j）thentemp1 =合計（i、j）
次
次
temp1 = int（temp1）
iftemp1> 9then
temp2 = mid（cstr（temp1）、2,1）
iftemp2> 4then
temp3 =（int（temp1/（10^（len（cstr（temp1）））-1））+1）*10^（len（cstr（temp1））-1）
それ以外
temp3 =（int（temp1/（10^（len（cstr（temp1）））-1））+0.5）*10^（len（cstr（temp1））-1）
endif
それ以外
IFTEMP1> 4THENTEMP3 = 10ELSETEMP3 = 5
endif
TEMP4 = TEMP3
Response.Write "<v：rectid = '_ 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：fillrotate =' t'Angle = '-45'focus =' 100％ 'type =' gradient '/> </v：rect>"
fori = 0toall_height-1stepall_height/5
Response.Write "<v：lineid = '_ x0000_S1027'Alt =' 'style =' position：absolute; left：0; text-align：left; top：0; flip：y; z-index：-1'from = '"＆table_x+left_width+le ngth＆ "px"、＆table_y+all_height-length-i＆ "pxo = '"＆table_x+all_width+left_width＆ "px、＆table_y+all_height-length-i＆" px'strokecolor =' "＆line_color＆" '/> "
Response.Write "<v：lineid = '_ 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 ='"＆left_width＆ "px、"＆table_y+i＆ "px '/>"
Response.Write ""
respons.write "<v：shapeId = '_ x0000_S1025'type ='＃_ x0000_t202'Alt = '' style = 'position：absolute; left："＆table_x＆ "px; top："＆ "px; width："＆left_width＆ "px; z-didex：1'>"
respons.write "<v：textboxinset = '0px、0px、0px、0px'> <tablecellspacing = '3'cellpadding =' 0'width = '100％' height = '100％'> <tdalign = 'right'>"＆temp4＆ "</td>
TEMP4 = TEMP4-TEMP3/5
次
Response.Write "<v：lineid = '_ x0000_S1027'Alt =' 'style =' position：absolute; left：0; text-align：left; top：0; flip：y; z-index：-1'fro m = '"＆table_x+left_width＆" px "、＆table_y+all_height＆" px'to =' "＆table_x+all_width+left_width＆" px、 "＆table_y+all_height＆" px '/> "