يقوم ASP بإنشاء أجسام على شكل عمود ، مخططات خطية ، رمز مصدر فطيرة الرسم البياني

<٪

دالة Table2 (Total ، Table_X ، Table_y ، all_width ، all_height ، line_no)

معنى المعلمة (تم تمرير صفيف ، الإحداثيات الأفقية ، الإحداثيات العمودية ، عرض الرسم البياني ، ارتفاع الرسم البياني ، عدد الخطوط)

يقوم رمز ASP النقي بإنشاء مخطط دالة المخططين

"المؤلف: Gong Ming (PasswordGM) QQ: 25968152 MSN: [email protected] البريد الإلكتروني: [email protected]

"أنا على استعداد للغاية للتواصل والمناقشة مع ASP و VML و Flash Atmans على http://topclouds.126.com

الإصدار 1.0 آخر تاريخ تم تعديله 2003-8-11

شكرا جزيلا لك على استخدام هذه الوظيفة. يرجى الاحتفاظ بمعلومات حقوق الطبع والنشر عند استخدام وإعادة الطباعة. هذا هو أفضل احترام لعمل المؤلف.

line_color =#69f

Left_width = 70

TOTAL_NO = UBUND (المجموع ، 1)

temp1 = 0

لأني = 1 إلى total_no

ل j = 1 إلى line_no

إذا temp1 <total (i ، j) ثم temp1 = المجموع (i ، j)

التالي

التالي

temp1 = int (temp1)

إذا temp1> 9 ثم

Temp2 = Mid (CSTR (Temp1) ، 2،1)

إذا temp2> 4 ثم

temp3 = (int (temp1/(10^(len (cstr (temp1))-1))) 1)*10^(len (cstr (temp1))-1)

آخر

temp3 = (int (temp1/(10^(len (cstr (temp1))-1)))) 0.5)*10^(len (cstr (temp1))-1)

إنهاء إذا

آخر

إذا temp1> 4 ثم temp3 = 10 آخر temp3 = 5

إنهاء إذا

temp4 = temp3

Response.write <v: rect id = '_x0000_s1027' alt = '' 'style =' position: absomute ؛ left: & table_x left_width & px ؛ top: & table_y & px ؛ width: 't' angle = '-45' Focus = '100 ٪' Type = 'Gradient'/> </v: rect>

لأني = 0 إلى all_height-1 الخطوة all_height/5

repart.write <v: line id = '_x0000_s1027' alt = '' 'style =' الموضع: aboor ؛ اليسار: 0 ؛ نص النص: left ؛ top: 0 ؛ flip: y ؛ z-index: -1 'from =' & table_x left_width length & px ، & table_y all_hight-length-i left_width & px ، & table_y all_height-length-i & px 'strokecolor =' & line_color & '/>

desponse.write <v: line id = '_x0000_s1027' alt = '' 'style =' position: aboor ؛ left: 0 ؛ text-align: left ؛ top: 0 ؛ flip: y ؛ z-index: -1 'from =' & table_x (left_width-15) & px ، &y i & px 'to =' & table_x ،

استجابة

استجابة. write <v: شكل معرف = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'الموضع: absert ؛ left: & table_x & px ؛ top: & table_y i & px ؛ width:

استجابة. write <v: textbox inset = '0px ، 0px ، 0px ، 0px'> <table cellpacing = '3' cellpadding = '0' width = '100 ٪' height = '100 ٪'> <tr> <td align = 'right'>

temp4 = temp4-temp3/5

التالي

repart.write <v: line id = '_x0000_s1027' alt = '' 'style =' position: aboor ؛ left: 0 ؛ text-align: left ؛ top: 0 ؛ flip: y ؛ z-index: -1 'from =' & table_x left_width & px ، & table_y all_height & px 'to =' all_height & px '/>

استجابة. write <v: line id = '_x0000_s1027' alt = '' 'style =' الموضع: aboor ؛ اليسار: 0 ؛ align-align: left ؛ top: 0 ؛ flip: y ؛ z-index: -1 'from =' & table_x left_width & px ، & table_y & px 'to'

dim line_code

redim line_code (line_no ، 5)

ل 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)

التالي

