ASP генерирует тела в форме столбца, линейные диаграммы, исходный код круговой диаграммы

<%

Функция Table2 (total, table_x, table_y, all_width, all_height, line_no)

«Значение параметра (пропущенная массива, горизонтальная координата, вертикальная координата, ширина диаграммы, высота диаграммы, количество линий)

'Cure ASP-код генерирует диаграмму 2-линии.

'Автор: Gong Ming (PasswordGM) QQ: 25968152 MSN: [email protected] Электронная почта: [email protected]

«Я очень готов общаться и обсудить с энтузиастами ASP, VML и Flash на http://topclouds.126.com

Версия 1.0 Последняя модифицированная дата 2003-8-11

«Большое спасибо за использование этой функции. Пожалуйста, сохраните информацию об авторском праве при использовании и перепечатках. Это лучшее уважение к работе автора.

line_color =#69f

Leats_width = 70

Total_no = ubund (всего, 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)

конец, если

еще

Если temp1> 4, то Temp3 = 10 else temp3 = 5

конец, если

temp4 = temp3

response.write <v: rect id = '_x0000_s1027' alt = '' style = 'Положение: абсолютно; слева: & table_x Leats_width & px; top: & table_y & px; width: & all_width & px; height: & all_height & px; z-index: -1' fillcolor = '##9cf' stroked = 'floked =' vtaute = straked = 'vtaute = straked =' ntared = 'ntaret straked =' vtaute = str 't' angle = '-45' focus = '100%' type = 'gradient'/> </v: rect>

для i = 0 до all_height-1 шаг all_height/5

response.write <v: line id = '_x0000_s1027' alt = '' 'style =' position: absolute; слева: 0. LEATE_WIDTH & PX, & TABLE_Y ALL_HEITH-LENGHT-I & PX 'STROKECOLOR =' & LINE_COLOR & '/>

response.write <v: line id = '_x0000_s1027' alt = '' style = 'position: Absolute; слева: 0; Text-align: left; top: 0; flip: y; z-index: -1' from = '& table_x (Leat_width-15) & px, & talect_y'> px '> px & px'> px, & px, & px, & px, & px, & px, & px, & px, & px, & px, и px, & px, и px, & px.

response.write

response.write <v: shape id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'Положение: абсолют; слева: & table_x & px; top: & table_y i & px;

response.write <v: textbox inset = '0px, 0px, 0px, 0px'> <Таблица Cellpacing = '3' cellPadding = '0' WIDTH = '100%' height = '100%'> <TR> <TD ALIGN = 'Right'> & Temp4 & </td> </tr> </table> </v: textbox> </v: staj

temp4 = temp4-temp3/5

следующий

response.write <v: line id = '_x0000_s1027' alt = '' 'style =' position: absolute; слева: 0. all_height & px '/>

response.write <v: line id = '_x0000_s1027' alt = '' 'style =' Положение: абсолютно; слева: 0; текст-альбом: слева; верх: 0; flip: y; z-index: -1 'from =' & table_x Leat_width & px, & table_y & px 'to =' & table_width & px & px & px & px 'all_height & px & px & px

dim line_code

redim line_code (line_no, 5)

для i = 1 до 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)

следующий

для j = 1 до line_no

для i = 1 до total_no-1

x1 = table_x Leats_width all_width*(i-1)/total_no

y1 = table_y (temp3-total (i, j))*(all_height/temp3)

x2 = table_x Leats_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 = 'Положение: абсолютное; слева: 0; текстовое значение: слева; Вверх Scleckweight = & line_code (j, 2) &>

Выберите Case Line_code (j, 3)

Случай 1

Случай 2

response.write <V: ход хода DashStyle = '1 1'/>

Случай 3

ответ.

Случай 4

response.write <V: ход хода DashStyle = 'DashDot'/>

Случай 5

response.write <V: ход хода DashStyle = 'longdash'/>

Случай 6

response.write <V: ход хода DashStyle = 'longdashdot'/>

Случай 7

response.write <V: ход хода DashStyle = 'longdashdotdot'/>

случай еще

конец выбора

response.write </v: line> & chr (13)

Выберите Case Line_code (J, 4)

Случай 1

Случай 2

Ответ.

Случай 3

