ASP는 열 모양의 몸체, 라인 차트, 파이 차트 소스 코드를 생성합니다.

<%

Function Table2 (Total, Table_X, Table_Y, All_Width, All_Height, Line_No)

'매개 변수 의미 (전달 된 배열, 수평 좌표, 수직 좌표, 차트 너비, 차트 높이, 선 수)

'순수한 ASP 코드는 차트 기능 2 라인 차트를 생성합니다

'저자 : Gong Ming (passwordgm) QQ : 25968152 MSN : [email protected] 이메일 : [email protected]

'http://topclouds.126.com에서 ASP, VML 및 플래시 애호가와 의사 소통하고 토론 할 의향이 있습니다.

'버전 1.0 마지막 수정 날짜 2003-8-11

'이 기능을 사용해 주셔서 대단히 감사합니다. 사용 및 재 인쇄시 저작권 정보를 보관하십시오. 이것은 저자의 작품에 대한 최선의 존중입니다.

line_color =#69f

LEFT_WIDTH = 70

Total_no = Ubund (Total, 1)

temp1 = 0

I = 1에서 Total_no의 경우

j = 1에서 line_no의 경우

temp1 <total (i, j) 인 경우 temp1 = total (i, j)

다음

다음

temp1 = int (temp1)

Temp1> 9라면

temp2 = mid (cstr (temp1), 2,1)

Temp2> 4라면

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)

끝 If

또 다른

temp1> 4 인 경우 temp3 = 10 else temp3 = 5

끝 If

temp4 = temp3

response.write <v : rect id = '_X0000_S1027'Alt = ''style = '위치 : 절대; 왼쪽; 왼쪽 : & table_x left_width & px; top : & table_y & px; 너비 : & all_width & px; 높이; 't'angle = '-45'focus = '100%'유형 = '그라디언트'/> </v : rect>

i = 0에서 all_height-1에 대해 All_Height/5

response.write <v : line id = '_x0000_s1027'alt = ''style = '위치 : 절대; 왼쪽; 왼쪽 : 0; 텍스트-알림 : 왼쪽; 상단; flip : y; z-index : -1'from = '& table_width length, & table_height-length'to = & table_x all_x all_x left_width & px, & table_y all_height-length-i & px 'strokecolor ='& line_color & '/>

응답 <v : line id = '_x0000_s1027'alt = ''style = '위치 : 절대; 왼쪽; 왼쪽 : 0; 텍스트-알림 : 왼쪽; 상단; flip : y; z-index : -1'from = '& table_x (left_width-15) & px, & px _'& px '/px & px, & px, & px, & px.

응답. 쓰기

응답 <v : shape id = '_x0000_s1025'type = '#_x0000_t202'alt = 'style ='position : 절대; 왼쪽 : & table_x & px; top : & table_y i & px; 너비 : & left_width & px; z-index : 1 '>

response.write <v : 텍스트 상자 삽입 = '0px, 0px, 0px, 0px'> <테이블 셀 패싱 = '3'CellPadding = '0'width = '100%'height = '100%'> <tr> <td align = 'right'> & temp4 & </td> </table> </v : textbox> </v : :

temp4 = temp4-temp3/5

다음

응답 <v : line id = '_x0000_s1027'alt = ''style = '위치 : 절대; 왼쪽; 왼쪽 : 0; 텍스트-알림 : 왼쪽; 상단 : 0; flip : y; z-index : -1'from = '& table_x left_x'& table_x all_width & px '& table_x all_width & px'& table_x. all_height & px '/>

응답 <V : line id = '_x0000_s1027'alt = ''style = '위치 : 절대; 왼쪽; 왼쪽 : 0; 텍스트-알리 지정 : 왼쪽; 상단; flip : y; z-index : -1'from = '& table_x left_width & px, & table_x left_width & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px.

dim line_code

redim line_code (line_no, 5)

i = 1 to line_no의 경우

line_temp = split (총 (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)

다음

j = 1에서 line_no의 경우

I = 1에서 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)

