Untuk memfasilitasi generasi fungsi bagan pai 3D, saya telah mengumpulkan kode fungsi untuk menghasilkan diagram lingkaran 3D di bawah ASP, yang nyaman bagi semua orang untuk digunakan dalam keadaan khusus.
<%
'Makna parameter (array, koordinat horizontal, koordinat vertikal, lebar bagan, tinggi bagan, judul bagan, unit)
functionTable2 (stat_array, table_left, table_top, all_width, all_height, table_title, unit)
dimbg_color (10), pie (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)
allValues = 0
fori = 1tonum
allValues = allValues+stat_array (i, 1)
Berikutnya
k = 0
fori = 1tonum-1
pie (i) = formatNumber (stat_array (i, 1)/allValues, 4, -1)
k = k+pie (i)
Berikutnya
pie (num) = formatNumber ((1-k), 4, -1)
response.write "<v: shapeTypeId = 'cake_3d'coordsize =' 21600.21600'o: spt = '95'adj =' 11796480.5400'Path = 'Al10800.10800@3@[email protected]@3@[email protected]@14.14@
response.write "<v: shapetypeId = '3dtxt'coordSize =' 21600.21600'o: spt = '136'adj =' 10800'path = 'm@7, l@8, [email protected]@6.21600e'>"
response.write "<v: pathtextpathok = '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>"
response.write "<v: rectid = 'latar belakang'style =' posisi: absolute; kiri:" & table_left & "px; atas:" & table_top & "px; lebar:" & all_width & "px; tinggi:" & all_height & "px; 'fillcolor ='#EFEFEF'RRECT
response.write "<v: shadowon = 't'type =' single'color = 'silver'offset =' 4pt, 4pt '/>"
response.write "</v: rect>"
response.write "<v: groupId = 'table'style =' posisi: absolute; kiri:" & table_left & "px; atas:" & table_top & "px; lebar:" & all_width & "px; tinggi:" & all_height & "px; 'koordsize =' 21000.11500 '>"> "
response.write "<v: rectstyle = 'posisi: relatif; kiri: 500; atas: 200; lebar: 20000; tinggi: 800'filled =' false'stroked = 'false'>"
response.write "<v: textboxInset = '0pt, 0pt, 0pt, 0pt'>"
response.write "<tableWidth = '100%' border = '0'align =' center'cellspacing = '0'>"
response.write "<tr>"
response.write "<tdalign = 'center'valign =' middle '> <divstyle =' font-size: 15pt; font-family: bold; '> <b>" & table_title & "</b> </div> </td>"
response.write "</tr>"
response.write "</able>"
response.write "</v: TextBox>"
response.write "</v: rect>"
response.write "<v: rectid = 'back'style =' posisi: relatif; kiri: 500; atas: 1000; lebar: 20000; tinggi: 10000; 'onmouseover =' movereset (1) 'onmouseout =' movereset (0) 'fillcolor ='#9cf'strokecolor = '88 8888888888888888 8.
response.write "<v: fillrotate = 't'angle ='-45'focus = '100%' type = 'gradient'/>"
response.write "</v: rect>"
response.write "<v: rectid = 'back'style =' posisi: relatif; kiri: 15000; atas: 1400; lebar: 5000; tinggi:" & (num+1)*9000/11+200) & "; 'fillColor ='#9cf'stroked = 't'strokeColor ='#00999> 9cf'stroked = 't'strokecolor ='#00999>"> "t'strokeColor = '#'#'#"
response.write "<v: fillrotate = 't'angle ='-175'focus = '100%' type = 'gradient'/>"
response.write "<v: shadowon = 't'type =' single'color = 'silver'offset =' 3pt, 3pt '/>"
response.write "</v: rect>"
response.write "<v: rectstyle = 'posisi: relatif; kiri: 15500; atas: 1500; lebar: 4000; tinggi: 700'fillColor ='#000000'Stroked = 'f'strokecolor ='#000000 '>"> "
response.Write"<v:TextBoxset='8pt,4pt,3pt,3pt'style='font-size:11pt;'><divalign='left'><fontcolor='#ffffff'><B>Total:"&allvalues&unit&"</B></font></div></v:TextBox>"
response.write "</v: rect>"
fori = 1tonum
response.write "<v: rectid = 'rec" & i & "' style = 'position: relatif; kiri: 15400; atas:" & i*9000/11+1450 & "; lebar: 4300; Tinggi: 800; Tampilan: None'fillColor ='#EFEFEF'STROKECOLOR = '" & BG_COLOR = "" "" "" "" "" "" & BG_COLOR (IEFEFFEF'STROKECOLOR = "" & BG_COLOR (""
response.write "<v: fillopacity = '. 6'color2 =' filldarken (118) 'o: opacity2 =' 6'rotate = 't'method =' linearsigma'focus = '100%' type = 'gradien'/>"
response.write "</v: rect>"
response.write "<v: rectstyle = 'posisi: relatif; kiri: 15500; atas:" & i*9000/11+1500 & "; Lebar: 600; Tinggi: 700'fillColor ='" & bg_color (i) & "stroke = 'f'/>"/"/"
response.write "<v: rectstyle = 'posisi: relatif; kiri: 16300; atas:" & i*9000/11+1500 & "; Lebar: 3400; Tinggi: 700'filled =' f'stroked = 'f'>"
response.write "<v: textboxset = '0pt, 5pt, 0pt, 0pt'style =' font-size: 9pt; '> <divalign =' left '>" & stat_array (i, 2) & ":" & stat_array (i, 1) & unit & "</div> </v: textbox>" "
response.write "</v: rect>"
Berikutnya
response.write "</v: group>"
K1 = 180
K4 = 10
fori = 1tonum
response.write "<ahref = aaa.asp>"
K2 = 360*PIE (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
titleStr = "name:" & stat_array (i, 2) & "value:" & stat_array (i, 1) & unit & "persentase:" & pie (i)*100 & "%"
response.write "<divstyle = 'kursor: hand;'>"
response.write "<v: shapeId = 'cake" & i & "' type = '#cake_3d'title ='" & titleStr & "'"
response.write "style = 'position: absolute; kiri:" & table_left+all_height/8 & "px; atas:" & table_top+all_height/14 & "px; lebar:" & all_height & "px; tinggi:" & all_height & "px; rotasi:" & k3 & ";
response.write "adj = '" & kkk & ", 0'fillcolor ='" & bg_color (i) & "'onmouseover =' moving (kue" & i & "," & (table_top+all_height /14) & ", txt" & i & ", rec" & i & ") '; onmouseout =' movingown (kue" & i & "," & (table_top+all_height/14) & ", txt" & i & ", rec" & i & "); '>"
response.write "<v: fillopacity = '60293f'color2 =' filllighten (120) 'o: opacity2 =' 60293f'rotate = 't'angle ='-135'method = 'linearsigma'focus =' 100%'tipe =' gradien '/>"
response.write "<o: ekstrusi: ext = 'view'on =' t'backDepth = '25'rotationangle =' 60'viewPoint = '0,0'viewPointorigin =' 0,0'SkeWamt = '0'lightPosition ='-50000, -50000'LightPosisi2 = '50000'/>
response.write "</v: shape>"
response.write "<v: shapeId = 'txt" & i & "' type = '#3dtxt'style =' Posisi: absolute; kiri:" & txt_x & "px; atas:" & txt_y & "px; z-index: 20; Tampilkan: tidak ada; 50; tinggi: 18; 'fillcolor ='#fFFFF: None; WIDTH: 50; Tinggi: 18; 'FILLCOLOR ='#FFFFFFFFFFFFFFFFFFFFFF '" "
response.write "onmouseover = 'ontxt (kue" & i & "," & (table_top+all_height/14) & ", txt" & i & ", rec" & i & ")'>"
response.write "<v: fillopacity = '60293f'color2 =' filllighten (120) 'o: opacity2 =' 60293f'rotate = 't'angle ='-135'method = 'linearsigma'focus =' 100%'tipe =' gradien '/>"
response.write "<v: textpathstyle = 'font-family:' 安 '; v-text-Kern: t'trim =' t'fitpath = 't'string ='" & pie (i)*100 & "%'/>"
response.write "<o: ekstrusi: ext = 'view'backDepth =' 8pt'on = 't'lightPosition =' 0,0'lightPosition2 = '0,0'/>"
response.write "</v: shape>"
response.write "</div>"
K1 = K1+K2*2
IFK1> = 360then
K1 = K1-360
endif
IFK1> 180then
K4 = K4+1
kalau tidak
K4 = K4-1
endif
response.write "</a>"
Berikutnya
fungsi endfungsi
%>
<htmlxmlns: v = "urn: schemas-microsoft-com: vml" xmlns: o = "urn: schemas-microsoft-com: kantor: kantor">
<head>
<title> </title>
<tyle>
v/:*{perilaku: url (#default#vml)}
o/:*{perilaku: url (#default#vml)}
</tyle>
</head>
<body>
<ScriptLanguage = "JavaScript">
<!-
onit = true
num = 0
functionMoveUp (iteam, top, txt, rec) {
temp = eval (iteam)
tempat = eval (atas)
Temptxt = Eval (txt)
temprec = eval (rec)
at = parseInt (temp.style.top)
temprec.style.display = "";
if (num> 27) {
Temptxt.Style.Display = "";
}