ASP genera cuerpos en forma de columna, gráficos de línea, código fuente del gráfico circular

<%

Tabla de funciones2 (Total, table_x, table_y, all_width, all_height, line_no)

'Significado del parámetro (matriz pasada, coordenada horizontal, coordenada vertical, ancho de gráfico, altura del gráfico, número de líneas)

'El código ASP puro genera gráfico de 2 líneas

'Autor: Gong Ming (PasswordGM) QQ: 25968152 MSN: contraseñ[email protected] Correo electrónico: contraseñ[email protected]

'Estoy muy dispuesto a comunicarme y discutir con ASP, VML y entusiastas de Flash en http://topclouds.126.com

'Versión 1.0 Última fecha modificada 2003-8-11

'Muchas gracias por usar esta función. Mantenga la información de los derechos de autor al usar y reimprimir. Este es el mejor respeto por el trabajo del autor.

line_color =#69F

Left_width = 70

Total_no = Ubund (Total, 1)

temp1 = 0

para i = 1 a total_no

para j = 1 a line_no

Si temp1 <total (i, j) entonces temp1 = total (i, j)

próximo

próximo

temp1 = int (temp1)

Si temp1> 9 entonces

TEMP2 = MID (CSTR (TEMP1), 2,1)

Si temp2> 4 entonces

tempp3 = (int (temp1/(10^(len (CSTR (temp1))-1)))) 1)*10^(len (CSTR (TEMP1))-1)

demás

tempp3 = (int (temp1/(10^(len (CSTR (temp1))-1)))) 0.5)*10^(len (CSTR (TEMP1))-1)

final si

demás

if temp1> 4 entonces tempp3 = 10 else tempp3 = 5

final si

temp4 = tempp3

respuesta.write <v: rect id = '_x0000_s1027' alt = '' style = 'Position: Absolute; Left: & table_x Left_Width & Px; Top: & table_y & px; width: & all_width & px; altura: & all_height & px; z-index. rotado = 't' ángulo = '-45' focus = '100%' type = 'gradiente'/> </v: rect>

para i = 0 a all_height-1 paso all_height/5

Respuesta.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 Longitud & 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 '/>

Respuesta. Escribe

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; altura: 18px; z-index.

Respuesta.Write <v: TextBox INSET = '0PX, 0PX, 0PX, 0PX'> <TABLE CELLPACING = '3' CellPadding = '0' Width = '100%' Height = '100%'> <tr> <td Align = 'Right'> & Temp4 & </td> </tr> </table> </v: Sabox> </v: shapee>

TEMP4 = TEMP4-TEMP3/5

próximo

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

Respuesta.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 & px, & table_ythy y px' '

Dim Line_code

redim line_code (line_no, 5)

para i = 1 a 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)

próximo

para j = 1 a line_no

para i = 1 a total_no-1

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

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

x2 = table_x Left_width all_width*i/total_no

y2 = table_y (tempp3-total (i 1, j))*(all_height/tempp3)

Respuesta Strokeweight = & line_code (j, 2) &>

Seleccione Case Line_code (J, 3)

Caso 1

Caso 2

Response.Write <V: Stroke DashStyle = '1 1'/>

Caso 3

Response.Write <V: Stroke DashStyle = 'Dash'/>

Caso 4

Response.Write <V: Stroke DashStyle = 'DashDot'/>

Caso 5

Response.Write <V: Stroke DashStyle = 'Longdash'/>

Caso 6

Response.Write <V: Stroke DashStyle = 'LongDashDot'/>

Caso 7

Response.Write <V: Stroke DashStyle = 'LongDashDotDot'/>

caso

final seleccionar

Response.Write </V: Line> & Chr (13)

Seleccione Case Line_code (J, 4)

Caso 1

Caso 2

Respuesta

Caso 3

Respuesta

final seleccionar

próximo

Seleccione Case Line_code (J, 4)

Caso 1

Caso 2

Respuesta

Caso 3

Respuesta

final seleccionar

próximo

para i = 1 a total_no

Respuesta.Write <v: línea 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 = '' ALL_WIDTH*(I-1)/TOTAL_NO & PX, & TABLE_Y ALL_HEIGHT 15 & PX '/>

Respuesta. Escribe

Respuesta.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; ancho: & all_width/total_no & px; altura: 18px; z-odex: 1 '>

