ASP gera corpos em forma de coluna, gráficos de linha, código-fonte do gráfico de pizza
<%
functionTable2 (total, tabela_x, tabela_y, all_width, all_height, line_no)
'Significado do parâmetro (matriz passada, coordenada horizontal, coordenada vertical, largura do gráfico, altura do gráfico, número de linhas)
'Código ASP puro gera função do gráfico 2 - gráfico de linha
'Autor: Gong Ming (PasswordGM) QQ: 25968152msn: [email protected]: [email protected]
“Estou muito disposto a me comunicar e discutir com os entusiastas do ASP, VML e Flash em http://topclouds.126.com
'versão 1.0 Última data modificada 2003-8-11
'Muito obrigado por usar esta função. Por favor, mantenha as informações de direitos autorais ao usar e reimprimir. Este é o melhor respeito pelo trabalho do autor.
line_color = "#69f"
esquerd_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> 9then
temp2 = médio (cstr (temp1), 2,1)
iftemp2> 4then
Temp3 = (int (temp1/(10^(len (cstr (temp1))-1)))+1)*10^(len (cstr (temp1))-1)
outro
TEMP3 = (int (temp1/(10^(len (cstr (temp1))-1)))+0,5)*10^(len (cstr (temp1))-1)
endif
outro
iftemp1> 4thEntemp3 = 10elsetemp3 = 5
endif
temp4 = temp3
Response.Write "<V: RectId = '_ x0000_S1027'alt =' 'style =' Posição: Absolute; esquerda:" & tabela_x+left_width & "px; top:" & table_y & "px; largura:" & all_width & "px; altura:" & all_Height & "px; z-index: -1'fillcolor = '#9cf'stroked =' f '> <v: Fillrotate =' t'ange = '-45'focus =' 100%'tipo =' gradiente '/> </v: rect>"
fori = 0toall_height-1stepall_height/5
Response.Write "<v: lineid = '_ x0000_s1027'alt =' 'style =' Posição: absoluto; esquerda: 0; text-align: esquerda; topo: 0; flip: y; z-index: -1'from = '" & table_x+left_width+le NGTH & "PX", & TABLE_Y+ALL_HEUST-Length-i & "px'To = '" & table_x+all_width+esquerd_width & "px" & table_y+all_height-i length-i & "px'strokecolor ='" & line_color & "'/>"
Response.Write "<v: lineid = '_ x0000_s1027'alt =' 'style =' posição: absoluto; esquerda: 0; text-align: esquerda; topo: 0; flip: y; z- Índice: -1'from = '"& tabela_x+(esquerd_width-15) &" px "e tabela_y+i &" px'to =' "& tabela_x+left_width &" px "& table_y+i &" px '/> "
Response.Write ""
Response.Write "<V: ShapId = '_ X0000_S1025'Type ='#_ x0000_T202'alt = '' style = 'Posição: Absolute; esquerda:" & table_x & "px; top:" & tabela_y+i & "px; width:" e esquerda: 1width & "px;
Response.Write "<V: textBoxinset = '0px, 0px, 0px, 0px'> <tablecellspacing = '3'CellPadding =' 0'Width = '100%' altura = '100%'> <tdalign = 'direita'>" & temp4 & "</td> </tr>
temp4 = temp4-temp3/5
próximo
Response.Write "<v: lineid = '_ x0000_s1027'alt =' 'style =' Posição: absoluto; esquerda: 0; text-align: esquerda; topo: 0; flip: y; z-index: -1'fro m = '"& tabela_x+esquerd_width &" px "& table_y+all_height &" px'to =' "& table_x+all_width+left_width &" px "& table_y+all_height &" px '/> "