Recomendado: Estatísticas do tempo de execução do código do programa ASP Na primeira vez em que escrevo uma classe ASP, implemento funções: Programa de Estatística segmentada Tempo de execução, tabela de estatísticas de saída, etc. Código do programa: A seguir, o conteúdo referenciado: classe CCCLSProcessTimeCorder ''
| A seguir, o conteúdo citado: <% função tabela2 (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 o gráfico de 2 linhas do gráfico 'Autor: Gong Ming (PasswordGM) QQ: 25968152 MSN: [email protected] E -mail: [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 para i = 1 para total_no para j = 1 para linha_no se temp1 <total (i, j) então temp1 = total (i, j) próximo próximo temp1 = int (temp1) Se temp1> 9 então temp2 = médio (cstr (temp1), 2,1) Se temp2> 4 então 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) final se outro Se temp1> 4 então temp3 = 10 else temp3 = 5 final se temp4 = temp3 Response.Write <V: RET ID = '_X0000_S1027' alt = '' style = 'Posição: Absolute; esquerda: & tabela_x esquerd_width & px; top: & tabela_y & px; largura: & all_width & px; altura: & all_height & px; z-index: --1' enchornolor 'ângulo =' -45 'focus =' 100% 'tipo =' gradiente '/> </v: ret> para i = 0 a All_Height-1 Etapa all_Height/5 Response.Write <V: Linha id = '_x0000_s1027' alt = '' style = 'Posição: Absolute; esquerda: 0; Text-align: esquerda; topo: 0; flip: y; z-index: -1' de = '& tabela_x left_width length & px & tabela_y All_Height-lngen-i & px' esquerd_width & px, & tabela_y all_height-comprimento-i & px 'strokecolor =' & line_color & '/> Response.Write <V: Linha id = '_x0000_s1027' alt = '' style = 'Posição: absoluto; esquerda: 0; text-align: esquerda; topo: 0; flip: y; z-index: -1' de = '& tabela_x (lesft_width-15) e px, & tabela_y e px' para = '' '' & TABLEIA/TAKLE_X (MATKLET_WIDTH-15) & PX, & TABLE_Y I & PX 'TO =' '' Response.Write Response.Write <V: Shape ID = '_X0000_S1025' TIPO = '#_X0000_T202' ALT = '' SILE = 'POSIÇÃO: Absoluto; esquerda: & tabela_x & px; top: & table_y i & px; largura: & left_width & px; altura: 18px; Z-Index: 1'> Response.Write <V: TextBox Inset = '0px, 0px, 0px, 0px'> <Tabela CellPacing = '3' CellPadding = '0' width = '100%' altura = '100%'> <tr> <td align = 'direita'> & tex4 & </td> </tr> </tabela <//vd temp4 = temp4-temp3/5 próximo Response.Write <V: Linha id = '_x0000_s1027' alt = '' style = 'Posição: Absoluto; esquerda: 0; Texto-alinhamento: esquerda; topo: 0; flip: y; z-index: -1' de = '& tabela_x left_width & px, & tabela_y All_Height & px' para = '' & all_height & px '/> Response.Write <V: Linha id = '_x0000_s1027' alt = '' style = 'Posição: absoluto; esquerda: 0; text-align: esquerda; topo: 0; flip: y; z-index: -1' de = '& table_x left_width & px, & px & px' para = '&_x Dim line_code Redim line_code (line_no, 5) para i = 1 para 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 para linha_no para i = 1 para total_no-1 x1 = tabela_x esquerd_width all_width*(i-1)/total_no y1 = tabela_y (temp3-total (i, j))*(all_height/temp3) x2 = tabela_x esquerd_width all_width*i/total_no y2 = tabela_y (temp3-total (i 1, j))*(all_height/temp3) Response.Write <V: Linha id = _x0000_s1025 alt = style = 'Posição: Absoluto; esquerda: 0; Text-align: esquerda; topo: 0; z-index: 1' de = & x1 & px, & y1 e px para = & x2 e px, & y y px e coordinates = 21600,216610 StrokeWeight = & line_code (J, 2) &> Selecione 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 mais final Selecione Response.Write </V: Line> & Ch (13) Selecione Case Line_code (J, 4) Caso 1 Caso 2 Response.Write <V: Rect id = _x0000_s1027 style = 'Posição: Absolute; esquerda: & x1-2 & px; topo: & y1-2 e px; largura: 4px; altura: 4px; z-index: 2' Fillcolor = & line_code (j, 1) & strokecolor = & line_code (2 ' Caso 3 Response.Write <V: ID oval = _x0000_S1026 style = 'Posição: Absolute; esquerda: & x1-2 & px; topo: & y1-2 e px; largura: 4px; altura: 4px; z-index: 1' Fillcolor = & line_code (j, 1) e strokecolor = & line_code (1 ' final Selecione próximo Selecione Case Line_code (J, 4) Caso 1 Caso 2 Response.Write <V: RET ID = _X0000_S1027 Style = 'Posição: Absolute; esquerda: & x2-2 e px; topo: & y2-2 e px; largura: 4px; altura: 4px; z-index: 2' Fillcolor = & line_code (J, 1) & Strokecolor = & line_code (2 ' Caso 3 Response.write <V: ID oval = _x0000_S1026 estilo = 'Posição: Absolute; esquerda: & x2-2 e px; topo: & y2-2 e px; largura: 4px; altura: 4px; z-index: 1' FillColor = & line_code (j, 1) e strokecolor = & line_code (1 ' final Selecione próximo para i = 1 para total_no Response.Write <V: Linha id = '_x0000_s1027' alt = '' style = 'Posição: absoluto; esquerda: 0; text-align: esquerda; topo: 0; flip: y; z-index: -1' de = '& tabela_x left_width all_width*(i-1)/total_no e px, & px, & table_x lesft_width all_width*(i-1)/total_no & px, & tabela_y all_height 15 & px '/> Response.Write Response.Write <V: Shape ID = '_X0000_S1025' type = '#_X0000_T202' alt = '' style = 'Posição: absoluto; esquerda: & tabela_x esquerd_width all_width*(i-1)/total_no & px; all_height & px; largura: & all_width/total_no & px; altura: 18px; z-index: 1 '> Response.Write <V: TextBox Inset = '0px, 0px, 0px, 0px'> <Tabela CellPacing = '3' CellPadding = '0' width = '100%' altura = '100%'> <tr> <td align = 'esquerda' e total (i, 0) & </td> </tr> próximo tb_height = 30 Response.Write <V: RET ID = '_X0000_S1025' style = 'Posição: Absoluto; esquerda: & tabela_x all_width 20 & px; top: & table_y & px; largura: 100px; altura: & line_no*tb_height 20 & px; z-Index: 1'/> para i = 1 para line_no Response.Write <V: Shape ID = '_X0000_S1025' type = '#_x0000_T202' alt = '' style = 'Posição: Absolute; esquerda: & table_x all_width 25 & px; top: & tabela_y 10 (i-1)*tb_height & px; width: 60px; Response.Write <V: TextBox Inset = '0px, 0px, 0px, 0px'> <tabela CellPacing = '3' CellPadding = '0' width = '100%' Hight = '100%'> <tr> <td align = 'esquerd'> & line_code (i, 5) & </td> </trd> Response.Write <V: RET ID = '_X0000_S1040' alt = '' style = 'Posição: Absolute; esquerda: & tabela_x all_width 80 & px; top: & tabela 10 (i-1)*tb_height 4 & px; largura: 30px; altura: 20px; z-index: 1' preenchimento '& line_code (i, 1) &' girtate = 't' focus = '100%' tipo = 'gradiente'/> </v: ret> próximo Função final %> <% função tabela1 (total, tabela_x, tabela_y, espessura, tabela_width, all_width, all_height, table_type) 'Significado do parâmetro (matriz passada, coordenada horizontal, coordenada vertical, espessura da coluna, largura da coluna, largura do gráfico, altura do gráfico, tipo de gráfico) 'Código ASP puro gera função do gráfico 1 - gráfico de barras 'Autor: Gong Ming (PasswordGM) QQ: 25968152 MSN: [email protected] E -mail: [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 2.0 Última data modificada 2003-7-22 '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. 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 esquerd_width = 70 comprimento = espessura/2 Total_no = ubund (total, 1) temp1 = 0 para i = 1 para total_no Se temp1 <total (i, 1) então temp1 = total (i, 1) próximo temp1 = int (temp1) Se temp1> 9 então temp2 = médio (cstr (temp1), 2,1) Se temp2> 4 então 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) final se outro Se temp1> 4 então temp3 = 10 else temp3 = 5 final se temp4 = temp3 Response.Write <!-[Se GTE VML 1]> <V: RET ID = '_X0000_S1027' alt = '' style = 'Posição: Absolute; esquerda: & tabela_x esquerd_width & px; Top: & TABLE_Y & PX; WLUTH: & All_Width & Px; Hight: & Al All_Height & Px; 'f'> <v: preencher girtate = 't' ângulo = '-45' foco = '100%' tipo = 'gradiente' // </v: ret> <! [endif]-> Response.Write <!-[Se GTE VML 1]> <V: Linha id = '_x0000_s1027' alt = '' style = 'Posição: Absolute; esquerda: 0; Text-align: esquerdo; top: 0; Flip: y; z-index: -1' de = '& table_x left_width & px, e tabela_y; esquerd_width & px, & tabela_y all_height & px '/> <! [endif]-> response.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&px ' to= '&table_x left_width&px,&table_y all_height & px '/> <! [endif]-> Selecione Case Table_type caso a tabela_space = (all_width-table_width*total_no)/total_no Response.Write <!-[Se GTE VML 1]> <V: Linha id = '_x0000_s1027' alt = '' style = 'Posição: Absolute; esquerda: 0; Text-align: esquerda; top: 0; Flip: y; z-index: -1' de = '& TABLE_X LEFT_WIDTHTH & PX, & TABLISE__T TABLICA & TABLICA: comprimento & px, & tabela_y all_height-comprimento & px 'strokecolor =' & line_color & '/> <! [endif]-> para i = 0 a All_Height-1 Etapa all_Height/5 Response.Write <!-[Se GTE VML 1]> <V: Linha id = '_x0000_s1027' alt = '' style = 'Posição: Absolute; esquerda: 0; Text-align: esquerda; topo: 0; Flip: y; z-index: -1' de = '& table_x left-lwidth & px, e tabela e tabela e tabela e tabela e tabela e tabela e tabela e px e px e px e px. comprimento & px, & tabela_y all_height-i & px 'strokecolor =' & line_color & '/> <! [endif]-> Response.Write <!-[Se GTE VML 1]> <V: Linha id = '_x0000_s1027' alt = '' style = 'Posição: Absolute; esquerda: 0; Text-align: esquerda; topo: 0; Flip: y; Z-index: -1' de = '& table_x Left-lengthth & px, & tabela, & TABLEY ALL e TABLEATH & TABLEATH & TABLEATH & TABLEATH & TABLICATH & TABLICA: all_width esquerd_width & px, & tabela_y all_height-length-i & px 'strokecolor =' & line_color & '/> <! [endif]-> Response.Write <!-[Se GTE VML 1]> <V: Linha id = '_x0000_s1027' alt = '' style = 'Posição: absoluto; esquerda: 0; text-align: esquerda; top: 0; flip: y; z-index: -1' de = '& table_x (esquerda' Towidth-15) & px esquerd_width & px, & tabela_y i & px '/> <! [endif]-> Response.Write <!-[Se GTE VML 1]> Response.Write <V: Shape ID = '_X0000_S1025' TIPO = '#_X0000_T202' ALT = '' SILE = 'POSIÇÃO: Absoluto; esquerda: & tabela_x & px; top: & table_y i & px; largura: & left_width & px; altura: 18px; Z-Index: 1'> Response.Write <V: TextBox Inset = '0px, 0px, 0px, 0px'> <tabela CellPacing = '3' CellPadding = '0' width = '100%' Hight = '100%'> <tr> <td align = 'direita'> & temp4 & </td> </tr> </! temp4 = temp4-temp3/5 próximo para i = 1 para total_no temp_space = tabela_x esquerd_width tabela_space/2 tabela_space*(i-1) tabela_width*(i-1) Response.Write <V: RET ID = '_X0000_S1025' alt = '' style = 'Posição: Absolute; esquerda: Response.Write temp_space Response.write px; top: Response.Write tabela_y all_height*(1- (total (i, 1)/temp3)) Response.write px; largura: & tabela_width & px; altura: & all_Height*(total (i, 1)/temp3) e px; z-index: 1 'filmcolor =' & tb_color (i, 2) & '> Response.write <v: preencher color2 = '& tb_color (i, 1) &' girtate = 't' type = 'gradiente'/> Response.Write <O: Extrusion V: Ext = 'View' backdepth = '& espessura e pt' color = '& tb_color (i, 2) &' on = 't'/> Response.Write </V: Rect> Response.Write <V: Shape ID = '_X0000_S1025' type = '#_X0000_T202' alt = '' style = 'Posição: Absolute; esquerda: & temp_space & px; top: & tabela_y All_Height*(1- (Total, 1)/TEMP3)-TAPLE_SWACH & PX; 15 & px; Altura: 18px; Z-Index: 1 '> Response.Write <V: TextBox Inset = '0px, 0px, 0px, 0px'> <tabela CellPacing = '3' CellPadding = '0' width = '100%' altura = '100%'> <tr> <td align = 'Centre'> & total (i, 1) & </td> </tr> resposta.write <v: shape id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'posição: absoluto; esquerda: & temp_space-table_space/2 & px; top: & tabela_y all_height 1 e px; largura; & tabela_space_widtthththththththth & px; Response.Write <V: TextBox Inset = '0px, 0px, 0px, 0px'> <tabela CellPacing = '3' CellPadding = '0' width = '100%' altura = '100%'> <tr> <td align = 'Centre'> & total (i, 2) & </td> </tr> próximo Caso B. tabela_space = (all_height-table_width*total_no)/total_no Response.Write <!-[Se GTE VML 1]> <V: Linha id = '_x0000_s1027' alt = '' style = 'Posição: Absolute; esquerda: 0; Text-align: esquerda; topo: 0; Flip: y; z-index: -1' de = '& table_x esquerd_widthth & px, & tabela e tabela e tabela e tabela e tabela e tabela de tabela e lesft; all_width & px, & table_y all_height-comprimento & px 'strokecolor =' & line_color & '/> <! [endif]-> para i = 0 a all_width-1 step all_width/5 Response.Write <!-[Se GTE VML 1]> <V: Linha id = '_x0000_s1027' alt = '' style = 'Posição: Absolute; esquerda: 0; Text-align: esquerda; top: 0; flip: y; z-index: -1' de = '& table_x left_width i & px, & tabela, & tabela e tabela e tabela de tabela e tabela de esquerda; i & px, & tabela_y all_height & px 'strokecolor =' & line_color & ' /> <! [endif]-> Response.Write <!-[Se GTE VML 1]> <V: Linha id = '_x0000_s1027' alt = '' style = 'Posição: Absolute; esquerda: 0; Text-align: esquerda; topo: 0; Flip: y; z-index: -1' de = '& tabela_x esquerd_widthth i & px, zaguar comprimento i & px, & tabela_y & px 'strokecolor =' & line_color & ' /> <! [endif]-> Response.Write <!-[Se GTE VML 1]> <V: ID da linha = '_x0000_S1027' alt = '' style = 'Posição: Absolute; esquerda: 0; Text-align: esquerda; top: 0; Flip: y; Z-Index: -1' de = '& Table_x lefthth I All_width/ esquerd_width i all_width/5 & px, & table_y all_height 15 & px '/> <! [endif]-> Response.Write <!-[Se GTE VML 1]> Response.Write <V: Shape ID = '_X0000_S1025' TIPO = '#_X0000_T202' ALT = '' SILE = 'POSIÇÃO: Absoluto; esquerda: & tabela_x esquerd_width i all_width/5-left_width & px; topo e tabela_y all_height & px; Response.Write <V: TextBox Inset = '0px, 0px, 0px, 0px'> <tabela CellPacing = '3' CellPadding = '0' width = '100%' Hight = '100%'> <tr> <td align = 'direita'> & temp4 & </td> </tr> </! temp4 = temp4-temp3/5 próximo para i = 1 para total_no temp_space = tabela_space/2 tabela_space*(i-1) tabela_width*(i-1) Response.Write <V: RET ID = '_X0000_S1025' alt = '' style = 'Posição: Absolute; esquerda: Response.Write tabela_x esquerd_width Response.write px; top: Response.Write tabela_y temp_space Response.write px; largura: & all_width*(total (i, 1)/temp3) e px; altura: & tabela_width & px; z-index: 1 'filmcolor =' & tb_color (i, 2) & '> Response.write <v: preenche color2 = '& tb_color (i, 1) &' girtate = 't' ângulo = '-90' focus = '100%' tipo = 'gradiente'/> Response.Write <O: Extrusion V: Ext = 'View' backdepth = '& espessura e pt' color = '& tb_color (i, 2) &' on = 't'/> Response.Write </V: Rect> Response.Write <V: Shape ID = '_X0000_S1025' TIPO = '#_X0000_T202' ALT = '' STILO = 'Posição: Absoluto; esquerda: & tabela_x esquerd_width All_width*(Total (i, 1)/temp3) espessura/2 e px; top: & tabela_ysp_space & wlumpth & 1)/temp3) espessura; 15 & px; Altura: 18px; Z-Index: 1 '> Response.Write <V: TextBox Inset = '0px, 0px, 0px, 0px'> <tabela CellPacing = '3' CellPadding = '0' width = '100%' altura = '100%'> <tr> <td align = 'Centre'> & total (i, 1) & </td> </tr> Response.Write <V: Shape ID = '_X0000_S1025' type = '#_x0000_T202' alt = '' style = 'Posição: Absolute; esquerda: & table_x & px; top: & table_y temp_space & px; width: & left_width & px; altura: 18px; Z-INDEX: Response.Write <V: TextBox Inset = '0px, 0px, 0px, 0px'> <tabela CellPacing = '3' CellPadding = '0' width = '100%' altura = '100%'> <tr> <td align = 'direita' e total (i, 2) & </td> </tr> próximo caso mais final Selecione Função final %> <% função tabela3 (total, tabela_x, tabela_y, all_width, all_height, tabela_type) 'Significado do parâmetro (matriz passada, coordenada horizontal, coordenada vertical, largura do gráfico, altura, tipo de gráfico) 'Função de 3-PIE de geração de código ASP puro 'Autor: Gong Ming (PasswordGM) QQ: 25968152 MSN: [email protected] E -mail: [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. 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 para total_no totalpie = totalpie total (i, 1) próximo Preangle = 0 para i = 1 para total_no resposta.write <v: shape id = '_x0000_s1025' alt = '' style = 'Posição: absoluto; esquerda: & tabela_x & px; top: & tabela_y & px; largura: & all_width & px; altura: & all_height & px; z-index: 1' coordinize = '1500,10,10,10.10: M750.700AE750.700.750.700, & INT (23592960*pré -sengle) &, & int (23592960*Total (i, 1)/totalpie) e Xe 'FillColor =' & Tb_Color (i, 1) e 'Strokolor =' #ffffffffffff. girate = 't' focus = '100%' tipo = 'gradiente'/> <v: stroke jointStyle = 'redond'/> <v: fórmulas/> <v: caminho o: connecttype = 'segmentos' // </v: forma> & ch (13) Preangle = Total do pré -seangle (i, 1)/totalpie próximo se tabela_type = a então Response.write <V: RET ID = '_X0000_S1025' style = 'Posição: Absoluto; esquerda: & tabela_x all_width 20 & px; top: & tabela_y 20 & px; largura: 100px; altura: & total_no*tb_height 20 & px; z-index: 1'/> para i = 1 para total_no Response.Write <V: Shape ID = '_X0000_S1025' TIPO = '#_X0000_T202' ALT = '' STILO = 'Posição: Absolute; esquerda: & tabela_x all_width 25 & px; top: & tabela_y 30 (i-1)*tb_height & px; width: 60px; altura; Response.Write <V: TextBox Inset = '0px, 0px, 0px, 0px'> <Tabela CellPacing = '3' CellPadding = '0' width = '100%' altura = '100%'> <tr> <td align = 'esquerda' e total (i, 0) & </td> </tr> Response.Write <V: RET ID = '_X0000_S1040' alt = '' style = 'Posição: Absolute; esquerda: & tabela_x all_width 80 & px; top: & tabela 30 (i-1)*tb_height 3 & px; largura: 30px; altura: 20px; z-index: 1' enchornlor; color2 = '& tb_color (i, 2) &' girate = 't' focus = '100%' tipo = 'gradiente'/> </v: ret> 'Exiba a proporção 'Response.Write <V: Shape ID =' _X0000_S1025 'type ='#_x0000_T202 'alt =' 'style =' Posição: Absolute; esquerda: & tabela_x all_width 110 & px; topo: & tabela_y 30 (i-1)*TB_HEIGN & PX; WILTH: 60px; altura: e altura: & TB_Height & PX; Warth; 'Response.Write <V: TextBox Inset =' 0px, 0px, 0px, 0px '> <tabela CellPacing =' 3 'CellPadding =' 0 'Width =' 100% 'Hight =' 100% '> <tr> <td align =' esquerda = esquerda '> & FormatNumber (Total (i, 1)*100/totalpie, 2, -1) &%</td> </tr> </table> </tabela> </V: TextBox> </v: Shape> próximo final se se tabela_type = b então PIE = 3.14159265358979 Temppie = 0 para i = 1 para total_no Tempangle = torta*2*(total (i, 1)/(totalpie*2) temppie) x1 = tabela_x all_width/2 cos (tempangle)*all_width*3/8 y1 = tabela_y all_height/2-sin (tempangle)*all_height*3/8 x2 = tabela_x all_width/2 cos (tempangle)*all_width*3/4 y2 = tabela_y all_height/2-sin (tempangle)*all_height*3/4 Se x2> tabela_x all_width/2 então x3 = x2 20 x4 = x3 outro x3 = x2-20 x4 = x3-100 final se Response.Write <V: Oval ID = '_X0000_S1027' style = 'Posição: Absolute; esquerda: & x1-2 & px; topo: & y1-2 & px; largura: 4px; altura: 4px; z-index: 2' FillColor = '#111111' STROKOLOR = '#111111'/ Response.Write <V: Linha id = '_x0000_s1025' alt = '' style = 'Posição: Absolute; esquerda: 0; Texto-alinhamento: esquerda; topo: 0; Z-Index: 1' de = '& x1 e px, & y1 e px' para = '& x2 & px, & y2 & px' coordinatesize StrokeWeight = '1px'> </V: linha> Response.Write <V: Linha id = '_x0000_s1025' alt = '' style = 'Posição: Absolute; esquerda: 0; Texto-alinhamento: esquerda; topo: 0; z-index: 1' de = '& x2 & px, & y2 & px' para = '& x3 & px, & y2 & px' coordinatesize StrokeWeight = '1px'> </V: linha> Response.Write <V: Shape ID = '_X0000_S1025' TYPE = '#_X0000_T202' ALT = '' SILE = 'Posição: Absolute; esquerda: & x4 & px; top: & y2-10 & px; largura: 100px; altura: 20px; z-index: 1'>> Response.Write <V: TextBox Inset = '0px, 0px, 0px, 0px'> <tabela CellPacing = '3' CellPadding = '0' width = '100%' altura = '100%'> <tr> <td align = 'esquerda'> & total (i, 0) & & formatNumber (total (i, 1)*100/totalpie, 2, -1) &%</td> </tr> </tabela> </table> </v: textbox> </ v: shape> Temppie = Temppie Total (i, 1)/Totalpie próximo final se Função final %> Função do gráfico de geração de código ASP puro - Exemplo de chamada 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) = Notícias de negócios da China Total (2,2) = site de recrutamento Total (3,2) = 51JOB Total (4,2) = Xinmin Notícias noturnas Total (5,2) = Notícias notícias Total (6,2) = fim de semana do sul Total (7,2) = Yangcheng Evening News total_no = 7 %> <html xmlns: v = urn: schemas-microsoft-com: vml xmlns: o = urn: esquemas-microsoft-com: office: office> <!-[se! mso]> <estilo> v/:* {comportamento: url (#padrão#vml)} o/:* {Comportamento: url (#padrão#vml)} .Shape {comportamento: url (#padrão#vml)} </style> <! [endif]-> <head> <meta http-equiv = content-type content = text/html; charset = gb2312> <Title> </title> <estilo> Td {font-size: 9pt} </style> </head> <corpo topmargin = 5 esquerdmargin = 0 roll = auto> <L Tabela1 (Total, 200,20,20,30.400.200, a)%> <L Tabela1 (Total, 200,320,20.20.400.250, B)%> </body> </html> |
Compartilhar: o código guia a implementação de FTP e descompressão usando asp Trojans Eu acho que todo mundo tem alguns frangos de corte com o porto 80. Se for doméstico, não procure segurança. Se você não quiser olhar para baixo, também pode olhar para baixo. Eu sou tão feio por tentar atrair a atenção. A coisa mais problemática sobre colocar um site em um frango é atualizar e fazer upload de um grande número de arquivos.