ASP genera cuerpos en forma de columna, gráficos de línea, código fuente del gráfico circular
<%
Functable2 (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 la función del gráfico 2 - Gráfico de línea
'Autor: Gong Ming (PasswordGM) QQ: 25968152MSN: contraseñ[email protected]: 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
fori = 1tototal_no
forj = 1toline_no
iftemp1 <total (i, j) thentemp1 = total (i, j)
próximo
próximo
temp1 = int (temp1)
iftemp1> 9
TEMP2 = MID (CSTR (TEMP1), 2,1)
iftemp2> 4then
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)
endif
demás
iftemp1> 4thentemp3 = 10elSetEmp3 = 5
endif
temp4 = tempp3
Respuesta.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: relletRotate =' t'angle = '-45'focus =' 100%'type =' Gradiente '/> <V: rect>"
fori = 0toall_height-1stepall_height/5
Respuesta.write "<v: lineid = '_ x0000_s1027'alt =' 'style =' Position: Absolute; izquierda: 0; Text-Align: Left; Top: 0; Flip: Y; Z-Index: -1'From = '" & table_x+Left_width+le ngth & "px," & table_y+all_height-longitud-i & "px'To = '" & table_x+all_width+left_width & "px," & table_y+all_height-length-i & "px'strokecolor ='" & line_color & "'/>"
respuesta.write "<v: lineid = '_ x0000_s1027'alt =' 'style =' Position: Absolute; izquierda: 0; Text-Align: Left; Top: 0; Flip: Y; Z- índice: -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: shapeID = '_ 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'>"
Respuesta.Write "<v: textboxInset = '0px, 0px, 0px, 0px'> <tableCellSpacing = '3'cellPadding =' 0'Width = '100%' Height = '100%'> <tDalign = 'Right'>" & Temp4 & "</td> </tr> </bable> </v: TextBox> </v: shape
TEMP4 = TEMP4-TEMP3/5
próximo
Respuesta.write "<v: lineid = '_ x0000_s1027'alt =' 'style =' Position: Absolute; izquierda: 0; Text-Align: Left; arriba: 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 '/> "