response.write <v: oval id = _x0000_s1026 style = 'Положение: абсолютное; слева: & x1-2 & px; top: & y1-2 & px; ширина: 4px; высота: 4px; z-index: 1' fillcolor = & line_code (j, 1) & strokecolor = & line_code (j, 1) &/hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (j, 1) & strokecolor = & line_code.

конец выбора

следующий

Выберите Case Line_code (J, 4)

Случай 1

Случай 2

Ответ.

Случай 3

response.write <V: Oval Id = _x0000_S1026 Style = 'Положение: абсолютное; слева: & x2-2 & px; top: & y2-2 & px; ширина: 4px; высота: 4px; z-index: 1' fillcolor = & line_code (j, 1) & strokecolor = & line_code (j, 1) &> & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (13) & hr (j, 1) & strokecolor = & line_code.

конец выбора

следующий

для i = 1 до total_no

response.write <v: line id = '_x0000_s1027' alt = '' style = 'Положение: абсолютно; слева: 0; текст-альбом: слева; верх: 0; flip: y; z-index: -1' from = '& table_x all_width all_width*(i-1)/total_no & px, & table_y all_he & px' & px allights 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 =' Положение: абсолют; слева: & 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: textbox inset = '0px, 0px, 0px, 0px'> <Таблица Cellpacing = '3' cellPadding = '0' Width = '100%' height = '100%'> <Tr> <TD Align = 'Left'> & Total (i, 0) & </td> </tr> </table> </v: vtextbox> </v: v. v: vmobox> </V.

следующий

tb_height = 30

response.write <v: rect id = '_x0000_s1025' style = 'position: absolute; слева: & table_x all_width 20 & px; top: & table_y & px; ширина: 100px; высота: & line_no*tb_height 20 & px; z-index: 1'/>

для i = 1 до line_no

response.write <v: shape id = '_x0000_s1025' type = '#_x0000_t202' alt = '' 'style =' Положение: абсолют; слева: & table_x all_width 25 & px; top: & table_y 10 (i-1)*tb_height & px; width: 60px; height: & tb_height & px '> px: 1

response.write <v: textbox inset = '0px, 0px, 0px, 0px'> <Таблица CellPacing = '3' cellPadding = '0' Width = '100%' height = '100%'> <Tr> <TD Align = 'Left'> & Line_Code (i, 5) & </td> </tr> </table> </v: v: vtextbox> </v: v: v: v: v: v: v: v: v: v: v: v: v: v: v: v: v: v: v: v: v: vome_code (i, 5) & </td> </tr> </v: v.

response.write <v: rect id = '_x0000_s1040' alt = '' style = 'Положение: абсолютно; слева: & table_x all_width 80 & px; top: & table_y 10 (i-1)*tb_height 4 & px; ширина: 30px; высота: 20px; z-index: 1' fillcolor = '& line_code (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)

«Значение параметра (пропущенная массив, горизонтальная координата, вертикальная координата, толщина столбца, ширина столбца, ширина диаграммы, высота диаграммы, тип диаграммы)

'Cure ASP -код генерирует функцию диаграммы 1 - Бар -диаграмма

'Автор: Gong Ming (PasswordGM) QQ: 25968152 MSN: [email protected] Электронная почта: [email protected]

«Я очень готов общаться и обсудить с энтузиастами ASP, VML и Flash на http://topclouds.126.com

Версия 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

Leats_width = 70

длина = толщина/2

Total_no = ubund (всего, 1)

temp1 = 0

для i = 1 до total_no

Если temp1 <общая (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)

конец, если

еще

Если temp1> 4, то Temp3 = 10 else temp3 = 5

конец, если

temp4 = temp3

response.write <!-[if gte vml 1]> <v: rect id = '_x0000_s1027' alt = '' 'style =' position: Absolute; слева: & table_x Leats_width & px; top: & table_y & px; width: & all_width & px; height: & all_height & px; z-index: -1 '###wilor STOKED = 'f'> <v: Fill rotate = 't' angle = '-45' focus = '100%' type = 'градиент' // </v: rect> <! [endif]->

response.write <!-[if gte vml 1]>> <v: line id = '_x0000_s1027' alt = '' 'style =' position: absolute; слева: 0; текст-альпина: слева; вершина: 0; y; z-index: -1 'from =' & table_x will_wid_w all_ho all_ho all_ho all_she all_h hid_he all_he all_h LEATE_WIDTH & PX, & TABLE_Y ALL_HEITH & PX '/> <! [ENDIF]->