응답 <v : line id = _x0000_s1025 alt = style = 'style ='위치 : 절대; 왼쪽; 왼쪽 : 0; 텍스트-정렬 : 왼쪽; 상단; Z-index : 1 'from = & x1 & px, & y1 & px to = & y2 & px, & y2 & px coderize = 21600,21600 Strokecolor = & line_code (j, 1) & 스트로크 웨이트 = & line_code (j, 2) &>

Case Line_code (J, 3) 선택

사례 1

사례 2

응답 <V : 스트로크 대시 스타일 = '1 1'/>

사례 3

response.write <V : 스트로크 대시 스타일 = 'Dash'/>

사례 4

response.write <V : 스트로크 대시 스타일 = 'DashDot'/>

사례 5

response.write <V : 스트로크 대시 스타일 = 'longdash'/>

사례 6

response.write <V : 스트로크 대시 스타일 = 'longdashdot'/>

사례 7

response.write <V : 스트로크 대시 스타일 = 'longdashdotdot'/>

다른 경우

종료 선택

응답 </v : line> & chr (13)

Case Line_code (J, 4)를 선택하십시오.

사례 1

사례 2

응답 <V : rect id = _X0000_S1027 스타일 = '위치 : 절대; 왼쪽 : & x1-2 & px; 상단 : & y1-2 & px; 너비 : 4px;

사례 3

응답 <V : 타원형 ID = _X0000_S1026 스타일 = '위치 : 절대; 왼쪽 : & x1-2 & px; 상단 : & y1-2 & px; 너비 : 4px; 높이 : 4px; z-index : 1'fillcolor = & line_code (j, 1) & strokecolor = & line_code (j, 1) &//>.

종료 선택

다음

Case Line_code (J, 4)를 선택하십시오.

사례 1

사례 2

응답 <V : rect id = _X0000_S1027 스타일 = '위치 : 절대; 왼쪽 : & x2-2 & px; 상단 : & y2-2 & px; 너비 : 4px; 높이 : 4px; z-index : 2'fillcolor = & line_code (j, 1) & strokecolor = & line_code (J, 13).

사례 3

응답 <V : 타원형 ID = _X0000_S1026 스타일 = '위치 : 절대; 왼쪽 : & x2-2 & px; 상단 : & y2-2 & px; 너비 : 4px; 높이 : 4px; z-index : 1'fillcolor = & line_code (j, 1) & strokecolor = & line_code (J, 13).

종료 선택

다음

I = 1에서 Total_no의 경우

응답 <v : line id = '_x0000_s1027'alt = ''style = '위치 : 절대; 왼쪽; 왼쪽 : 0; 텍스트-알림 : 왼쪽; 상단; flip : y; z-index : -1'from = '& table_x all_width*(i-1)/total_no & px, & table_y all_highight & px el the the the wx the whiigh a all_hight. All_width*(I-1)/Total_no & PX, & table_y all_height 15 & px '/>

응답. 쓰기

응답 <V : 모양 id = '_X0000_S1025'type = '#_X0000_T202'Alt = 'Style ='위치 : 절대; 왼쪽 : & table_x left_width all_width*(i-1)/total_no & px; top : & table_y all_height & px; 너비 : & all_width/total_no & px; 높이 : 18px; z-index : 1 '>

response.write <v : 텍스트 박스 inset = '0px, 0px, 0px, 0px'> <table cellPacing = '3'cellPadding = '0'width = '100%'height = '100%'> <tr> <td align = 'left'> & total (i, 0) & </td> </table> </v : </v : : </td> </v :

다음

tb_height = 30

response.write <v : rect id = '_X0000_S1025'Style = 'Position :'Position : Absolute; Left : & table_x all_width 20 & px; top : & table_y & px; 너비 : 100px;

i = 1 to line_no의 경우

응답 <v : shape id = '_x0000_s1025'type = '#_x0000_t202'alt = 'style ='position : 절대; 왼쪽 : & table_x all_width 25 & px; top : & table_y 10 (i-1)*tb_height & px; Width : 60px;