Respuesta.Write <V: TextBox INSET = '0PX, 0PX, 0PX, 0PX'> <TABLE CELLPACING = '3' CellPadding = '0' Width = '100%' Height = '100%'> <tr> <td Align = 'Left'> & Total (i, 0) & </td> </tr> </BLE

próximo

tb_height = 30

Respuesta.write <v: rect id = '_x0000_s1025' style = 'Position: Absolute; izquierda: & table_x all_width 20 & px; top: & table_y & px; width: 100px; altura: & line_no*tb_height 20 & px; z-index: 1'/>>

para i = 1 a line_no

Respuesta.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; widt: 60px; altura: & tb_height & px; Z-INDEX: 1'.

Respuesta.Write <V: TextBox INSET = '0PX, 0PX, 0PX, 0PX'> <TABLE CellPacing = '3' CellPadding = '0' Width = '100%' Height = '100%'> <tr> <td Align = 'Left'> & line_code (I, 5) & </td> </tr> </pla> </v: TextBox> </V: V: V: Sape (I, 5) & </td> </tr> </pla> </v: TextBox> </V: V: V: Sape (I, 5) & </td> </tr> </pla> </v: Textbox> </V: V: V: Sape (I, 5) & </td> </tr> </pla> </v: TextBox> </V: V: V: V: Sape

respuesta.write <v: rect id = '_x0000_s1040' alt = '' style = 'Position: Absolute; izquierda: & table_x all_width 80 & px; top: & table_y 10 (i-1)*tb_height 4 & px; width: 30px: 20px; z-index: 1' llena = '& line_code (i, 1); color2 = '& line_code (i, 1) &' rotate = 't' focus = '100%' type = 'gradiente'/> </v: rect>

próximo

función final

%>

<%

Tabla de funciones1 (Total, table_x, table_y, grosor, table_width, all_width, all_height, table_type)

'Significado del parámetro (matriz pasada, coordenada horizontal, coordenada vertical, espesor de la columna, ancho de columna, ancho del gráfico, altura del gráfico, tipo de gráfico)

'El código ASP puro genera la función del gráfico 1 - Gráfico de barras

'Autor: Gong Ming (PasswordGM) QQ: 25968152 MSN: contraseñ[email protected] Correo electrónico: contraseñ[email protected]

'Estoy muy dispuesto a comunicarme y discutir con ASP, VML y entusiastas de Flash en http://topclouds.126.com

'Versión 2.0 Última fecha modificada 2003-7-22

'Muchas gracias por usar esta función. Mantenga la información de los derechos de autor al usar y reimprimir. Este es el mejor respeto por el trabajo del autor.

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

longitud = grosor/2

Total_no = Ubund (Total, 1)

temp1 = 0

para i = 1 a total_no

Si temp1 <total (i, 1) entonces temp1 = total (i, 1)

próximo

temp1 = int (temp1)

Si temp1> 9 entonces

TEMP2 = MID (CSTR (TEMP1), 2,1)

Si temp2> 4 entonces

tempp3 = (int (temp1/(10^(len (CSTR (temp1))-1)))) 1)*10^(len (CSTR (TEMP1))-1)

demás

tempp3 = (int (temp1/(10^(len (CSTR (temp1))-1)))) 0.5)*10^(len (CSTR (TEMP1))-1)

final si

demás

if temp1> 4 entonces tempp3 = 10 else tempp3 = 5

final si

temp4 = tempp3

Response.Write <!-[if gte vml 1]> <v: rect id = '_x000000_s1027' alt = '' style = 'Position: Absolute; Left: & table_x Left_width & px; top: & table_y & px; width: & all_width & px; throw stroked = 'f'> <v: relleno rotado = 't' ángulo = '-45' focus = '100%' type = 'gradiente' // </v: rect> <! [endif]->>

Respuesta.Write <!-[if gte vml 1]> <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 & px, & table_y All_Height & Px' a = '' Left_Width & Px, & table_y all_height & px '/> <! [endif]->

Respuesta.Write <!-[if gte vml 1]> <v: línea id = '_x0000_s1027' alt = '' style = 'Position: Absolute; Left: 0; Text-Align: Left; Top: 0; Flip: y; Z-Index: -1' from = '& table_x Left & px, & table_y & px' a = '& table_X Left_Width & Px, & table_y all_height & px '/> <! [endif]->

Seleccione Case TABLE_TYPE

caso

table_space = (all_width-table_width*total_no)/total_no

Respuesta.Write < Longitud & Px, & table_y all_height-longitud & px 'strokecolor =' & line_color & '/> <! [endif]->