response.write <!-[if gte vml 1]>> <v: line id = '_x0000_s1027' alt = '' 'style =' position: Absolute; слева: 0; текстовый Align: слева; Top: 0; flip: y; z-index: -1 'from =' & table_x left_width & px, & table_y & px 'to =' LEATE_WIDTH & PX, & TABLE_Y ALL_HEITH & PX '/> <! [ENDIF]->

Выберите Case table_type

случай а

table_space = (all_width-table_width*total_no)/total_no

response.write <!-[if gte vml 1]>> <v: line id = '_x0000_s1027' alt = '' 'style =' position: Absolute; слева: 0; текст-Align: слева; Top: 0; flip: y; z-index: -1 'from =' & table_x Left_width длины & px, & table_y & px 'to =' & table_x Length & Px, & table_y all_height-length & px 'strokecolor =' & line_color & '/> <! [endif]->

для i = 0 до all_height-1 шаг all_height/5

response.write <!-[if gte vml 1]>> <v: line id = '_x0000_s1027' alt = '' 'style =' position: absolute; слева: 0; текст-альбом: слева; Верх: 0; flip: y; z-index: -1 'from =' & table_x width & px & table_y all_he-length LEATE_WIDTH LONGE & PX, & TABLE_Y ALL_HEITH-I & PX 'STROKECOLOR =' & LINE_COLOR & '/> <! [ENDIF]->

response.write <!-[if gte vml 1]>> <v: line id = '_x0000_s1027' alt = '' 'style =' Положение: абсолют; слева: 0; текстовый Align: слева; Вверх all_width Lealth_width & PX, & table_y all_height-length-i & px 'rokecolor =' & line_color & '/> <! [endif]->

response.write <!-[if gte vml 1]>> <v: line id = '_x0000_s1027' alt = '' 'style =' position: absolute; слева: 0; текстовый Align: слева; Top: 0; flip: y; z-index: -1 из = LEATE_WIDTH & PX, & TABLE_Y I & PX '/> <! [ENDIF]->

response.write <!-[если gte vml 1]>

response.write <v: shape id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'Положение: абсолют; слева: & table_x & px; top: & table_y i & px;

response.write <v: textbox inset = '0px, 0px, 0px, 0px'> <таблица сотока = '3' cellpadding = '0' width = '100%' height = '100%'> <tr> <td align = 'right'> & temp4 & </td> </tr> </table> </v: textbox> </v: endiif] </v: endif]

temp4 = temp4-temp3/5

следующий

для i = 1 до total_no

temp_space = table_x Leats_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

response.write px; top:

response.write table_y all_height*(1- (общее (i, 1)/temp3))

response.write px; width: & 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: Extrusion V: ext = 'view' BackDepth = '& толщина & pt' color = '& tb_color (i, 2) &' on = 't'/>

response.write </v: rect>

response.write <v: shape 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: textbox inset = '0px, 0px, 0px, 0px'> <таблица сотока = '3' cellpadding = '0' width = '100%' height = '100%'> <tr> <td align = 'center'> & total (i, 1) & </td> </tr> </table> </v: vextbox> </v: vmobox> </v: v. v: v: v. v: v.

response.write <v: shape id = '_x0000_s1025' type = '#_x0000_t202' alt = '' 'style =' Положение: абсолют; слева: & temp_space-table_space/2 & px; top: & table_y all_height 1 & px; width: & sable_space table_width & px;

response.write <v: textbox inset = '0px, 0px, 0px, 0px'> <таблица сотока = '3' cellpadding = '0' width = '100%' height = '100%'> <tr> <td align = 'center'> & total (i, 2) & </td> </tr> </table> </v: xpextbox> </v: v. v: v: v. v: v. v: v.

следующий

Случай б

table_space = (all_height-table_width*total_no)/otal_no

response.write <!-[if gte vml 1]>> <v: line id = '_x0000_s1027' alt = '' 'style =' position: absolute; слева: 0; текстовый Align: слева; Top: 0; flip: y; z-index: -1 'from =' & table_x Left_width длины & px, & table_y all_he-length & table_x 'xxe_xx hous_x LEATE_WIDTH ALL_WIDTH & PX, & TABLE_Y ALL_HEITH-LENGHT & PX 'STROKECOLOR =' & LINE_COLOR & '/> <! [ENDIF]->