response.write <v : 텍스트 박스 inset = '0px, 0px, 0px, 0px'> <테이블 셀 패팅 = '3'cellPadding = '0'width = '100%'height = '100%'> <tr> <td align = 'left'> & line_code (i, 5) & </td> </td> </vbox> </vbox> </vbox>

응답 <v : rect id = '_x0000_S1040'alt = ''style = '위치 : 절대; 왼쪽; 왼쪽 : & table_x all_width 80 & px; top : & table_y 10 (i-1)*tb_height 4 & px; width : 30px; height : 20px; z-index : 1'fillcode (i, 1) 및 color2 = '& line_code (i, 1) &'rotate = 't'focus = '100%'type = 'Gradient'/> </v : rect>

다음

엔드 기능

%>

<%

기능 table1 (Total, Table_X, Table_Y, 두께, table_width, all_width, all_height, table_type)

'매개 변수 의미 (전달 된 배열, 수평 좌표, 수직 좌표, 열 두께, 열 폭, 차트 너비, 차트 높이, 차트 유형)

'순수 ASP 코드 생성 차트 기능 1- 막대 차트

'저자 : Gong Ming (passwordgm) QQ : 25968152 MSN : [email protected] 이메일 : [email protected]

'http://topclouds.126.com에서 ASP, VML 및 플래시 애호가와 의사 소통하고 토론 할 의향이 있습니다.

'버전 2.0 마지막 수정 날짜 2003-7-22

'이 기능을 사용해 주셔서 대단히 감사합니다. 사용 및 재 인쇄시 저작권 정보를 보관하십시오. 이것은 저자의 작품에 대한 최선의 존중입니다.

DIM TB_COLOR (7,2)

tb_color (1,1) =#d1ffd1

tb_color (2,1) =#ffbbbbb

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) =#33CCCCC

TB_COLOR (5,2) =#666699

TB_COLOR (6,2) =#993300

TB_COLOR (7,2) =#99CC00

line_color =#69f

LEFT_WIDTH = 70

길이 = 두께/2

Total_no = Ubund (Total, 1)

temp1 = 0

I = 1에서 Total_no의 경우

temp1 <total (i, 1) 인 경우 temp1 = total (i, 1)

다음

temp1 = int (temp1)

Temp1> 9라면

temp2 = mid (cstr (temp1), 2,1)

Temp2> 4라면

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)

끝 If

또 다른

temp1> 4 인 경우 temp3 = 10 else temp3 = 5

끝 If

temp4 = temp3

response.write <!-[GTE VML 1]> <v : rect id = '_X0000_S1027'Alt = ''style = '위치 : 절대; 왼쪽 : & table_x left_width & px; top : & table_y & px; width : & all_width & px; stroked = 'f'> <v : 채우기 회전 = 't'angle = '-45'focus = '100%'type = 'Gradient'// </v : rect> <! [endif]->

response.write <!-[if gte vml 1]> <v : line id = '_x0000_s1027'alt = ''style = '위치 : 절대; 왼쪽 : 0; 텍스트-앨범 : 왼쪽; 왼쪽; flip : y; z-index : -1'from = '& table_x left_width & px, & table_y all_y all_height & px'to px ' left_width & px, & table_y all_height & px '/> <! [endif]->

response.write <!-[GTE VML 1]> <V : 선 ID = '_X0000_S1027'Alt = ''style = '위치 : 절대; 왼쪽 : 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 '/> <! [endif]->

CASE TABLE_TYPE를 선택하십시오

사례 A

table_space = (all_width-table_width*total_no)/total_no

response.write <!-[if gte vml 1]> <v : line id = '_x0000_S1027'Alt = ''style = '위치 : 절대; 왼쪽 : 0; 텍스트-알리그 : 왼쪽; 왼쪽; 왼쪽; flip : y; z-index : -1'from = '& table_x left_width 길이 & px'to = & table_y & px '& table_y & px. 길이 & px, & table_y all_height-length & px 'strokecolor ='& line_color & '/> <! [endif]->