para i = 0 a all_height-1 paso all_height/5

Respuesta.Write <!-[if gte vml 1]> <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 & px, & table_y All_height-length-length-i & pX' Left_Width Long y Px, y Table_y All_Height-I & Px 'Strokecolor =' & line_color & '/> <! [Endif]->

Respuesta.Write <!-[if gte vml 1]> <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_HeHight-length--Length-Length-length-length-i-length-i-length-i-length-i-lengar all_width left_width & px, & table_y all_height-length-i & px 'strokecolor =' & line_color & '/> <! [endif]->>

Respuesta.Write <!-[if gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'Position: Absolute; Left: 0; Text-Align: Left; Top: 0; Flip: y; Z-Index: -1' from = '& table_x (izquierda_width-15) & px, & table_y i & px' to = '' '' ' Left_Width & Px, & table_y i & px '/> <! [Endif]->

Response.write <!-[Si GTE VML 1]>

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; altura: 18px; z-index.

Response.Write <v: TextBox INSET = '0PX, 0PX, 0PX, 0PX'> <TABLE CELLPACING = '3' CellPadding = '0' Width = '100%' Height = '100%'> <tr> <td Align = 'Right'> & Temp4 & </td> </tr> </bable> </v: TextBox> </v: shapee> <!

TEMP4 = TEMP4-TEMP3/5

próximo

para i = 1 a 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; izquierda:

Respuesta.WRITE TEMP_SPACE

Respuesta.WRITE PX; TOP:

Response.Write table_y all_height*(1- (total (i, 1)/tempp3)))

Respuesta.Write Px; Width: & Table_Width & Px; Height: & All_height*(Total (i, 1)/Temp3) & Px; Z-Index: 1 'FillColor =' & tb_Color (i, 2) & '>>

Response.write <v: relleno color2 = '& tb_color (i, 1) &' rotate = 't' type = 'gradiente'/>

Response.Write <o: Extrusion v: ext = 'ver' backdepth = '& Grosness & pt' color = '& tb_color (i, 2) &' on = 't'/>

Response.Write </V: Rect>

Respuesta.Write <V: Shape ID = '_X0000_S1025' type = '#_x0000_t202' alt = '' style = 'Position: Absolute; Left: & Temp_space & Px; Top: & Table_y All_height*(1- (Total (i, 1)/TEMP3))-Table_width & Px; Width: & table_space 15 & px; altura: 18px; índice z: 1 '>

Respuesta.Write <v: TextBox INSET = '0PX, 0PX, 0PX, 0PX'> <TABLE CELLPACING = '3' CellPadding = '0' Width = '100%' Height = '100%'> <tr> <td Align = 'Center'> & Total (i, 1) & </td> </tr> </BLE

Respuesta.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;

Respuesta.Write <v: TextBox INSET = '0PX, 0PX, 0PX, 0PX'> <TABLE CELLPACING = '3' CellPadding = '0' Width = '100%' Height = '100%'> <tr> <td Align = 'Center'> & Total (i, 2) & </td> </tr> </BLE

próximo

Caso B

table_space = (all_height-table_width*total_no)/total_no

Respuesta.Write <!-[if gte vml 1]> <v: línea id = '_x000000_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_y All_HeHight-LIZTY & PX' '' '&' '' & TABLA_XX'X LEGU Left_width all_width & px, & table_y all_height-length & px 'strokecolor =' & line_color & '/> <! [endif]->>

para i = 0 a all_width-1 paso all_width/5

Respuesta.Write <!-[if gte vml 1]> <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_y Length & Px' '' & '' '& TABLE_XX' & TABLE Left_Width Longitud i & px, y table_y all_height & px 'strokecolor =' & line_color & ' /> <! [endif]->

Respuesta.Write <!-[if gte vml 1]> <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 Long I & px, & table_y All_Height-Length-Length-Length-Lengthing' Left_width longitud i & px, & table_y & px 'strokecolor =' & line_color & ' /> <! [endif]->

Respuesta.Write <!-[if gte vml 1]> <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' '& table_x Left_width I all_width/5 & px, & table_y all_height 15 & px'/> <! [endif]->

Response.write <!-[Si GTE VML 1]>

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; 18px; 18p; '>

Response.Write <v: TextBox INSET = '0PX, 0PX, 0PX, 0PX'> <TABLE CELLPACING = '3' CellPadding = '0' Width = '100%' Height = '100%'> <tr> <td Align = 'Right'> & Temp4 & </td> </tr> </bable> </v: TextBox> </v: shapee> <!