для i = 0 до all_width-1 шаг all_width/5

response.write <!-[if gte vml 1]>> <v: line id = '_x0000_s1027' alt = '' 'style =' position: absolute; слева: 0; текст-альбом: слева; вершина: 0; flip: y; z-index: -1 'from =' & table_x left_width i & px, & table_y all_he-length LEAND_WIDTH Длина I & PX, & TABLE_Y ALL_HEITH & PX 'STROKECOLOR =' & LINE_COLOR & ' /> <! [ENDIF]->

response.write <!-[if gte vml 1]>> <v: line id = '_x0000_s1027' alt = '' 'style =' position: absolute; слева: 0; текст-альбом: слева; Вверх LEAND_WIDTH Длина I & PX, & Table_Y & PX 'StrokeColor =' & line_color & ' /> <! [Endif]->

response.write <!-[if gte vml 1]>> <v: line id = '_x0000_s1027' alt = '' 'style =' position: absolute; слева: 0; текстовый Align: слева; Top: 0; flip: y; z-index: -1 'from =' & table_x left_width i all_width/5 & px, & table_hhe ' '& table_x Leats_width i all_width/5 & px, & table_y all_height 15 & px'/> <! [endif]->

response.write <!-[если gte vml 1]>

response.write <v: shape id = '_x0000_s1025' type = '#_x0000_t202' alt = '' 'style =' Положение: абсолют; слева: & table_x left_width i all_width/5-left_width & px; top: & table_y all_height & px; width: & weald_width & px; '>.

response.write <v: textbox inset = '0px, 0px, 0px, 0px'> <таблица сотока = '3' cellpadding = '0' width = '100%' height = '100%'> <tr> <td align = 'right'> & temp4 & </td> </tr> </table> </v: textbox> </v: endiif] </v: endif]

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 Leats_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 <V: заполнить color2 = '& tb_color (i, 1) &' rotate = 't' angle = '-90' Focus = '100%' type = 'gradient'/>

response.write <O: Extrusion V: ext = 'view' BackDepth = '& толщина & pt' color = '& tb_color (i, 2) &' on = 't'/>

response.write </v: rect>

response.write <v: shape id = '_x0000_s1025' type = '#_x0000_t202' alt = '' 'style =' Положение: абсолют; слева: & table_x Left_width All_width*(total (i, 1)/temp3) толщина/2 & px; top: & table_y temp_space & px; 15 & px; высота: 18px; z-index: 1 '>

response.write <v: textbox inset = '0px, 0px, 0px, 0px'> <таблица сотока = '3' cellpadding = '0' width = '100%' height = '100%'> <tr> <td align = 'center'> & total (i, 1) & </td> </tr> </table> </v: vextbox> </v: vmobox> </v: v. v: v: v. v: v.

response.write <v: shape id = '_x0000_s1025' type = '#_x0000_t202' alt = '' 'style =' Положение: абсолют; слева: & table_x & px; top: & table_y temp_space & px; width: & left_width & px; высота: 18px; z-index: 1 '>

response.write <v: textbox inset = '0px, 0px, 0px, 0px'> <таблица сотока = '3' cellpadding = '0' width = '100%' height = '100%'> <tr> <td align = 'right'> & total (i, 2) & </td> </tr> </table> </v: xpretbox> </v: v. v: v. v: v. v: v. v: vmobox> </v.

следующий

случай еще

конец выбора

конечная функция

%>

<%

Функция Table3 (total, table_x, table_y, all_width, all_height, table_type)

«Значение параметра (пропущенная массив, горизонтальная координата, вертикальная координата, ширина диаграммы, высота, тип диаграммы)

'Функция диаграммы генерации кода Pure ASP

'Автор: Gong Ming (PasswordGM) QQ: 25968152 MSN: [email protected] Электронная почта: [email protected]

«Я очень готов общаться и обсудить с энтузиастами ASP, VML и Flash на http://topclouds.126.com