i = 0에서 all_height-1에 대해 All_Height/5

response.write <!-[GTE VML 1]> <V : 선 ID = '_X0000_S1027'Alt = ''style = '위치 : 절대; 왼쪽 : 0; 텍스트-앨범 : 왼쪽; 왼쪽; flip : y; z-index : -1'from = '& table_x left_width & px, & table_y all_y all_y px ele x & px ele x & px elex left_width 길이 & px, & table_y all_height-i & px 'strokecolor ='& line_color & '/> <! [endif]->

response.write <!-[GTE VML 1]> <V : 선 ID = '_X0000_S1027'Alt = ''style = '위치 : 절대; 왼쪽 : 0; 텍스트-앨범 : 왼쪽; 왼쪽; flip : y; z-index : -1'from = '& table_x left_width 길이 & px, & table_y all_y all_y all_y all_y all_y. all_width left_width & px, & table_y all_height-length-i & px 'strokecolor ='& line_color & '/> <! [endif]->

응답 <!-[if gte vml 1]> <v : line id = '_x0000_s1027'alt = ''style = '위치 : 절대; 왼쪽 : 0; 텍스트-앨범 : 왼쪽; 왼쪽; flip : y; z-index : -1'from = '& table_x (left_width-15) & px, & px'to = & px 'to = & px'to = & px. left_width & px, & table_y i & px '/> <! [endif]->

응답 <!-[gte vml 1]>

응답 <v : shape id = '_x0000_s1025'type = '#_x0000_t202'alt = 'style ='position : 절대; 왼쪽 : & table_x & px; top : & table_y i & px; 너비 : & left_width & px; z-index : 1 '>

response.write <v : textbox inset = '0px, 0px, 0px, 0px'> <table cellPacing = '3'cellPadding = '0'width = '100%'height = '100%'> <tr> <td align = 'right'> & temp4 & </td> </table> </v : textbox> </v :

temp4 = temp4-temp3/5

다음

I = 1에서 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 = '위치 : 절대; 왼쪽 :

response.write temp_space

응답. px; 상단 :

response.write table_y all_height*(1- (총 (I, 1)/temp3)))

응답. px; 너비 : & table_width & px; 높이 : & all_height*(Total (i, 1)/temp3) & px; z-index : 1 'fillColor ='& tb_color (i, 2) & '>

response.write <v : 채우기 color2 = '& tb_color (i, 1) &'rotate = 't'type = 'Gradient'/>

response.write <o : 압출 v : ext = '보기'backdepth = '& pt'color = '& tb_color (i, 2) &'on = 't'/>

응답 </v : rect>

응답 <V : 모양 id = '_X0000_S1025'type = '#_X0000_T202'Alt = ''style = '위치 : 절대; 왼쪽 : & temp_space & px; top : & table_y all_height*(1- (총 (i, 1)/temp3))-table_width & px; 15 & px; 높이 : 18px; z-index : 1 '>

response.write <v : 텍스트 박스 inset = '0px, 0px, 0px, 0px'> <table cellPacing = '3'cellPadding = '0'width = '100%'height = '100%'> <tr> <td align = 'center'> & total (i, 1) & </td> </tab> </v : </v : : </td> </v :

응답 <v : shape id = '_x0000_s1025'type = '#_x0000_t202'alt = 'style ='위치 : 절대; 왼쪽 : & temp_space-table_space/2 & px; top : & table_y all_height 1 & px; width : & table_space & px;

response.write <v : 텍스트 박스 inset = '0px, 0px, 0px, 0px'> <table cellPacing = '3'cellPadding = '0'width = '100%'height = '100%'> <tr> <td align = 'center'> & total (i, 2) & </td> </table> </v : </v : : shape>

다음

사례 b

table_space = (all_height-table_width*total_no)/total_no