TEMP4 = TEMP4-TEMP3/5

próximo

para i = 1 a total_no

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

Response.write <v: rect id = '_x0000_s1025' alt = '' style = 'Position: Absolute; izquierda:

Response.Write table_x Left_Width

Respuesta.WRITE PX; TOP:

Response.write table_y temp_space

Respuesta.Write Px; Ancho: & All_Width*(Total (i, 1)/Temp3) & Px; Height: & table_width & px; Z-Index: 1 'FillColor =' & tb_color (i, 2) & '>

Response.write <v: relleno color2 = '& tb_color (i, 1) &' rotate = 't' ángulo = '-90' focus = '100%' type = 'gradiente'/>

Response.Write <o: Extrusion v: ext = 'ver' backdepth = '& Grosness & pt' color = '& tb_color (i, 2) &' on = 't'/>

Response.Write </V: Rect>

Respuesta.Write <v: Shape id = '_X0000_S1025' type = '#_x0000_t202' alt = '' style = 'Position: Absolute; Left: & table_x Left_width All_Width*(Total (i, 1)/TEMP3) GRESSIPS/2 & PX; 15 & px; altura: 18px; índice z: 1 '>

Respuesta.Write <v: TextBox INSET = '0PX, 0PX, 0PX, 0PX'> <TABLE CELLPACING = '3' CellPadding = '0' Width = '100%' Height = '100%'> <tr> <td Align = 'Center'> & Total (i, 1) & </td> </tr> </BLE

Respuesta.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; altura: 18px; z-idex: 1'>>

Respuesta.Write <V: TextBox INSET = '0PX, 0PX, 0PX, 0PX'> <TABLE CELLPACING = '3' CellPadding = '0' Width = '100%' Height = '100%'> <tr> <td Align = 'Right'> & Total (i, 2) & </td> </tr> </table> </v: TextBox> </v: shape

próximo

caso

final seleccionar

función final

%>

<%

Tabla de funciones3 (Total, table_x, table_y, all_width, all_height, table_type)

'Significado de parámetro (matriz pasada, coordenada horizontal, coordenada vertical, ancho de gráfico, altura, tipo de gráfico)

'Pure ASP Code Generation Función Tabla de 3 piezas

'Autor: Gong Ming (PasswordGM) QQ: 25968152 MSN: contraseñ[email protected] Correo electrónico: contraseñ[email protected]

'Estoy muy dispuesto a comunicarme y discutir con ASP, VML y entusiastas de Flash en http://topclouds.126.com

'Versión 1.0 Última fecha modificada 2003-8-11

'Muchas gracias por usar esta función. Mantenga la información de los derechos de autor al usar y reimprimir. Este es el mejor respeto por el trabajo del autor.

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

para i = 1 a total_no

Totalpie = Totalpie Total (i, 1)

próximo

Preangle = 0

para i = 1 a total_no

response.write <v:shape id= '_x0000_s1025 ' alt= ' ' style= 'position:absolute;left:&table_x&px;top:&table_y&px;width:&all_width&px;height:&all_height&px;z-index:1 ' coordinatesize= '1500,1400 ' o:spt= '100 ' adj= '0,,0 ' path= 'm750,700ae750,700,750,700,&int(23592960*PreAngle)&,&int(23592960*total(i,1)/totalpie)&xe ' fillcolor= '&tb_color(i,1)& ' strokecolor= '#FFFFFF '><v:fill color2= '&tb_color(i,2)& ' rotar = 't' focus = '100%' type = 'gradiente'/> <v: Stroke JoinStyle = 'Round'/> <v: Fórmulas/> <V: ruta o: conecttype = 'segmentos' // </v: shape> & chr (13)

Preangle = preangle total (i, 1)/totalpie

próximo

Si table_type = a entonces

Respuesta.write <v: rect id = '_x0000_s1025' style = 'Position: Absolute; Left: & table_x all_width 20 & px; top: & table_y 20 & px; width: 100px; altura: & total_no*tb_height 20 & px; z-index: 1'/>>

para i = 1 a total_no

Respuesta.Write <V: Shape ID = '_X0000_S1025' type = '#_x0000_t202' alt = '' style = 'Position: Absolute; Left: & table_x All_width 25 & px; Top: & table_y 30 (i-1)*tb_height & px; widtio: 60px; altura: & tb_height & px; Z-INDEX: 1'.

