لتسهيل توليد وظائف مخطط الفطيرة ثلاثية الأبعاد ، قمت بجمع رمز الوظيفة لإنشاء مخططات فطيرة ثلاثية الأبعاد تحت ASP ، والتي هي مريحة للجميع لاستخدامها في ظروف خاصة.
<٪
'معنى المعلمة (المصفوفة ، الإحداثي الأفقي ، الإحداثي العمودي ، عرض الرسم البياني ، ارتفاع المخطط ، عنوان الرسم البياني ، الوحدة)
functionTable2 (stat_array ، table_left ، table_top ، all_width ، all_height ، table_title ، الوحدة)
dimbg_color (10) ، فطيرة (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)
التالي
ك = 0
fori = 1tonum-1
فطيرة (i) = formatnumber (stat_array (i ، 1)/allvalues ، 4 ، -1)
K = K+PIE (i)
التالي
فطيرة (num) = formatnumber ((1-K) ، 4 ، -1)
Response.write "<V: ShapeTypeId = 'cake_3d'coordsize =' 21600،21600'o: spt = '95'adj =' 11796480،5400'path = 'al10800،10800@0@2@14،10800،10800،10800،10800@15xe"> </v: v: v:
reponse.write "<v: ShapeTypeId = '3dtxt'coordsize =' 21600،21600'o: spt = '136'adj =' 10800'path = 'm@7 ، l@8 ، m@5،21600l@6،21600e'>"> "
استجابة. write "<v: pathtextpathok = 't'o: connectType =' custom'o: connectlocs = '@9،0 ؛@10،10800 ؛@11،21600 ؛@12،10800'o: connectangles =' 270،180،90،0 '/>"
reponse.write "<v: textPathon = 't'fitshape =' t '/>"
Response.write "<o: lockv: ext = 'edit'text =' t'ShapeType = 't'/>"
استجابة. write "</v: ShapeType>"
استجابة. write "<v: rectid = 'background'style =' الموضع: absomute ؛ اليسار:" & table_left & "px ؛ top:" & table_top & "px ؛ width:" & all_width & "px ؛ height:" & all_height & "px ؛
استجابة. write "<v: Shadowon = 't'Type =' single'color = 'silver'offset =' 4pt ، 4pt '/>"
استجابة. "</v: rect>"
استجابة. write "<v: groupId = 'table'style =' الموضع: absomute ؛ اليسار:" & table_left & "px ؛ top:" & table_top & "px ؛ width:" & all_width & "px ؛ height:" & all_height & "px ؛ 'fivalsize =' 21000،11500 '
Response.write "<v: rectstyle = 'الموضع: النسبية ؛ اليسار: 500 ؛ الأعلى: 200 ؛ العرض: 20000 ؛ الارتفاع: 800'filled =' false'stroked = 'false'>"
استجابة. write "<v: textboxinset = '0pt ، 0pt ، 0pt ، 0pt'>"
استجابة. write "<tablewidth = '100 ٪' border = '0'align =' center'cellspacing = '0'>"
استجابة. "<tr>"
Response.write "<tdalign = 'center'valign =' middle'> <vistyle = 'font-size: 15pt ؛ font-family: bold ؛'> <b>" & table_title & "</b> </viv> </td>"
استجابة. "</tr>"
استجابة. الكتابة "</table>"
استجابة. "</v: textbox>"
استجابة. "</v: rect>"
استجابة. write "<v: rectid = 'back'style =' الموضع: النسبية ؛ اليسار: 500 ؛ أعلى: 1000 ؛ العرض: 20000 ؛ الارتفاع: 10000 ؛ 'onMouseover =' movereset (1) 'onMouseout =' movereset (0) '' fillColor = '#9cf'strokecolor ='#888888 '>"
استجابة. write "<v: fillrotate = 't'angle ='-45'focus = '100 ٪' type = 'gradient'/>"
استجابة. "</v: rect>"
استجابة. write "<v: rectid = 'back'style =' الموضع: النسبية ؛ اليسار: 15000 ؛ أعلى: 1400 ؛ العرض: 5000 ؛ الارتفاع:" و ((num+1)*9000/11+200) & "
استجابة. write "<v: fillrotate = 't'angle ='-175'focus = '100 ٪' type = 'gradient'/>"
استجابة. write "<v: Shadowon = 't'Type =' single'color = 'silver'offset =' 3pt ، 3pt '/>"
استجابة. "</v: rect>"
Response.write "<v: rectstyle = 'الموضع: النسبية ؛ اليسار: 15500 ؛ الأعلى: 1500 ؛ العرض: 4000 ؛ الارتفاع: 700'fillColor ='#000000'stroked = 'f'strokecolor ='#000000 '>"
reponse.write "<v: textboxset = '8pt ، 4pt ، 3pt ، 3pt'style =' font-size: 11pt ؛ '> <divalign =' left '> <fontcolor ='#ffffff '> <b> total:" & allvalues & unit & "</b> </font> </viv>
استجابة. "</v: rect>"
fori = 1tonum
Response.write "<v: rectid = 'rec" & i & "style =' الموضع: النسبية ؛ اليسار: 15400 ؛ TOP:" & I*9000/11+1450 & "
Response.write "<v: flowopacity = '.
استجابة. "</v: rect>"
Response.write "<v: rectstyle = 'الموضع: النسبية ؛ اليسار: 15500 ؛ أعلى:" & i*9000/11+1500 & "؛ العرض: 600 ؛ الارتفاع: 700'fillColor ='" & bg_color (i) & "'stroked =' f '/>"/> "/>"
Response.write "<v: rectstyle = 'الموضع: النسبية ؛ اليسار: 16300 ؛ الأعلى:" & i*9000/11+1500 & "؛ العرض: 3400 ؛ الارتفاع: 700'filled =' f'stroked = 'f'>"
Response.write "<v: textboxset = '0pt ، 5pt ، 0pt ، 0pt'style =' font-size: 9pt ؛ '> <fivalign =' left '>" & stat_array (i ، 2) & ":" & stat_array (i ، 1) & unit & "</v: textbox>"
استجابة. "</v: rect>"
التالي
reponse.write "</v: group>"
K1 = 180
K4 = 10
fori = 1tonum
reponse.write "<ahref = aaa.asp>"
K2 = 360*فطيرة (i)/2
K3 = K1+K2
IFK3> = 360then
K3 = K3-360
Endif
KKK = (-11796480*فطيرة (ط) +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 & "palents:" & pie (i)*100 & "٪"
reponse.write "<divstyle = 'cursor: hand ؛'>"
Response.write "<v: formeid = 'cake" & i & "' type = '#cake_3d'title ='" & titlestr & "'"
repart.write "style = 'position: absolute ؛ left:" & table_left+all_height/8 & "px ؛ top:" & table_top+all_height/14 & "px ؛ width:" & all_height & "px ؛ height:" & all_height & "px ؛ rotation:" & K3 & "؛
Response.write "adj = '" & kkk & "، 0'fillcolor ='" & bg_color (i) & "'onMouseover =' moveup (cake" & i & "،" & (table_top+all_height /14) & "، txt" & i & "، rec" & i & ") '؛ onMouseout =' QuardOwn (cake" & i & "،" & (table_top+all_height/14) & "، txt" & i & "، rec" & i & ") ؛"> ">"
استجابة. write "<v: flowopacity = '60293f'color2 =' flowlighten (120) 'o: opacity2 =' 60293f'rotate = 't'angle ='-135'method = 'linearsigma'focus =' 100 ٪ 'type =' gradient '/>"
Response.write "<o: procedusv: ext = 'view'on =' t'backDepth = '25'Rotationangle =' 60'ViewPoint = '0،0'ViewPointorigin =' 0،0'Skewamt = '0'lightPosition ='-50000 ، -50000'LightPosition2 = '50000'/>"
استجابة. write "</v: form>"
Response.write "<v: formeid = 'txt" & i & "' type = '#3dtxt'style =' position: absolute ؛ left:" & txt_x & "px ؛ top:" & txt_y & "px ؛ z-index: 20 ؛ display: none ؛ width: 50 ؛ leight: 18 ؛
Response.write "onMouseover = 'ontxt (cake" & i & "،" & (table_top+all_height/14) & "، txt" & i & "، rec" & i & ")"> "
استجابة. write "<v: flowopacity = '60293f'color2 =' flowlighten (120) 'o: opacity2 =' 60293f'rotate = 't'angle ='-135'method = 'linearsigma'focus =' 100 ٪ 'type =' gradient '/>"
Response.write "<v: textPathStyle = 'font-family:' 安 '؛ v-text-kern: t'trim =' t'fitpath = 't'string ='" & pie (i)*100 & "٪ '/>"
reponse.write "<o: proudev: ext = 'view'backDepth =' 8pt'on = 't'lightposition =' 0،0'lightposition2 = '0،0'/>"
استجابة. write "</v: form>"
استجابة. "</div>"
K1 = K1+K2*2
IFK1> = 360then
K1 = K1-360
Endif
IFK1> 180th
K4 = K4+1
آخر
K4 = K4-1
Endif
الرد. الكتابة "</a>"
التالي
الوظيفية
٪>
<htmlxmlns: v = "urn: schemas-microsoft-com: vml" xmlns: o = "urn: schemas-microsoft-com: Office: Office">
<head>
<title> </title>
<style>
v/:*{السلوك: url (#default#vml)}
o/:*{السلوك: url (#افتراضي#vml)}
</style>
</head>
<body>
<scriptLanguage = "JavaScript">
<!-
onit = صحيح
num = 0
FunctionMoveup (iteam ، TOP ، TXT ، REC) {
temp = eval (iteam)
Tempat = eval (أعلى)
temptxt = eval (txt)
temprec = eval (rec)
في = parseint (temp.style.top)
temprec.style.display = "" ؛
if (num> 27) {
temptxt.style.display = "" ؛
}