response.write <!-[GTE VML 1]> <V : 선 ID = '_X0000_S1027'Alt = ''style = '위치 : 절대; 왼쪽 : 0; 텍스트-앨범 : 왼쪽; 왼쪽; flip : y; z-index : -1'from = '& table_x left_width 길이 & px, & table_y all_y all_y all_y LEFT_WIDTH ALL_WIDTH & PX, & TABLE_Y ALL_HEIGHT-LENGTH & PX 'StrokeColor ='& line_color & '/> <! [endif]->

i = 0에서 all_width-1에 대해 all_width/5

response.write <!-[GTE VML 1]> <V : 선 ID = '_X0000_S1027'Alt = ''style = '위치 : 절대; 왼쪽 : 0; 텍스트-앨범 : 왼쪽; 왼쪽; flip : y; z-index : -1'from = '& table_x left_width i & px, & table_y all_y all_y Left_width 길이 i & px, & table_y all_height & px 'strokecolor ='& line_color & ' /> <! [endif]->

response.write <!-[gte vml 1]> <v : line id = '_x0000_s1027'alt = ''style = '위치 : 절대; 왼쪽 : 0; 텍스트-앨범 : 왼쪽; 왼쪽; flip : y; z-index : -1'from = '& table_x left_width 길이 i & px, & table_y all_y all length & px el to the Left_width 길이 i & px, & table_y & px 'strokecolor ='& line_color & ' /> <! [endif]->

response.write <!-[GTE VML 1]> <V : 선 ID = '_X0000_S1027'Alt = ''Style = '위치 : 절대; 왼쪽 : 0; 텍스트-앨범 : 왼쪽; 왼쪽; flip : 0; z-index : -1'from = '& table_x left_width i all_width/5 & px, & table_y all_y all_y all_y '& table_x left_width i all_width/5 & px, & table_y all_height 15 & px'/> <! [endif]->

응답 <!-[gte vml 1]>

response.write <v : shape id = '_X0000_S1025'type = '#_X0000_T202'Alt = '스타일 ='위치 : 절대; 왼쪽 : & table_x left_width I all_width/5-left_width & px; top : & table_y all_height & px; '>

response.write <v : textbox inset = '0px, 0px, 0px, 0px'> <table cellPacing = '3'cellPadding = '0'width = '100%'height = '100%'> <tr> <td align = 'right'> & temp4 & </td> </table> </v : textbox> </v :

temp4 = temp4-temp3/5

다음

I = 1에서 Total_no의 경우

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

response.write <v : rect id = '_x0000_s1025'alt = ''style = '위치 : 절대; 왼쪽 :

response.write table_x left_width

응답. px; 상단 :

응답. TABLE_Y TEMP_SPACE

응답. px; 너비 : & all_width*(Total (i, 1)/temp3) & px; 높이 : & table_width & px; z-index : 1 'fillColor ='& tb_color (i, 2) & '>

response.write <v : 채우기 color2 = '& tb_color (i, 1) &'rotate = 't'angle = '-90'focus = '100%'유형 = 'Gradient'/>

response.write <o : 압출 v : ext = '보기'backdepth = '& pt'color = '& tb_color (i, 2) &'on = 't'/>

응답 </v : rect>

응답 <V : 모양 id = '_x0000_S1025'type = '#_X0000_T202'alt = 'style ='위치 : 절대; 왼쪽 : & table_x left_width all_width*(Total (i, 1)/temp3) 두께/2 & px; top : & table_y tempace & px; 15 & px; 높이 : 18px; z-index : 1 '>

response.write <v : 텍스트 박스 inset = '0px, 0px, 0px, 0px'> <table cellPacing = '3'cellPadding = '0'width = '100%'height = '100%'> <tr> <td align = 'center'> & total (i, 1) & </td> </tab> </v : </v : : </td> </v :

응답 <V : 모양 id = '_x0000_S1025'type = '#_X0000_T202'Alt = 'Style ='위치 : 절대; 왼쪽 : & table_x & px; top : & table_y temp_space & px; width : & left_width & px; height : 18px; z-index : 1 '>

