ASP generiert spaltenförmige Körper, Zeilendiagramme, Kreisdiagramm-Quellcode
<%
FunktionTable2 (Total, Table_x, Table_y, All_width, All_Height, Line_NO)
'Parameterbedeutung (bestandenes Array, horizontale Koordinate, vertikale Koordinate, Diagrammbreite, Diagrammhöhe, Anzahl der Linien)
'Reines ASP -Code generiert die Diagrammfunktion 2 - Zeilendiagramm
'Autor: Gong Ming (Passwortgm) QQ: 25968152msn: [email protected]: [email protected]
„Ich bin sehr bereit, mit ASP, VML und Flash -Enthusiasten unter http://topclouds.126.com zu kommunizieren und zu diskutieren.
'Version 1.0 Last Modified Date 2003-8-11
„Vielen Dank, dass Sie diese Funktion verwendet haben. Bitte behalten Sie Copyright -Informationen bei Verwendung und Nachdruck. Dies ist der beste Respekt für die Arbeit des Autors.
line_color = "#69f"
links_width = 70
Total_no = Ubund (Gesamt, 1)
temp1 = 0
fei = 1Tototal_no
FORJ = 1TOLINE_NO
IFTEMP1 <Total (i, j) thentemp1 = Gesamt (i, j)
nächste
nächste
temp1 = int (temp1)
IFTEMP1> 9Then
temp2 = mid (cstr (temp1), 2,1)
IFTEMP2> 4Then
temp3 = (int (temp1/(10^(len (cstr (temp1))-1)))+1)*10^(len (cstr (temp1))-1)
anders
temp3 = (int (temp1/(10^(len (cstr (temp1))-1)))+0,5)*10^(len (cstr (temp1))-1)
Endif
anders
IFTEMP1> 4.entemp3 = 10ELSETEMP3 = 5
Endif
temp4 = temp3
Antwort.Write "<v: rectid = '_ x0000_s1027'alt =' 'style =' Position: absolut; links:" & table_x+links_width & "px; top:" & table_y & "px; width:" & all_width & "px; Höhe:" & All_Height & "px; z-Index: -1'fillcolor = '#9cf'stroked =' f '> <v: fillRotate =' t'angle = '-45'focus =' 100%'Typ =' Gradient '/> </v: rect>"
fei = 0toall_Height-1stepall_Height/5
Antwort NGTH & "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 & "/>" "
Antwort. Index: -1'from = '"& table_x+(links_width-15) &" px, "& table_y+i &" px'to =' "& table_x+links_width &" px, "& table_y+i &" px '/> "
response.write "" "
Antwort.
Antwort.
temp4 = temp4-temp3/5
nächste
Antwort m = '"& table_x+links_width &" px, "& table_y+All_Height &" px'to =' "& table_x+All_width+Left_width &" PX, "& table_y+All_Height &" PX '/> "