Recommandé: ASP Program Code Exécution Time Statistics La première fois que j'écris une classe ASP, les fonctions d'implémentation: Temps d'exécution du programme de statistiques segmentées, Tableau de statistiques de sortie, etc. Code du programme: Ce qui suit est le contenu référencé: Classe CCCLSProcessTimeRecorder ''
| Ce qui suit est le contenu cité: <% Fonction Table2 (Total, Table_X, Table_Y, All_Width, All_Height, Line_No) «Signification des paramètres (tableau passé, coordonnées horizontales, coordonnées verticales, largeur du graphique, hauteur du graphique, nombre de lignes) «Le code ASP pur génère la fonction du graphique à 2 lignes 'Auteur: Gong Ming (PasswordGM) QQ: 25968152 MSN: mot de [email protected] Courriel: mot de [email protected] «Je suis très disposé à communiquer et à discuter avec ASP, VML et passionnés de flash sur http://topclouds.126.com 'Version 1.0 Dernière date modifiée 2003-8-11 «Merci beaucoup d'avoir utilisé cette fonction. Veuillez conserver les informations sur le droit d'auteur lors de l'utilisation et de la réimpression. C'est le meilleur respect pour le travail de l'auteur. line_color = # 69f Left_Width = 70 Total_no = ubund (total, 1) temp1 = 0 pour i = 1 à total_no pour j = 1 à line_no Si temp1 <total (i, j) alors temp1 = total (i, j) suivant suivant temp1 = int (temp1) Si temp1> 9 alors temp2 = mid (cSTR (temp1), 2,1) Si temp2> 4 alors TEMP3 = (int (temp1 / (10 ^ (Len (Cstr (temp1)) - 1))) 1) * 10 ^ (Len (Cstr (temp1)) - 1) autre TEMP3 = (int (temp1 / (10 ^ (Len (Cstr (temp1)) - 1))) 0,5) * 10 ^ (Len (Cstr (temp1)) - 1) terminer si autre Si temp1> 4 alors TEMP3 = 10 else TEMP3 = 5 terminer si temp4 = TEMP3 Response.write <v: rect id = '_x0000_s1027' alt = '' style = 'position: Absolute; Left: & table_x Left_width & px; top: & table_y & px; width: & all_width & px; height: & all_height' rotate = 't' angle = '-45' focus = '100%' type = 'gradient' /> </ v: rect> pour i = 0 à all_height-1 étape all_height / 5 réponse.write <v: line id = '_x0000_s1027' alt = '' style = 'position: absolue; Left: 0; text-align: Left; top: 0; flip: y; z-index: -1' from = '& table_x Left_width le long & px, & table_y all_height-longueur-i & px' to = '& table_x all_width Left_width & px, & table_y all_height-lingth-i & px 'strokecolor =' & line_color & '/> Response.write <v: ligne 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 i & px 'to-=' & table_x gauche '/> réponse. Response.write <v: forme id = '_x0000_s1025' type = '# _x0000_t202' alt = '' style = 'Position: Absolute; Left: & table_x & px; top: & table_y i & px; width: & Left_width & px; hauteur: 18px; z-index: 1'> Response.Write <V: TextBox inset = '0px, 0px, 0px, 0px'> <table Cellpacing = '3' cellpadding = '0' width = '100%' height = '100%'> <tr> <td align = 'droite'> & temp4 & </ td> </tr> </ table> </v: textbox> </ph: temp4 = temp4-Temp3 / 5 suivant réponse.write <v: ligne id = '_x0000_s1027' alt = '' style = 'position: absolue; gauche: 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 gauche all_height & px '/> 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 & px' to '& table_x Left_width & px, & table_y all_height & px' />>>>>>>>>>>>>>>>> " DIM LINE_CODE redim line_code (line_no, 5) pour 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) suivant pour j = 1 à line_no pour i = 1 à total_no-1 x1 = table_x Left_width all_width * (i-1) / total_no y1 = table_y (TEMP3-TOTAL (I, J)) * (ALL_HEIGHT / TEMP3) x2 = table_x Left_width all_width * i / total_no y2 = table_y (TEMP3-TOTAL (I 1, J)) * (all_height / temp3) Response.Write <v: ligne 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 coordonate = 21600,21600 StrokeColor TRADWEMPLE = & LINE_CODE (J, 2) &> Sélectionnez Case Line_code (J, 3) cas 1 cas 2 Response.Write <V: trait dashstyle = '1 1' /> cas 3 Response.Write <v: trait dashstyle = 'dash' /> cas 4 Response.Write <v: trait dashstyle = 'dashdot' /> cas 5 Response.Write <v: trait dashstyle = 'longdash' /> cas 6 Response.Write <v: trait dashstyle = 'longdashdot' /> cas 7 Response.Write <v: trait dashstyle = 'longdashdotdot' /> cas d'autre fin de sélection Response.Write </ V: Line> & Chr (13) Sélectionnez Case Line_code (J, 4) cas 1 cas 2 réponse.write <v: rect id = _x0000_s1027 style = 'position: absolu; gauche: & x1-2 & px; top: & y1-2 & px; width: 4px; height: 4px; z-index: 2' fillcolor = & line_code (j, 1) & strokecolor = & line_code (j, 1) &> & ch (13) cas 3 Response.Write <v: ovale id = _x0000_s1026 style = 'position: absolu; gauche: & x1-2 & px; top: & y1-2 & px; width: 4px; height: 4px; z-index: 1' fillcolor = & line_code (j, 1) & strokecolor = & line_code (j, 1) &> & ch (13) fin de sélection suivant Sélectionnez Case Line_code (J, 4) cas 1 cas 2 réponse.write <v: rect id = _x0000_s1027 style = 'position: absolu; gauche: & x2-2 & px; top: & y2-2 & px; width: 4px; height: 4px; z-index: 2' fillcolor = & line_code (j, 1) & strokecolor = & line_code (j, 1) & /> & ch (13) cas 3 Response.Write <v: ovale id = _x0000_s1026 style = 'position: absolu; gauche: & x2-2 & px; top: & y2-2 & px; width: 4px; height: 4px; z-index: 1' fillcolor = & line_code (j, 1) & strokecolor = & line_code (j, 1) &> & ch (13) fin de sélection suivant pour i = 1 à total_no Response.write <v: ligne id = '_x0000_s1027' alt = '' style = 'position: absolue; gauche: 0; text-align: gauche; top: 0; flip: y; z-index: -1' de = '& table_x Left_width all_width * (i-1) / total_x, & table_y all_height & px' all_width * (i-1) / total_no & px, & table_y all_height 15 & px '/> réponse. réponse.write <v: forme id = '_x0000_s1025' type = '# _x0000_t202' alt = '' style = 'position: absolue; Left: & table_x Left_width all_width * (i-1) / total_no & px; top: & table_y all_height & px; largeur: & all_width / total_no & px; hauteur: 18px; z-index: 1 '> Response.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> </pable> </v: Textbox> suivant tb_height = 30 Response.write <v: rect id = '_x0000_s1025' style = 'position: absolue; Left: & table_x all_width 20 & px; top: & table_y & px; width: 100px; height: & line_no * tb_height 20 & px; z-index: 1' /> pour i = 1 à line_no Response.Write <v: Forme 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; width: 60px; height: & tb_height & px; z-nex: 1' Response.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> </ TABLE> </v: Textbox> Response.write <v: rect id = '_x0000_s1040' alt = '' style = 'position: absolue; gauche: & table_x all_width 80 & px; top: & table_y 10 (i-1) * tb_height 4 & px; width: 30px; height: 20px; z-index: 1' fillcolor = '& line_code (i, <V: 1' flomcolor = '& line_code (i, <V: 1' flomcolor = '& line_code (i, 1) & <v: 1' flomcolor = '& line_code. Color2 = '& line_code (i, 1) &' rotate = 't' focus = '100%' type = 'gradient' /> </v: rect> suivant fonction finale %> <% Fonction Table1 (Total, Table_X, Table_Y, Épaisseur, table_width, all_width, all_height, table_type) 'Signification des paramètres (tableau passé, coordonnées horizontales, coordonnées verticales, épaisseur de colonne, largeur de la colonne, largeur du graphique, hauteur du graphique, type de graphique) «Le code ASP pur génère la fonction du graphique 1 - graphique à barres 'Auteur: Gong Ming (PasswordGM) QQ: 25968152 MSN: mot de [email protected] Courriel: mot de [email protected] «Je suis très disposé à communiquer et à discuter avec ASP, VML et passionnés de flash sur http://topclouds.126.com 'Version 2.0 Dernière date modifiée 2003-7-22 «Merci beaucoup d'avoir utilisé cette fonction. Veuillez conserver les informations sur le droit d'auteur lors de l'utilisation et de la réimpression. C'est le meilleur respect pour le travail de l'auteur. 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 longueur = épaisseur / 2 Total_no = ubund (total, 1) temp1 = 0 pour i = 1 à total_no Si temp1 <total (i, 1) alors temp1 = total (i, 1) suivant temp1 = int (temp1) Si temp1> 9 alors temp2 = mid (cSTR (temp1), 2,1) Si temp2> 4 alors TEMP3 = (int (temp1 / (10 ^ (Len (Cstr (temp1)) - 1))) 1) * 10 ^ (Len (Cstr (temp1)) - 1) autre TEMP3 = (int (temp1 / (10 ^ (Len (Cstr (temp1)) - 1))) 0,5) * 10 ^ (Len (Cstr (temp1)) - 1) terminer si autre Si temp1> 4 alors TEMP3 = 10 else TEMP3 = 5 terminer si temp4 = TEMP3 Response.Write <! - [Si gte vml 1]> <v: rect id = '_x0000_s1027' alt = '' style = 'position: absolu; Left: & table_x Left_Width & px; top: & table_y & px; width: & all_width & px; height: & all_height & px; z-index: -1' Stroked = 'F'> <v: remplir rotate = 't' angle = '-45' focus = '100%' type = 'gradient' // </v: rect> <! [endif] -> Response.write <! - [Si gte vml 1]> <v: ligne id = '_x0000_s1027' alt = '' style = 'position: absolue; gauche: 0; text-align: gauche; top: 0; flip: y; z-index: -1' de = '& table_x Left_width & px, & table_y all_height & px' Left_width & px, & table_y all_height & px '/> <! [endif] -> Response.write <! - [Si gte vml 1]> <v: ligne id = '_x0000_s1027' alt = '' style = 'position: absolue; Left: 0; text-align: Left; top: 0; flip: y; z-index: -1' de = '& table_x Left_width & px, & table_y & px' to = '& table_x Left_width & px, & table_y all_height & px '/> <! [endif] -> Sélectionner la table de case_type cas A table_space = (all_width-table_width * total_no) / total_no Response.write <! - [Si gte vml 1]> <v: ligne id = '_x0000_s1027' alt = '' style = 'position: absolue; gauche: 0; text-align: gauche; top: 0; flip: y; z-index: -1' de = '& table_x Left_width le long & px, & table_y & pix' Length & px, & table_y all_height-lingth & px 'strokecolor =' & line_color & '/> <! [endif] -> pour i = 0 à all_height-1 étape all_height / 5 Response.write <! - [Si gte vml 1]> <v: ligne id = '_x0000_s1027' alt = '' style = 'position: absolu; gauche: 0; text-align: Left; top: 0; flip: y; z-index: -1' de = '& table_x Left_width & px, & table_y all_height-longueur-i & px' to = ' Left_Width Length & PX, & Table_y all_height-i & px 'strokeColor =' & line_color & '/> <! [endif] -> Response.write <! - [Si gte vml 1]> <v: ligne id = '_x0000_s1027' alt = '' style = 'position: absolue; gauche: 0; text-align: Left; top: 0; flip: y; z-index: -1' de = '& table_x Left_width le long & px, & table_y all_height-longueng all_width Left_width & px, & table_y all_height-lingth-i & px 'strokecolor =' & line_color & '/> <! [endif] -> Response.Write <! - [Si gte vml 1]> <v: ligne id = '_x0000_s1027' alt = '' style = 'position: absolue; gauche: 0; text-align: Left; top: 0; flip: y; z-index: -1' de = '& table_x (Left_width-15) & px, & table_y i & px' Left_width & px, & table_y i & px '/> <! [endif] -> réponse.write <! - [Si gte vml 1]>> Response.write <v: forme id = '_x0000_s1025' type = '# _x0000_t202' alt = '' style = 'Position: Absolute; Left: & table_x & px; top: & table_y i & px; width: & Left_width & px; hauteur: 18px; z-index: 1'> 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> </pable> </v: textbox> </v: forme> <! temp4 = temp4-Temp3 / 5 suivant pour i = 1 à total_no temp_space = table_x Left_width table_space / 2 table_space * (i-1) table_width * (i-1) réponse.write <v: rect id = '_x0000_s1025' alt = '' style = 'position: absolue; gauche: réponse.write temp_space Response.Write PX; Top: réponse.write table_y all_height * (1- (total (i, 1) / temp3)) réponse.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: remplissage Color2 = '& tb_color (i, 1) &' rotate = 't' type = 'gradient' /> Response.Write <O: Extrusion V: ext = 'View' backdepth = '& épaisseur & pt' color = '& tb_color (i, 2) &' on = 't' /> réponse.write </v: rect> réponse.write <v: forme id = '_x0000_s1025' type = '# _x0000_t202' alt = '' style = 'position: absolue; Left: & temp_space & px; top: & table_y all_height * (1- (total (i, 1) / temp3)) - table_width & px; width: & table_space_space 15 & px; hauteur: 18px; z-index: 1 '> Response.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> </pable> </v: Textbox> Response.write <v: forme 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: hight: 18px; z-nex: 1' Response.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> </pable> </v: Textbox> suivant Cas B table_space = (all_height-table_width * total_no) / total_no Response.write <! - [Si gte vml 1]> <v: ligne id = '_x0000_s1027' alt = '' style = 'position: absolue; gauche: 0; text-align: gauche; top: 0; flip: y; z-index: -1' de = '& table_x Left_width le long & px, & table_y all_height-longueur & px' Left_width all_width & px, & table_y all_height-lingth & px 'strokeColor =' & line_color & '/> <! [endif] -> pour i = 0 à all_width-1 étape all_width / 5 Response.write <! - [Si gte vml 1]> <v: ligne id = '_x0000_s1027' alt = '' style = 'position: absolue; gauche: 0; text-align: Left; top: 0; flip: y; z-index: -1' de = '& table_x Left_width i & px, & table_y all_height-longueur & px' Left_Width Longueur i & px, & table_y all_height & px 'strokeColor =' & line_color & '/> <! [endif] -> Response.write <! - [Si gte vml 1]> <v: ligne id = '_x0000_s1027' alt = '' style = 'position: absolue; gauche: 0; text-align: gauche; top: 0; flip: y; z-index: -1' de = '& table_x gauche_ Left_Width Longueur i & px, & table_y & px 'strokeColor =' & line_color & '/> <! [endif] -> Response.Write <! - [Si gte vml 1]> <v: ligne id = '_x0000_s1027' alt = '' style = 'position: absolu; gauche: 0; text-align: gauche; top: 0; flip: y; z-index: -1' de = '& table_x Left_width i all_width / 5 & px, & table_y tout_ '& table_x Left_width i all_width / 5 & px, & table_y all_height 15 & px' /> <! [endif] -> réponse.write <! - [Si gte vml 1]>> Response.Write <V: Forme 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; '> 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> </pable> </v: textbox> </v: forme> <! temp4 = temp4-Temp3 / 5 suivant pour i = 1 à total_no temp_space = table_space / 2 table_space * (i-1) table_width * (i-1) réponse.write <v: rect id = '_x0000_s1025' alt = '' style = 'position: absolue; gauche: réponse.write table_x Left_width Response.Write PX; Top: réponse.write table_y temp_space réponse.write px; largeur: & all_width * (total (i, 1) / temp3) & px; hauteur: & table_width & px; z-index: 1 'fillcolor =' & tb_color (i, 2) & '> Response.Write <v: remplissage Color2 = '& tb_color (i, 1) &' rotate = 't' angle = '-90' focus = '100%' type = 'gradient' /> Response.Write <O: Extrusion V: ext = 'View' backdepth = '& épaisseur & pt' color = '& tb_color (i, 2) &' on = 't' /> réponse.write </v: rect> réponse.write <v: forme id = '_x0000_s1025' type = '# _x0000_t202' alt = '' style = 'position: absolue; Left: & table_x Left_width all_width * (total (i, 1) / temp3) Empipness / 2 & px; top: & table_y temp_space & px; width: & table_space; 15 & px; hauteur: 18px; z-index: 1 '> Response.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> </pable> </v: Textbox> Response.write <v: forme id = '_x0000_s1025' type = '# _x0000_t202' alt = '' style = 'Position: Absolute; Left: & table_x & px; top: & table_y temp_space & px; width: & Left_width & px; height: 18px; z-index: 1'> Response.Write <V: TextBox inset = '0px, 0px, 0px, 0px'> <table cellpacing = '3' cellpadding = '0' width = '100%' height = '100%'> <tr> <td align = 'droite'> & total (i, 2) & </td> </tr> </pable> </v: Textbox> suivant cas d'autre fin de sélection fonction finale %> <% Fonction Table3 (Total, table_x, table_y, all_width, all_height, table_type) 'Signification des paramètres (tableau passé, coordonnées horizontales, coordonnées verticales, largeur du graphique, hauteur, type de graphique) `` Pure ASP Code Generation Fonction Fonction à 3 nages 'Auteur: Gong Ming (PasswordGM) QQ: 25968152 MSN: mot de [email protected] Courriel: mot de [email protected] «Je suis très disposé à communiquer et à discuter avec ASP, VML et passionnés de flash sur http://topclouds.126.com 'Version 1.0 Dernière date modifiée 2003-8-11 «Merci beaucoup d'avoir utilisé cette fonction. Veuillez conserver les informations sur le droit d'auteur lors de l'utilisation et de la réimpression. C'est le meilleur respect pour le travail de l'auteur. 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 pour i = 1 à total_no TotalPie = TotalPie Total (I, 1) suivant Préangle = 0 pour i = 1 à total_no Response.write <v: forme id = '_x0000_s1025' alt = '' style = 'position: absolue; gauche: & table_x & px; top: & table_y & px; width: & all_width & px; height: & all_height & px; z-index: 1' coordonize = '1500,1400' o: Spt = 'cordue =' 0 '1500,1400' 'M750,700AE750,700,750,700, & int (23592960 * préangle) &, & int (23592960 * Total (i, 1) / totalpie) & xe' fillcolor = '& tb_color (i, 1) &' strokecolor = '#ffff'> <v: fill colore2 = ' rotate = 't' focus = '100%' type = 'gradient' /> <v: tram joinStyle = 'Round' /> <v: Formules /> <v: chemin o: connectType = 'segments' // </v: forme> & chr (13) Préangle = préangle total (i, 1) / totalpie suivant Si table_type = a alors Response.write <v: rect id = '_x0000_s1025' style = 'position: absolue; Left: & table_x all_width 20 & px; top: & table_y 20 & px; width: 100px; height: & total_no * tb_height 20 & px; z-index: 1' /> pour i = 1 à total_no Response.write <v: forme id = '_x0000_s1025' type = '# _x0000_t202' alt = '' style = 'position: absolue; Left: & table_x all_width 25 & px; top: & table_y 30 (i-1) * tb_height & px; width: 60px; height: & tb_height & px; z-nex: 1' Response.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> </pable> </v: Textbox> Response.Write <v: rect id = '_x0000_s1040' alt = '' style = 'position: Absolute; Left: & table_x all_width 80 & px; top: & table_y 30 (i-1) * tb_height 3 & px; width: 30px; height: 20px; z-index: 1' fillcolor = '& tb_color (i, 1) & the '> <v: remplissage Color2 =' & tb_color (i, 2) & 'rotate =' t 'focus =' 100% 'type =' gradient '/> </ v: rect> 'Afficher le rapport 'Response.write <v: forme 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; '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> suivant terminer si Si table_type = b alors PIE = 3,14159265358979 Temppie = 0 pour 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 Si x2> table_x all_width / 2 alors x3 = x2 20 x4 = x3 autre x3 = x2-20 x4 = x3-100 terminer si Response.Write <v: oval id = '_x0000_s1027' style = 'position: absolue; gauche: & x1-2 & px; top: & y1-2 & px; width: 4px; height: 4px; z-index: 2' fillcolor = '# 111111' strokecolor = '# 111111' /> & ch (13) Response.write <v: line id = '_x0000_s1025' alt = '' style = 'position: absolue; gauche: 0; text-align: Left; top: 0; z-index: 1' from = '& x1 & px' coordoniSize = 'to =' & x2 & px, & y2 & px '# 1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 'tramweight =' 1px '> </ V: ligne> Response.write <v: line id = '_x0000_s1025' alt = '' style = 'position: Absolute; Left: 0; Text-Align: Left; top: 0; z-index: 1' from = '& x2 & px' coordoniSize = 'to =' & x3 & px, & y2 & px '# 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 'tramweight =' 1px '> </ V: ligne> Response.write <v: forme id = '_x0000_s1025' type = '# _x0000_t202' alt = '' style = 'Position: Absolute; Left: & x4 & px; top: & y2-10 & px; width: 100px; height: 20px; z-index: 1'> Response.Write <V: TextBox inset = '0px, 0px, 0px, 0px'> <table 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: forme> Temppie = Temppie Total (I, 1) / TotalPie suivant terminer si fonction finale %> Fonction du graphique de génération de code ASP pure 1 - Exemple d'appel du graphique à barres <% TOTAL DIM (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) = Nouvelles commerciales en Chine Total (2,2) = site Web de recrutement total (3,2) = 51Job Total (4,2) = NOUVELLES DE LA SOIRITÉ DE XINMIN Total (5,2) = nouvelles du soir Total (6,2) = week-end sud Total (7,2) = Nouvelles du soir de Yangcheng total_no = 7 %> <html xmlns: v = urn: schémas-microsoft-com: vml xmlns: o = urn: schémas-microsoft-com: bureau: bureau> <! - [si! mso]> <style> v /: * {comportement: url (# par défaut # vml)} o /: * {comportement: url (# par défaut # vml)} .shape {comportement: url (# par défaut # vml)} </ style> <! [endif] -> <adal> <meta http-equiv = contenu contenu contenu = text / html; charse = gb2312> <Title> </Title> <style> TD {Font-Size: 9pt} </ style> </-head> <Body topmargin = 5 Leftmargin = 0 Scroll = Auto> <l Tableau1 (total, 200,20,20,30,400,200, a)%> <L Tableau1 (Total, 200 320,20,20,400,250, b)%> </docy> </html> |
Partage: le code guide l'implémentation de FTP et la décompression à l'aide de chevaux de Troie ASP Je pense que tout le monde a des poulets de chair avec le port 80. S'il est domestique, ne cherchez pas la sécurité. Si vous ne voulez pas regarder en bas, vous pourriez aussi bien regarder en bas. Je suis tellement moche d'essayer d'attirer l'attention. La chose la plus gênante à propos de la mise en place d'un site Web sur un gril est de mettre à jour et de télécharger un grand nombre de fichiers.