response.write <v : 텍스트 상자 삽입 = '0px, 0px, 0px, 0px'> <테이블 셀 패싱 = '3'cellPadding = '0'width = '100%'height = '100%'> <tr> <td align = 'right'> & total (i, 2) & </td> </tab> </v : </v : :

다음

다른 경우

종료 선택

엔드 기능

%>

<%

기능 table3 (Total, Table_X, Table_Y, All_width, All_Height, Table_Type)

'매개 변수 의미 (전달 된 배열, 수평 좌표, 수직 좌표, 차트 너비, 높이, 차트 유형)

'순수한 ASP 코드 생성 차트 기능 3- 파이 차트

'저자 : Gong Ming (passwordgm) QQ : 25968152 MSN : [email protected] 이메일 : [email protected]

'http://topclouds.126.com에서 ASP, VML 및 플래시 애호가와 의사 소통하고 토론 할 의향이 있습니다.

'버전 1.0 마지막 수정 날짜 2003-8-11

'이 기능을 사용해 주셔서 대단히 감사합니다. 사용 및 재 인쇄시 저작권 정보를 보관하십시오. 이것은 저자의 작품에 대한 최선의 존중입니다.

tb_height = 30

DIM TB_COLOR (7,2)

tb_color (1,1) =#d1ffd1

tb_color (2,1) =#ffbbbbb

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) =#33CCCCC

TB_COLOR (5,2) =#666699

TB_COLOR (6,2) =#993300

TB_COLOR (7,2) =#99CC00

Total_no = Ubund (Total, 1)

Totalpie = 0

I = 1에서 Total_no의 경우

Totalpie = Totalpie Total (I, 1)

다음

preangle = 0

I = 1에서 Total_no의 경우

response.write <v : shape id = '_x0000_s1025'alt = ''style = '위치 : 절대; 왼쪽; 왼쪽 : & table_x & px; top : & table_y & px; 너비 : & all_width & px; 높이 : & all_height & px; z-index : 1'coderinates = '1500,1400'o : 100 ject =, ject = '0. 'M750,700ae750,700,750,700, & int (23592960*Preangle) &, & int (23592960*Total (i, 1)/totalpie) & xe'fillcolor = '& tb_color (i, 1) &'strokecolor = '#ffffff'> <v : v : v : v : v. rotate = 't'focus = '100%'type = 'Gradient'/> <v : 스트로크 joinstyle = 'round'/> <v : 공식화/> <V : 경로 o : ConnectType = 'segments'// : shape> & chr (13)

Preangle = Preangle Total (I, 1)/Totalpie

다음

table_type = a 인 경우

응답 <v : rect id = '_x0000_S1025'Style = 'position :'position : allute; left : & table_x all_width 20 & px; top : & table_y 20 & px; 너비 : 100px;

I = 1에서 Total_no의 경우

응답 <v : shape id = '_x0000_s1025'type = '#_x0000_t202'alt = 'style ='position : 절대; 왼쪽 : & table_x all_width 25 & px; top : & table_y 30 (i-1)*tb_height & px; Width : 60px;

response.write <v : 텍스트 박스 inset = '0px, 0px, 0px, 0px'> <table cellPacing = '3'cellPadding = '0'width = '100%'height = '100%'> <tr> <td align = 'left'> & total (i, 0) & </td> </table> </v : </v : : </td> </v :

response.write <v : rect id = '_x0000_S1040'alt = ''style = '위치 : 절대; 왼쪽; 왼쪽 : & table_x all_width 80 & px; top : & table_y 30 (i-1)*tb_height 3 & px; width : 30px; height : 20px; z-index : 1'fillcolor = & tb_ _) & tb_color (i, 1). color2 = '& tb_color (i, 2) &'rotate = 't'focus = '100%'type = 'Gradient'/> </v : rect>

'비율을 표시하십시오

'응답 <v : shape id ='_X0000_S1025 'type ='#_X0000_T202 'Alt =' 'style ='위치 : 절대; 왼쪽 : & table_x all_width 110 & px; top : & table_y 30 (i-1)*tb_height & px; Width : 60px;