Respuesta.Write <V: TextBox INSET = '0PX, 0PX, 0PX, 0PX'> <TABLE CELLPACING = '3' CellPadding = '0' Width = '100%' Height = '100%'> <tr> <td Align = 'Left'> & Total (i, 0) & </td> </tr> </BLE

Respuesta.write <v: rect id = '_x0000_s1040' alt = '' style = 'Position: Absolute; izquierda: & table_x all_width 80 & px; top: & table_y 30 (i-1)*tb_height 3 & px; width: 30px; altura: 20px; z-index. '> <v: relleno color2 =' & tb_color (i, 2) & 'rotate =' t 'focus =' 100% 'type =' gradiente '/> </v: rect>

'Muestra la relación

'Response.write <v: shape id =' _x0000_s1025 'type ='#_x0000_t202 'alt =' 'style =' Position: Absolute; Left: & Table_X All_Width 110 & Px; Top: & Table_y 30 (I-1)*tb_height & PX; width: 60px; altura: & TB_Height & PX;

'Response.Write <v: TextBox INSET =' 0PX, 0PX, 0PX, 0PX '> <TABLE CELLPACING =' 3 'CellPadding =' 0 'Width =' 100% 'Height =' 100% '> <tr> <td align =' izquierda '> & FormatNumber (Total (i, 1)*100/Totalpie, 2, -1) &%</td> </tr> </table> </table> </v: textbox> </v: shape>

próximo

final si

Si table_type = b entonces

Pie = 3.14159265358979

TEMPPIE = 0

para i = 1 a 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

Si x2> table_x all_width/2 entonces

x3 = x2 20

x4 = x3

demás

x3 = x2-20

x4 = x3-100

final si

Respuesta.Write <V: Oval ID = '_X0000_S1027' style = 'Posición: Absolute; Izquierda: & x1-2 & px; Top: & y1-2 & px; width: 4px; Height: 4px; Z-Index: 2' FillColor = '#111111' Strokecolorin = '#111111'/> & Chr (13)

Respuesta.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' coordinate = '21600,21600' '' ''#1111 '' '' '' '' '' '' ''#1111 strokeweight = '1px'> </v: línea>

Respuesta.Write <V: Line ID = '_X0000_S1025' Alt = '' style = 'Position: Absolute; Left: 0; Text-Align: Left; Top: 0; Z-Index: 1' From = '& x2 & px, & y2 & px' to = '& x3 & px, & y2 & px' coordinate = '21600,21600' '' '' ''#1111 '' '' '' '' '' '' '' '#1111 strokeweight = '1px'> </v: línea>

Respuesta.Write <V: Shape ID = '_X0000_S1025' type = '#_x0000_t202' alt = '' style = 'Position: Absolute; izquierda: & x4 & px; top: & y2-10 & px; width: 100px; altura: 20px; z-odex: 1'>>

Respuesta.Write <V: TextBox INSET = '0PX, 0PX, 0PX, 0PX'> <TABLE CELLPACING = '3' CellPadding = '0' width = '100%' Height = '100%'> <tr> <td align = 'izquierda'> & 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

próximo

final si

función final

%>

Pure ASP Code Generation Función 1 - Ejemplo de llamadas de gráfico de barras

<%

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) = China Business News

Total (2,2) = sitio web de reclutamiento

Total (3,2) = 51Job

Total (4,2) = Noticias de la tarde de Xinmin

Total (5,2) = Noticias nocturnas de noticias

Total (6,2) = fin de semana del sur

Total (7,2) = Yangcheng Evening News

Total_no = 7

%>

<html xmlns: v = urn: schemas-microsoft-com: vml xmlns: o = urn: schemas-microsoft-com: oficina: oficina>

<!-[if! mso]>

<estilo>

v/:* {comportamiento: url (#predeterminado#vml)}

o/:* {comportamiento: url (#predeterminado#vml)}

.shape {comportamiento: url (#predeterminado#vml)}

</style>

<! [endif]->

<Evista>

<meta http-oquiv = content-type content = text/html; Charset = GB2312>

<title> </title>

<estilo>

TD {Font-Size: 9pt}

</style> </head>

<Body TopMargin = 5 LeftMargin = 0 Scroll = Auto>

<L Tabla1 (total, 200,20,20,30,400,200, a)%>

<L Tabla1 (total, 200,320,20,20,400,250, b)%>

</body>

</html>