ل j = 1 إلى line_no

ل 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)

استجابة. write <v: معرف السطر = _x0000_s1025 alt = style = 'الموضع: aboor ؛ اليسار: 0 ؛ align-align: left ؛ top: 0 ؛ z-index: 1' from = & x1 & px ، & y1 & px to = & x2 & px ، & y2 & px تنسيق = 21600،21600 strokeweight = & line_code (j ، 2) &>

حدد case line_code (j ، 3)

الحالة 1

الحالة 2

استجابة. write <v: Stroke DashStyle = '1 1'/>

الحالة 3

استجابة. write <v: Stroke DashStyle = 'Dash'/>

الحالة 4

استجابة. write <v: Stroke DashStyle = 'DashDot'/>

الحالة 5

استجابة. write <v: Stroke DashStyle = 'Longdash'/>

الحالة 6

استجابة. write <v: stroke dashstyle = 'longdashdot'/>

الحالة 7

استجابة. write <v: Stroke DashStyle = 'longdashdotdot'/>

حالة أخرى

نهاية الاختيار

استجابة. write </v: line> & chr (13)

حدد case line_code (j ، 4)

الحالة 1

الحالة 2

استجابة. write <v: rect id = _x0000_s1027 style = 'الموضع: absolute ؛ اليسار: & x1-2 & px ؛ top: & y1-2 & px ؛ width: 4px ؛ الارتفاع: 4px ؛ z-index: 2' fillcolor = & line_code (j ، 1) & strokecolor = & line_code (

الحالة 3

استجابة. write <v: id id = _x0000_s1026 style = 'الموضع: absolute ؛ اليسار: & x1-2 & px ؛ top: & y1-2 & px ؛ width: 4px ؛ height: 4px ؛ z-index: 1' fillcolor = & line_code (j ، 1) & strokecolor = & line_code (j ، 1)

نهاية الاختيار

التالي

حدد case line_code (j ، 4)

الحالة 1

الحالة 2

استجابة. write <v: rect id = _x0000_s1027 style = 'الموضع: absolute ؛ اليسار: & x2-2 & px ؛ top: & y2-2 & px ؛ width: 4px ؛ الارتفاع: 4px ؛ z-index: 2' fillcolor = & line_code (j ، 1) & strokecolor = & line_code (

الحالة 3

استجابة. write <v: Oval id = _x0000_s1026 style = 'الموضع: absolute ؛ اليسار: & x2-2 & px ؛ top: & y2-2 & px ؛ width: 4px ؛ height: 4px ؛ z-index: 1' fillcolor = & line_code (j ، 1) & strokecolor = & line_code (j ، 1)

نهاية الاختيار

التالي

لأني = 1 إلى total_no

Response.write <v: line id = '_x0000_s1027' alt = '' 'style =' position: aboor ؛ left: 0 ؛ text-align: left ؛ top: 0 ؛ flip: y ؛ z-index: -1 'from =' & table_x left_width all_width*(i-1)/total_no & px all_width*(i-1)/total_no & px ، & table_y all_height 15 & px '/>

استجابة

reponse.write <v: earm id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'position: absert ؛ left: all_height & px ؛ العرض: & all_width/total_no & px ؛ الارتفاع: 18px ؛ z-index: 1 '>

reponse.write <v: textbox inset = '0px ، 0px ، 0px ، 0px'> <table cellpacing = '3' cellpadding = '0' width = '100 ٪' height = '100 ٪'> <tr> <td align = 'left'

التالي

tb_height = 30

استجابة. write <v: rect id = '_x0000_s1025' style = 'الموضع: absolute ؛ اليسار: & table_x all_width 20 & px ؛ top: & table_y & px ؛ width: 100px ؛ height:

ل I = 1 إلى line_no

استجابة. write <v: شكل معرف = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'الموضع: aboor ؛ left: & table_x all_width 25 & px ؛ top: & table_y 10 (i-1)

reponse.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>

Response.write <v: rect id = '_x0000_s1040' alt = '' 'style =' position: aboor ؛ left: & table_x all_width 80 & px ؛ top: & table_y 10 (i-1)*tb_height 4 & px '& line_code (i ، 1) &' rotate = 't' focus = '100 ٪' type = 'gradient'/> </v: rect>

التالي

وظيفة نهاية

٪>

<٪

الدالة Table1 (Total ، Table_X ، Table_y ، سمك ، Table_Width ، all_width ، all_height ، table_type)

'معنى المعلمة (تم تمرير مجموعة ، الإحداثي الأفقي ، الإحداثي العمودي ، سمك العمود ، عرض العمود ، عرض الرسم البياني ، ارتفاع المخطط ، نوع الرسم البياني)

يولد رمز ASP النقي وظيفة الرسم البياني 1 - مخطط شريط

"المؤلف: Gong Ming (PasswordGM) QQ: 25968152 MSN: [email protected] البريد الإلكتروني: [email protected]

"أنا على استعداد للغاية للتواصل والمناقشة مع ASP و VML و Flash Atmans على http://topclouds.126.com

الإصدار 2.0 آخر تاريخ تم تعديله 2003-7-22

شكرا جزيلا لك على استخدام هذه الوظيفة. يرجى الاحتفاظ بمعلومات حقوق الطبع والنشر عند استخدام وإعادة الطباعة. هذا هو أفضل احترام لعمل المؤلف.

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

الطول = السماكة/2

TOTAL_NO = UBUND (المجموع ، 1)

temp1 = 0

لأني = 1 إلى total_no

إذا temp1 <total (i ، 1) temp1 = total (i ، 1)

التالي

temp1 = int (temp1)

إذا temp1> 9 ثم

Temp2 = Mid (CSTR (Temp1) ، 2،1)

إذا temp2> 4 ثم

temp3 = (int (temp1/(10^(len (cstr (temp1))-1))) 1)*10^(len (cstr (temp1))-1)

آخر

temp3 = (int (temp1/(10^(len (cstr (temp1))-1)))) 0.5)*10^(len (cstr (temp1))-1)

إنهاء إذا

آخر

إذا temp1> 4 ثم temp3 = 10 آخر temp3 = 5

إنهاء إذا

temp4 = temp3

Response.write <!-[if gte vml 1]> <v: rect id = '_x0000_s1027' alt = '' 'style =' position: absolute ؛ left: & table_x left_width & px ؛ top: stroked = 'f'> <v: fill rotate = 't' angle = '-45' focus = '100 ٪' type = 'gradient' // </v: rect> <! [endif]->

desponse.write <!-[if gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'position: absert ؛ left: 0 ؛ alt-align: left ؛ top: 0 ؛ flip: y ؛ z-index: -1' from = '& table_x left_widt & px ، & ally all_we. left_width & px ، & table_y all_height & px '/> <! [endif]->

desponse.write <!-[if gte vml 1]> <v: line id = '_x0000_s1027' alt = '' 'style =' position: aboor ؛ left: 0 ؛ text-align: left ؛ top: 0 ؛ flip: y ؛ z-index: -1 'from =' & table_x left_width & px ، left_width & px ، & table_y all_height & px '/> <! [endif]->

حدد CASE TABLE_TYPE

الحالة أ

table_space = (all_width-table_width*total_no)/total_no

desponse.write <!-[if gte vml 1]> <v: line id = '_x0000_s1027' alt = '' 'style =' position: aboor ؛ left: 0 ؛ text-align: left ؛ top: 0 ؛ flip: y ؛ z-index: -1 'from =' & table_x left_wid length & px ، Length & px ، & table_y all_height-length & px 'strokecolor =' & line_color & '/> <! [endif]->

لأني = 0 إلى all_height-1 الخطوة all_height/5

desponse.write <!-[if gte vml 1]> <v: line id = '_x0000_s1027' alt = '' 'style =' position: absert ؛ left: 0 ؛ text-align: left ؛ top: 0 ؛ flip: y ؛ z-index: -1 'from =' & table_x left_width & px ، & ablied_y all_height- Left_width Length & px ، & table_y all_height-i & px 'strokecolor =' & line_color & '/> <! [endif]->

desponse.write <!-[if gte vml 1]> <v: line id = '_x0000_s1027' alt = '' 'style =' position: abort ؛ left: 0 ؛ text-align: left ؛ top: 0 ؛ flip: y ؛ z-index: -1 'from =' & table_x left_wid length & px all_width left_width & px ، & table_y all_height-length-i & px 'strokecolor =' & line_color & '/> <! [endif]->

repart.write <!-[if gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'position: absert ؛ left: 0 ؛ text-align: left ؛ top: 0 ؛ flip: y ؛ z-index: -1' from = '& table_x (left_wid-15) left_width & px ، & table_y i & px '/> <! [endif]->

Response.write <!-[إذا GTE VML 1]>

استجابة. write <v: شكل معرف = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'الموضع: absert ؛ left: & table_x & px ؛ top: & table_y i & px ؛ width:

reponse.write <v: textbox inset = '0px ، 0px ، 0px ، 0px'> <table cellpacing = '3' cellpadding = '0' width = '100 ٪' height = '100 ٪'> <tr> <td align = 'right'> & temp4 & </td> </tr> </v:

temp4 = temp4-temp3/5

التالي

لأني = 1 إلى total_no

temp_space = table_x left_width table_space/2 table_space*(i-1) table_width*(i-1)

reponse.write <v: rect id = '_x0000_s1025' alt = '' 'style =' position: aboor ؛ left:

استجابة. write temp_space

استجابة. كتابة PX ؛ TOP:

استجابة. write table_y all_height*(1- (المجموع (i ، 1)/temp3))

استجابة. write px ؛ width: & table_width & px ؛ الارتفاع: & all_height*(total (i ، 1)/temp3) & px ؛ z-index: 1 'fillColor =' & tb_color (i ، 2) & '>>>

استجابة. write <v: fill color2 = '& tb_color (i ، 1) &' rotate = 't' type = 'gradient'/>

reponse.write <o: proude v: ext = 'view' backdepth = '& shight & pt' color = '& tb_color (i ، 2) &' on = 't'/>

استجابة. write </v: rect>

reponse.write <v: شكل معرف = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'الموضع: absert ؛ left: & temp_space & px ؛ top: 15 & px ؛ الارتفاع: 18px ؛ z-index: 1 '>

reponse.write <v: textbox inset = '0px ، 0px ، 0px ، 0px'> <table cellpacing = '3' cellpadding = '0' width = '100 ٪' height = '100 ٪'> <tr> <td align = 'center'> & total (i ، 1)

repart.write <v: شكل معرف = '_x0000_s1025' type = '#_x0000_t202' alt = '' 'style =' الموضع: abselute ؛ left: & temp_space-table_space/2 & px ؛ top:

reponse.write <v: textbox inset = '0px ، 0px ، 0px ، 0px'> <table cellpacing = '3' cellpadding = '0' width = '100 ٪' height = '100 ٪'> <tr> <td align = 'center'> & total (i ، 2)

التالي

الحالة ب

table_space = (all_height-table_width*total_no)/total_no

desponse.write <!-[if gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'position: absert ؛ left: 0 ؛ text-align: left ؛ top: 0 ؛ flip: y ؛ z-index: -1' from = '& table_x left_wid length & px all_width & px ، & table_y all_height-length & px 'strokecolor =' & line_color & '/> <! [endif]->

ل i = 0 إلى all_width-1 الخطوة all_width/5

desponse.write <!-[if gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'position: absert ؛ left: 0 ؛ text-align: left ؛ top: 0 ؛ flip: y ؛ z-index: -1' from = '& table_x left_wid i & px ، & ably_y all_high طول I & PX ، & table_y all_height & px 'strokecolor =' & line_color & ' /> <! [endif]->

desponse.write <!-[if gte vml 1]> <v: line id = '_x0000_s1027' alt = '' 'style =' position: abort ؛ left: 0 ؛ text-align: left ؛ top: 0 ؛ flip: y ؛ z-index: -1 'from =' & table_x left_wid length i & px Left_width طول i & px ، & table_y & px 'strokecolor =' & line_color & ' /> <! [endif]->

desponse.write <!-[if gte vml 1]> <v: line id = '_x0000_s1027' alt = '' 'style =' position: abort ؛ left: 0 ؛ text-align: left ؛ top: 0 ؛ flip: y ؛ z-index: -1 'from =' & table_x left_width i all_width/5 & px ، left_width i all_width/5 & px ، & table_y all_height 15 & px '/> <! [endif]->

Response.write <!-[إذا GTE VML 1]>

Response.write <v: شكل معرف = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'الموضع: abser ؛ left: & table_x left_width i all_width/5-left_width & px ؛ top: & all_hight & px ؛ width: '>

reponse.write <v: textbox inset = '0px ، 0px ، 0px ، 0px'> <table cellpacing = '3' cellpadding = '0' width = '100 ٪' height = '100 ٪'> <tr> <td align = 'right'> & temp4 & </td> </tr> </v:

temp4 = temp4-temp3/5

التالي

لأني = 1 إلى total_no

temp_space = table_space/2 table_space*(i-1) table_width*(i-1)

reponse.write <v: rect id = '_x0000_s1025' alt = '' 'style =' position: aboor ؛ left:

استجابة. write table_x left_width

استجابة. كتابة PX ؛ TOP:

استجابة. write table_y temp_space

استجابة. write px ؛ width: & all_width*(total (i ، 1)/temp3) & px ؛ height:

استجابة. write <v: fill color2 = '& tb_color (i ، 1) &' rotate = 't' angle = '-90' focus = '100 ٪' type = 'bradient'/>

reponse.write <o: proude v: ext = 'view' backdepth = '& shight & pt' color = '& tb_color (i ، 2) &' on = 't'/>

استجابة. write </v: rect>

repart.write <v: شكل معرف = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'الموضع: abser ؛ left: 15 & px ؛ الارتفاع: 18px ؛ z-index: 1 '>

reponse.write <v: textbox inset = '0px ، 0px ، 0px ، 0px'> <table cellpacing = '3' cellpadding = '0' width = '100 ٪' height = '100 ٪'> <tr> <td align = 'center'> & total (i ، 1)

استجابة. write <v: شكل معرف = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'الموضع: absert ؛ left: & table_x & px ؛ top: & table_y temp_space & px ؛ width:

reponse.write <v: textbox inset = '0px ، 0px ، 0px ، 0px'> <table cellpacing = '3' cellpadding = '0' width = '100 ٪' height = '100 ٪'> <tr> <td align = 'right'> & total (i ، 2)

التالي

حالة أخرى

نهاية الاختيار

وظيفة نهاية

٪>

<٪

الدالة Table3 (Total ، Table_X ، Table_y ، all_width ، all_height ، table_type)

'معنى المعلمة (تم تمرير صفيف ، الإحداثي الأفقي ، الإحداثي العمودي ، عرض الرسم البياني ، الارتفاع ، نوع الرسم البياني)

"مخطط الرسم البياني لتوليد رمز ASP النقي وظيفة 3-PIE

"المؤلف: Gong Ming (PasswordGM) QQ: 25968152 MSN: [email protected] البريد الإلكتروني: [email protected]

"أنا على استعداد للغاية للتواصل والمناقشة مع ASP و VML و Flash Atmans على http://topclouds.126.com

الإصدار 1.0 آخر تاريخ تم تعديله 2003-8-11

شكرا جزيلا لك على استخدام هذه الوظيفة. يرجى الاحتفاظ بمعلومات حقوق الطبع والنشر عند استخدام وإعادة الطباعة. هذا هو أفضل احترام لعمل المؤلف.

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 (المجموع ، 1)

TotalPie = 0

لأني = 1 إلى total_no

TotalPie = TotalPie Total (i ، 1)

التالي

preangle = 0

لأني = 1 إلى total_no

repart.write <v: earm id = '_x0000_s1025' alt = '' 'style =' position: apport ؛ left: & table_x & px ؛ top: & table_y & px ؛ width: 'M750،700ae750،700،750،700 ، & int (23592960*preangle) & ، & int (23592960*total (i ، 1)/totalpie) & xe' fillcolor = '& tb_color (i ، 1) rotate = 't' focus = '100 ٪' type = 'gradient'/> <v: stroke joinstyle = 'Round'/> <v: formulas/> <v: path o: connecttype = 'secments' // </v: form> & chr (13)

Preangle = Preangle Total (I ، 1)/TotalPie

التالي

إذا table_type = a ثم

استجابة. write <v: rect id = '_x0000_s1025' style = 'الموضع: absolute ؛ اليسار: & table_x all_width 20 & px ؛ top: & table_y 20 & px ؛ width: 100px ؛ height: & total_no*tb_hight 20 & px ؛ z-index: 1'/

لأني = 1 إلى total_no

استجابة. write <v: شكل معرف = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'الموضع: abser ؛ left: & table_x all_width 25 & px ؛ top: & table_y 30 (i-1)

reponse.write <v: textbox inset = '0px ، 0px ، 0px ، 0px'> <table cellpacing = '3' cellpadding = '0' width = '100 ٪' height = '100 ٪'> <tr> <td align = 'left'

Response.write <v: rect id = '_x0000_s1040' alt = '' 'style =' position: absomute ؛ left: color2 = '& tb_color (i ، 2) &' rotate = 't' focus = '100 ٪' type = 'gradient'/> </v: rect>

"عرض النسبة

"response.write <v: form id = '_x0000_s1025' type = '#_x0000_t202' alt = '' 'style =' position: apport ؛ left: & table_x all_width 110 & px ؛ top:

"reponse.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: mapple>

التالي

إنهاء إذا

إذا table_type = b ثم

فطيرة = 3.14159265358979

Temppie = 0

لأني = 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

إذا كان x2> table_x all_width/2 ثم

x3 = x2 20

x4 = x3

آخر

x3 = x2-20

x4 = x3-100

إنهاء إذا

استجابة. write <v: Oval id = '_x0000_s1027' style = 'الموضع: absolute ؛ left: & x1-2 & px ؛ top:

Response.write <v: line id = '_x0000_s1025' alt = '' 'style =' position: aboor ؛ left: 0 ؛ text-align: left ؛ top: 0 ؛ z-index: 1 'from =' & x1 & px ، & y1 & px 'to =' & x2 & px ، strokeweight = '1px'> </v: line>

Response.write <v: line id = '_x0000_s1025' alt = '' 'style =' position: aboor ؛ left: 0 ؛ text-align: left ؛ top: 0 ؛ z-index: 1 'from =' & x2 & px ، & y2 & px 'to =' & x3 & px ، strokeweight = '1px'> </v: line>

reponse.write <v: شكل معرف = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'الموضع: aboor ؛ left: & x4 & px ؛ top:

reponse.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: mapple>

Temppie = Temppie Total (I ، 1)/TotalPie

التالي

إنهاء إذا

وظيفة نهاية

٪>

وظيفة تخطيط رمز ASP النقي وظيفة 1 - مثال على مخطط الشريط

<٪

إجمالي قاتمة (7،2)

المجموع (1،1) = 200

المجموع (2،1) = 800

المجموع (3،1) = 1000

المجموع (4،1) = 600

المجموع (5،1) = 1222

المجموع (6،1) = 3213

المجموع (7،1) = 8

المجموع (1،2) = أخبار الأعمال الصينية

المجموع (2،2) = موقع التوظيف

المجموع (3،2) = 51JOB

المجموع (4،2) = أخبار Xinmin المسائية

المجموع (5،2) = أخبار الأخبار المسائية

المجموع (6،2) = عطلة نهاية الأسبوع الجنوبية

المجموع (7،2) = أخبار يانغشنغ المسائية

Total_no = 7

٪>

<html xmlns: v = urn: schemas-microsoft-com: vml xmlns: o = urn: schemas-microsoft-com: Office: Office>

<!-[if! mso]>

<style>

v/:* {السلوك: url (#default#vml)}

o/:* {السلوك: url (#افتراضي#vml)}

.shape {السلوك: url (#الافتراضي#vml)}

</style>

<! [endif]->

<head>

<meta http-equiv = content-type content = text/html ؛ charset = gb2312>

<title> </title>

<style>

td {font-size: 9pt}

</style> </head>

<body topmargin = 5 leftMargin = 0 scroll = auto>

<L Table1 (Total ، 200،20،20،30،400،200 ، a) ٪>

<L Table1 (Total ، 200،320،20،20،400،250 ، b) ٪>

</body>

</html>