'응답 <v : 텍스트 상자 inset ='0px, 0px, 0px, 0px '> <테이블 셀 패싱 ='3 '셀 패딩 ='0 'width ='100% '높이 ='100% '> <trign ='왼쪽 '> & formatnumber (Total (i, 1)*100/totalpie, 2, -1) &%</td> </tr> </table> </table> </v : textbox> </v : shape>

다음

끝 If

table_type = b이면 그렇다면

PIE = 3.14159265358979

temppie = 0

I = 1에서 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

x2> table_x all_width/2 인 경우

x3 = x2 20

x4 = x3

또 다른

x3 = x2-20

x4 = x3-100

끝 If

응답 <V : 타원형 ID = '_X0000_S1027'Style = 'Position :'Position : 절대; 왼쪽 : & x1-2 & px; 상단 : & y1-2 & px; 너비 : 4px; 높이 : 4px; z-index : 2 'fillcolor ='#111111 'strokecolor ='#111111 '/> & chr (13).

응답 <v : line id = '_x0000_s1025'alt = ''style = '위치 : 절대; 왼쪽; 왼쪽 : 0; 텍스트-정렬 : 왼쪽; 상단; z-index : 1'from = '& x1 & px, & y1 & px'to = '& x2 & px, & y2 & px'coordinatesize = '21600'#1111111600 '#11161600'#1116 스트로크 웨이트 = '1px'> </v : line>

response.write <v : line id = '_x0000_S1025'alt = ''style = '위치 : 절대; 왼쪽; 왼쪽; 왼쪽; 텍스트-정렬 : 왼쪽; 상단; z-index : 1'from = '& x2 & px, & y2 & px'to = '& x3 & px, & y2 & px'coordinatesize = '21600,1600'#1111 '#11161600'#1111 ' 스트로크 웨이트 = '1px'> </v : line>

응답 <V : 모양 id = '_X0000_S1025'type = '#_X0000_T202'Alt = ''style = '위치 : 절대; 왼쪽 : & x4 & px; 상단 : & y2-10 & px; 너비 : 100px; 높이 : 20px; z-index : 1'>

응답 <V : 텍스트 상자 inset = '0px, 0px, 0px, 0px'> <Table CellPacing = '3'CellPadding = '0'width = '100%'height = '100%'> <tr> <td align = 'left'> & total (i, 0) & & formatnumber (Total (i, 1)*100/totalpie, 2, -1) &%</td> </tr> </table> </table> </v : textbox> </v : shape>

Temppie = Temppie Total (i, 1)/Totalpie

다음

끝 If

엔드 기능

%>

순수한 ASP 코드 생성 차트 기능 1- 막대 차트 호출 예제

<%

DIM 총계 (7,2)

총 (1,1) = 200

총 (2,1) = 800

총 (3,1) = 1000

총 (4,1) = 600

총 (5,1) = 1222

총 (6,1) = 3213

총 (7,1) = 8

총 (1,2) = 중국 비즈니스 뉴스

총 (2,2) = 채용 웹 사이트

총 (3,2) = 51JOB

총 (4,2) = Xinmin 저녁 뉴스

총 (5,2) = 뉴스 저녁 뉴스

총 (6,2) = 남부 주말

총 (7,2) = Yangcheng 저녁 뉴스

Total_no = 7

%>

<html xmlns : v = urn : schemas-microsoft-com : vml xmlns : o = 항아리 : Schemas-microsoft-com : Office : Office>

<!-[if! mso]>

<스타일>

v/:* {동작 : URL (#default#vml)}

o/:* {동작 : URL (#default#vml)}

.Shape {동작 : URL (#default#vml)}

</스타일>

<! [endif]->

<헤드>

<meta http-equiv = content-type content = text/html; charset = gb2312>

<제목> </title>

<스타일>

TD {font-size : 9pt}

</스타일> </head>

<body topmargin = 5 leftmargin = 0 scroll = auto>

<l table1 (총, 200,20,20,30,400,200, a)%>

<l table1 (총, 200,320,20,20,400,250, b)%>

</body>

</html>