Версия 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 (всего, 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' координаты = '1500,1400' o: spt = '100 =' 100 = '100' 100 '100' 100 '100' 100 '. 'M750,700AE750,700,750,700, & int (23592960*PREANGLE) &, & Int (23592960*Total (I, 1)/TotalPie) & XE' fillColor = '& tb_color (i, 1) и' strokecolor = '#ffff'> <v: illor2 = '& tb_color. rotate = 't' Focus = '100%' type = 'gradient'/> <v: sturk jointyle = 'round'/> <v: formulas/> <v: path O: connectType = 'segments' // </v: shape> & chr (13)

PREANGLE = PREANGLE Всего (I, 1)/TotalPie

следующий

if table_type = a then

response.write <v: rect id = '_x0000_s1025' style = 'Положение: абсолют; слева: & table_x all_width 20 & px; top: & table_y 20 & px; ширина: 100px; высота: & total_no*tb_height 20 & px; z-index: 1'/>

для i = 1 до total_no

Ответ.

response.write <v: textbox inset = '0px, 0px, 0px, 0px'> <Таблица Cellpacing = '3' cellPadding = '0' Width = '100%' height = '100%'> <Tr> <TD Align = 'Left'> & Total (i, 0) & </td> </tr> </table> </v: vtextbox> </v: v. v: vmobox> </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; ширина: 30px; высота: 20px; z-index: 1' fillcolor = '& tb_col (1). color2 = '& tb_color (i, 2) &' rotate = 't' focus = '100%' type = 'градиент'/> </v: rect>

'Показать соотношение

'response.write <v: shape id =' _x0000_s1025 'type ='#_x0000_t202 'alt =' '' style = 'Положение: Absolute; слева: & table_x all_width 110 & px; top: & table_y 30 (i-1)*tb_height & px; width: 60px; height: & tb_he.

'response.write <v: textbox inset =' 0px, 0px, 0px, 0px '> <table cellpacing =' 3 'cellpadding =' 0 'width =' 100% 'height =' 100% '> <tr> <td align =' left '> & formatnumber (total (i, 1)*100/totalpie, 2, -1) и%</td> </tr> </table> </table> </v: textbox> </v: shape>

следующий

конец, если

if table_type = b тогда

Пирог = 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

конец, если

response.write <v: oval id = '_x0000_s1027' style = 'Положение: абсолютное; слева: & x1-2 & px; top: & y1-2 & px; ширина: 4px; высота: 4px; z-index: 2' fillcolor = '#111111' Strokecolor = '#111111111111111111111111 гг.

response.write <v: line id = '_x0000_s1025' alt = '' style = 'Положение: абсолютно; слева: 0; текстовый аличный: слева; Верх: 0; z-index: 1' from = '& x1 & px, & y1 & px' to = '& x2 & px, & y2 & px' координаты = '216001600'#111600 '21600' 21600 '#21600' 21600 '#21600' 216.166.166.166.16.1616.16.16.116.16.16.116.16.16.16.1616. Scleckweight = '1px'> </v: line>

response.write <v: line id = '_x0000_s1025' alt = '' style = 'позиция: абсолютно; слева: 0; текстовый аличный: слева; верх: 0; z-index: 1' from = '& x2 & px, & y2 & px' to = '& x3 & px, & y2 & px' координизации = '21600,216600'#11600 '216600'#11600 '21600'#111600 '#21600' 216.166.16.16600 '#21600' 216.16.16.116.16.116.16.116.11616. Scleckweight = '1px'> </v: line>

response.write <v: shape id = '_x0000_s1025' type = '#_x0000_t202' alt = '' 'style =' Положение: абсолют; слева: & x4 & px; top: & y2-10 & px; ширина: 100px; высота: 20px; z-index: 1 '>

response.write <v: textbox inset = '0px, 0px, 0px, 0px'> <Таблица сотока 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

следующий

конец, если

конечная функция

%>

Функция диаграммы генерации кода Pure 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) = Синмин Вечерние новости

Всего (5,2) = Новости вечерние новости

Всего (6,2) = южные выходные

Всего (7,2) = Yangcheng Evening News

total_no = 7

%>

<html xmlns: v = urn: схемы-microsoft-com: vml xmlns: o = urn: схемы-микрософт-Ком: Офис: Офис>

<!-[if! mso]>

<style>

v/:* {поведение: url (#по умолчанию#vml)}

o/:* {поведение: url (#по умолчанию#vml)}

.shape {поведение: url (#по умолчанию#vml)}

</style>

<! [endif]->

<голова>

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

<L table1 (общая, 200,20,20,30,400 200, а)%>

<L table1 (общая, 200 320,20,20,400 250, б)%>

</body>

</html>