Um die Erzeugung von 3D -Kreis -Diagrammfunktionen zu erleichtern, habe ich den Code der Funktion gesammelt, um 3D -Kreisdiagramme unter ASP zu generieren, was für alle unter besonderen Umständen geeignet ist.
<%
'Parameterbedeutung (Array, horizontale Koordinate, vertikale Koordinate, Diagrammbreite, Diagrammhöhe, Diagrammtitel, Einheit)
FunktionTable2 (STAT_ARRAY, TABLE_LEFT, TABLE_TOP, All_width, All_Height, Table_title, Einheit)
Dimbg_Color (10), Kuchen (10)
bg_color (1) = "#ff1919"
bg_color (2) = "#ffff19"
BG_COLOR (3) = "#1919ff"
bg_color (4) = "#19ff19"
bg_color (5) = "#fc0"
bg_color (6) = "#3cc"
bg_color (7) = "#ff19ff"
BG_COLOR (8) = "#993300"
bg_color (9) = "#f60"
bg_color (10) = "#ff8c19"
Num = Ubund (STAT_Array, 1)
Alvalues = 0
FORI = 1TONUM
Allvalues = Allvalues+Stat_array (i, 1)
nächste
K = 0
fei = 1tonum-1
pie (i) = formatnumber (STAT_Array (i, 1)/Allvalues, 4, -1)
k = k+pie (i)
nächste
Kuchen (num) = formatnumber ((1-k), 4, -1)
Antwort.
Antwort.
response.write "<v: pathTextPatpatpatpat. 't'o: ConnectType =' Custom'o: ConnectLocs = '@9,0;@10.10800;@11.21600;@12.10800'o: Connectangles =' 270,180,90,0 '/>"
response.write "<v: textPathon = 't'fitshape =' t '/>"
response.write "<o: lockv: ext = 'edit'text =' t'ShapeType = 't'/>"
response.write "</v: Shapetype>"
Antwort.
response.write "<v: Shadowon = 't'type =' Single'color = 'Silver'Offset =' 4pt, 4PT '/>"
response.write "</v: rect>"
Antwort.
Antwort.
Antwort.
Antwort.
response.write "<tr>"
Antwort.
response.write "</tr>"
Antwort.Write "</table>"
Antwort.Write "</v: textbox>"
response.write "</v: rect>"
Antwort.
Antwort.
response.write "</v: rect>"
Antwort.
Antwort.
response.write "<v: Shadowon = 't'type =' Single'color = 'Silver'Offset =' 3pt, 3pt '/>"
response.write "</v: rect>"
Antwort.Write "<v: rectstyle = 'Position: relativ; links: 15500; oben: 1500; Breite: 4000; Höhe: 700'Fillcolor ='#000000'Stroked = 'f'strokecolor ='#000000 '>"
Antwort.
response.write "</v: rect>"
FORI = 1TONUM
Antwort.
Antwort.
response.write "</v: rect>"
Antwort.
Antwort.
Antwort.
response.write "</v: rect>"
nächste
response.write "</v: gruppe>"
K1 = 180
K4 = 10
FORI = 1TONUM
response.write "<aHref = aaa.asp>"
K2 = 360*Kuchen (i)/2
K3 = K1+K2
IFK3> = 360Then
K3 = K3-360
Endif
KKK = (-11796480*Pie (i) +5898240)
K5 = 3,1414926*2*(180- (K3-180))/360
R = All_Height/2
txt_x = table_left+All_Height/8-30+r+r*sin (k5)*0,7
txt_y = table_top+all_height/14-39+r+r*cos (k5)*0,7*0,5
titlestern
Antwort.Write "<divStyle = 'Cursor: Hand;'>"
response.write "<v: ShapeId = 'Cake" & i & "' Typ = '#cake_3d'title ='" & titlestr & "'" "
Antwort.Write "style = 'Position: Absolute; links:" & table_left+All_Height/8 & "PX; TOP:" & table_top+All_Height/14 & "px; width:" & all_height & "px; Höhe:" & All_Height & "Px; Rotation:" & k3 & "Z-Index:"
Antwort.Write "adj = '" & kkk & ", 0'fillcolor ='" & bg_color (i) & "'onmouseover =' moveUp (cake" & i & "," & (table_top+All_Height " /14) & ", txt" & i & ", rec" & i & ") '; onmouseout =' bewegt (kuchen" & i & "," & (table_top+All_Height/14) & ", txt" & i & ", Rec" & i & ").
Antwort.
Antwort.
response.write "</v: form>"
response.Write"<v:shapeid='txt"&i&"'type='#3dtxt'style='position:absolute;left:"&txt_x&"px;top:"&txt_y&"px;z-index:20;display:none;width:50;height:18;'fillcolor='#ffffff'"
response.write "onmouseover = 'ontxt (cake" & i & "," & (table_top+all_height/14) & ", txt" & i & ", rec" & i & ")'>"
Antwort.
Antwort.Write "<V: textPathStyle = 'Schriftfamilie:' 安 ';
Antwort.
response.write "</v: form>"
response.write "</div>"
K1 = K1+K2*2
IFK1> = 360Then
K1 = K1-360
Endif
IFK1> 180Then
K4 = K4+1
anders
K4 = K4-1
Endif
response.write "</a>"
nächste
Endfunktion
%>
<htmlxmlns: v = "Urn: Schemas-microsoft-com: vml" xmlns: o = "Urn: Schemas-Microsoft-Com: Büro: Büro">
<kopf>
<title> </title>
<Styles>
v/:*{Verhalten: url (#Standard#vml)}}
o/:*{Verhalten: URL (#Standard#vml)}}
</Style>
</head>
<body>
<criptuanguage = "javaScript">
<!-
onit = true
Num = 0
functionMoveUp (ITEAM, TOP, TXT, REC) {
temp = eval (iTeam)
tempat = eval (oben)
Temptxt = eval (txt)
tempec = eval (rec)
at = parseInt (temp.style.top)
tempec.style.display = "";
if (num> 27) {
tuptxt.style.display = "";
}
