ASP สร้างร่างรูปคอลัมน์, แผนภูมิเส้น, ซอร์สโค้ดแผนภูมิพาย

-

ฟังก์ชั่นตารางที่ 2 (ทั้งหมด, table_x, table_y, all_width, all_height, line_no)

'ความหมายของพารามิเตอร์ (อาร์เรย์ที่ผ่าน, พิกัดแนวนอน, พิกัดแนวตั้ง, ความกว้างของแผนภูมิ, ความสูงของแผนภูมิ, จำนวนเส้น)

'รหัส ASP บริสุทธิ์สร้างแผนภูมิแผนภูมิ 2 บรรทัด

'ผู้แต่ง: กงหมิง (รหัสผ่าน) QQ: 25968152 msn: [email protected] อีเมล: [email protected]

'ฉันเต็มใจที่จะสื่อสารและพูดคุยกับ ASP, VML และผู้ที่ชื่นชอบแฟลชที่ http://topclouds.126.com

'เวอร์ชัน 1.0 วันที่แก้ไขล่าสุด 2003-8-11

'ขอบคุณมากสำหรับการใช้ฟังก์ชั่นนี้ โปรดเก็บข้อมูลลิขสิทธิ์เมื่อใช้และพิมพ์ซ้ำ นี่คือความเคารพที่ดีที่สุดสำหรับงานของผู้เขียน

line_color =#69f

left_width = 70

total_no = ubund (ทั้งหมด, 1)

temp1 = 0

สำหรับ i = 1 ถึง total_no

สำหรับ j = 1 ถึง line_no

ถ้า temp1 <ทั้งหมด (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 else temp3 = 5

สิ้นสุดถ้า

temp4 = temp3

Response.write <v: rect id = '_x0000_s1027' alt = '' style = 'ตำแหน่ง: สัมบูรณ์; ซ้าย: & table_x left_width & px; top: & table_y & px; ความกว้าง: & all_width & px; rotate = 't' angle = '-45' focus = '100%' type = 'gradient'/> </v: rect>

สำหรับ i = 0 ถึง all_height-1 ขั้นตอน all_height/5 ขั้นตอน

Response.write <V: line id = '_x0000_s1027' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: 0; text-allign: left; top: 0; flip: y; z-index: -1' จาก = '& table_x left_width ความยาว & px left_width & px, & table_y all_height-length-i & px 'strokecolor =' & line_color & '/>

Response.write <V: line id = '_x0000_s1027' alt = '' style = 'ตำแหน่ง: Absolute; left: 0; text-allign: left; top: 0; flip: y; z-index: -1' จาก = '& table_x (left_width-15)

Response.write

Response.write <v: รูปร่าง id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: & table_x & px; top: & table_y i & px; width: & left_width & px;

Response.write <V: Inset กล่องข้อความ = '0px, 0px, 0px, 0px'> <ตารางการจับมืออาชีพ = '3' cellpadding = '0' width = '100%' ความสูง = '100%'> <tr> <td allign = 'ขวา'> & temp4 & </td> </tr>

temp4 = temp4-temp3/5

ต่อไป

Response.write <V: line id = '_x0000_s1027' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: 0; text-allign: left; top: 0; flip: y; z-index: -1' จาก = '& table_x left_width & px all_height & px '/>

Response.write <V: line id = '_x0000_s1027' alt = '' style = 'ตำแหน่ง: Absolute; left: 0; text-allign: left; top: 0; flip: y; z-index: -1' จาก = '& table_x left_width & px, & table_y & px'

DIM LINE_CODE

REDIM LINE_CODE (LINE_NO, 5)

สำหรับ i = 1 ถึง line_no

line_temp = แยก (ทั้งหมด (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)

Response.write <V: Line ID = _x0000_S1025 ALT = style = 'ตำแหน่ง: Absolute; ซ้าย: 0; Text-ALIGN: ซ้าย; TOP; TOP: 0; Z-INDEX: 1' จาก = & X1 & PX, & Y1 & PX ถึง = & X2 & PX, & Y2 & PX strokeweight = & line_code (j, 2) &>

เลือก case line_code (j, 3)

กรณีที่ 1

กรณีที่ 2

Response.write <V: stroke dashstyle = '1 1'/>

กรณีที่ 3

Response.write <V: stroke dashstyle = 'dash'/>

กรณีที่ 4

Response.write <V: stroke dashstyle = 'dashdot'/>>

กรณีที่ 5

Response.write <V: stroke dashstyle = 'longdash'/>>

กรณีที่ 6

Response.write <V: stroke dashstyle = 'longdashdot'/>>

กรณีที่ 7

Response.write <V: stroke dashstyle = 'longdashdotdot'/>>>

กรณีอื่น

สิ้นสุดเลือก

Response.write </v: line> & ch (13)

เลือก case line_code (j, 4)

กรณีที่ 1

กรณีที่ 2

Response.write <V: rect id = _x0000_s1027 style = 'ตำแหน่ง: สัมบูรณ์; ซ้าย: & x1-2 & px; top: & y1-2 & px; ความกว้าง: 4px; ความสูง: 4px; z-index: 2' fillcolor = & line_code (J, 1)

กรณีที่ 3

Response.write <V: OVAL ID = _X0000_S1026 Style = 'ตำแหน่ง: Absolute; ซ้าย: & X1-2 & PX; TOP: & Y1-2 & PX; ความกว้าง: 4PX; ความสูง: 4PX; Z-INDEX: 1' FillColor = & line_code (J, 1)

สิ้นสุดเลือก

ต่อไป

เลือก case line_code (j, 4)

กรณีที่ 1

กรณีที่ 2

Response.write <V: rect id = _x0000_s1027 style = 'ตำแหน่ง: สัมบูรณ์; ซ้าย: & x2-2 & px; top: & y2-2 & px; ความกว้าง: 4px; ความสูง: 4px; z-index: 2' fillcolor = & line_code (J, 1)

กรณีที่ 3

Response.write <V: OVAL ID = _X0000_S1026 Style = 'ตำแหน่ง: Absolute; ซ้าย: & x2-2 & px; top: & y2-2 & px; ความกว้าง: 4px; ความสูง: 4px; z-index: 1' fillcolor = & line_code (J, 1)

สิ้นสุดเลือก

ต่อไป

สำหรับ i = 1 ถึง total_no

Response.write <V: line id = '_x0000_s1027' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: 0; text-allign: left; top: 0; flip: y; z-index: -1' จาก = '& table_x left_width all_width*(i-1) all_width*(i-1)/total_no & px, & table_y all_height 15 & px '/>

Response.write

Response.write <v: รูปร่าง id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: & table_x left_width all_width*(i-1)/total_no & px; all_height & px; width: & all_width/total_no & px; ความสูง: 18px; z-index: 1 '>

Response.write <V: Inset กล่องข้อความ = '0PX, 0PX, 0PX, 0PX'> <ตารางการจับมืออาชีพ = '3' CellPadding = '0' width = '100%' ความสูง = '100%'> <tr> <td allign = 'left'> & total (i, 0)

ต่อไป

tb_height = 30

Response.write <V: rect id = '_x0000_s1025' style = 'ตำแหน่ง: Absolute; ซ้าย: & table_x all_width 20 & px; top: & table_y & px; ความกว้าง: 100px; ความสูง: & line_no*tb_height 20 & px; z-index: 1'/>

สำหรับ i = 1 ถึง line_no

Response.write <V: shape id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: & table_x all_width 25 & px; top: & table_y 10 (i-1)*tb_height & px;

Response.write <V: Inset กล่องข้อความ = '0PX, 0PX, 0PX, 0PX'> <ตารางการจับมืออาชีพ = '3' CellPadding = '0' width = '100%' ความสูง = '100%'> <tr> <td allign = 'left'> & line_code (i, 5)

Response.write <v: rect id = '_x0000_s1040' alt = '' style = 'ตำแหน่ง: สัมบูรณ์; ซ้าย: & table_x all_width 80 & px; top: & table_y 10 (i-1)*tb_height 4 & px; color2 = '& line_code (i, 1) &' rotate = 't' focus = '100%' type = 'gradient'/> </v: rect>

ต่อไป

ฟังก์ชันสิ้นสุด

-

-

ฟังก์ชั่นตารางที่ 1 (ทั้งหมด, table_x, table_y, ความหนา, table_width, all_width, all_height, table_type)

'ความหมายของพารามิเตอร์ (อาร์เรย์ที่ผ่าน, พิกัดแนวนอน, พิกัดแนวตั้ง, ความหนาของคอลัมน์, ความกว้างของคอลัมน์, ความกว้างของแผนภูมิ, ความสูงของแผนภูมิ, ประเภทแผนภูมิ)

'รหัส ASP บริสุทธิ์สร้างฟังก์ชั่นแผนภูมิ 1 - แผนภูมิแท่ง

'ผู้แต่ง: กงหมิง (รหัสผ่าน) QQ: 25968152 msn: [email protected] อีเมล: [email protected]

'ฉันเต็มใจที่จะสื่อสารและพูดคุยกับ ASP, VML และผู้ที่ชื่นชอบแฟลชที่ 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

สำหรับ i = 1 ถึง total_no

ถ้า temp1 <ทั้งหมด (i, 1) ดังนั้น temp1 = ทั้งหมด (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 else temp3 = 5

สิ้นสุดถ้า

temp4 = temp3

Response.write <!-[ถ้า gte vml 1]> <v: rect id = '_x0000_s1027' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: & table_x left_width & px; top: & table_y & px; stroked = 'f'> <v: เติม rotate = 't' angle = '-45' focus = '100%' type = 'gradient' // </v: rect> <! [endif]->

Response.write <!-[ถ้า gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: 0; text-allign: ซ้าย; top: 0; flip: y; z-index: -1' จาก = '& table_x left_width & px left_width & px, & table_y all_height & px '/> <! [endif]->

Response.write <!-[ถ้า gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: 0; text-allign: ซ้าย; top: 0; flip: y; z-index: -1' จาก = '& table_x left_width & px left_width & px, & table_y all_height & px '/> <! [endif]->

เลือก case table_type

กรณี a

table_space = (all_width-table_width*total_no)/total_no

Response.write <!-[ถ้า gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: 0; text-allign: ซ้าย; ด้านบน: 0; Flip: y; z-index: -1' จาก = '& table_x ความยาว & px, & table_y all_height-length & px 'strokecolor =' & line_color & '/> <! [endif]->

สำหรับ i = 0 ถึง all_height-1 ขั้นตอน all_height/5 ขั้นตอน

Response.write <!-[ถ้า gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: 0; text-allign: ซ้าย; top: 0; flip: y; z-index: -1' จาก = '& table_x left_width & px left_width ความยาว & px, & table_y all_height-i & px 'strokecolor =' & line_color & '/> <! [endif]->

Response.write <!-[ถ้า gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: 0; text-allign: ซ้าย; top: 0; flip: y; z-index: -1' จาก = '& table_x all_width left_width & px, & table_y all_height-length-i & px 'strokecolor =' & line_color & '/> <! [endif]->

Response.write <!-[ถ้า gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: 0; text-allign: ซ้าย; top: 0; flip: y; z-index: -1' จาก = '& table_x left_width & px, & table_y i & px '/> <! [endif]->

Response.write <!-[ถ้า gte vml 1]>

Response.write <v: รูปร่าง id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: & table_x & px; top: & table_y i & px; width: & left_width & px;

Response.write <V: Inset กล่องข้อความ = '0PX, 0PX, 0PX, 0PX'> <ตารางการจับมืออาชีพ = '3' CellPadding = '0' width = '100%' ความสูง = '100%'> <tr> <td allign = 'ขวา'> & temp4 & </td> </tr>

temp4 = temp4-temp3/5

ต่อไป

สำหรับ i = 1 ถึง total_no

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

Response.write <v: rect id = '_x0000_s1025' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย:

Response.write Temp_space

Response.write px; ด้านบน:

Response.write table_y all_height*(1- (ทั้งหมด (i, 1)/temp3))

Response.write px; width: & table_width & px; ความสูง: & all_height*(ทั้งหมด (i, 1)/temp3) & px; z-index: 1 'fillcolor =' & tb_color (i, 2) & '>

Response.write <v: เติม color2 = '& tb_color (i, 1) &' rotate = 't' type = 'gradient'/>

Response.write <o: extrusion v: ext = 'view' backdepth = '& thickness & pt' color = '& tb_color (i, 2) &' on = 't'/>

Response.write </v: rect>

Response.write <V: shape id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: & temp_space & px; top: & table_y all_height*(1- (ทั้งหมด (i, 1)/temp3) 15 & px; ความสูง: 18px; z-index: 1 '>

Response.write <V: Inset กล่องข้อความ = '0PX, 0PX, 0PX, 0PX'> <ตารางการจับมืออาชีพ = '3' CellPadding = '0' width = '100%' ความสูง = '100%'> <tr> <td allign = 'center'> & ทั้งหมด (i, 1)

Response.write <V: shape id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: & temp_space-table_space/2 & px; top: & table_y all_height 1 & px;

Response.write <V: Inset กล่องข้อความ = '0PX, 0PX, 0PX, 0PX'> <ตารางการจับมืออาชีพ = '3' CellPadding = '0' width = '100%' ความสูง = '100%'> <tr> <td allign = 'center'> & ทั้งหมด (i, 2)

ต่อไป

กรณี B

table_space = (all_height-table_width*total_no)/total_no

Response.write <!-[ถ้า gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: 0; text-allign: ซ้าย; top: 0; flip: y; z-index: -1' จาก = '& table_x left_width ความยาว & px left_width all_width & px, & table_y all_height-length & px 'strokecolor =' & line_color & '/> <! [endif]->

สำหรับ i = 0 ถึง all_width-1 ขั้นตอน all_width/5 ขั้นตอน

Response.write <!-[ถ้า gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: 0; text-allign: ซ้าย; top: 0; flip: y; z-index: -1' จาก = '& table_x left_width i & px left_width ความยาว i & px, & table_y all_height & px 'strokecolor =' & line_color & ' /> <! [endif]->

Response.write <!-[ถ้า gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: 0; text-allign: ซ้าย; top: 0; flip: y; z-index: -1' จาก = '& table_x left_width ความยาว left_width ความยาว i & px, & table_y & px 'strokecolor =' & line_color & ' /> <! [endif]->

Response.write <!-[ถ้า gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: 0; text-allign: ซ้าย; top: 0; flip: y; z-index: -1' จาก = '& table_x '& table_x left_width ฉัน all_width/5 & px, & table_y all_height 15 & px'/> <! [endif]->

Response.write <!-[ถ้า gte vml 1]>

Response.write <V: รูปร่าง id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: & table_x left_width i all_width/5-left_width & px; -

Response.write <V: Inset กล่องข้อความ = '0PX, 0PX, 0PX, 0PX'> <ตารางการจับมืออาชีพ = '3' CellPadding = '0' width = '100%' ความสูง = '100%'> <tr> <td allign = 'ขวา'> & temp4 & </td> </tr>

temp4 = temp4-temp3/5

ต่อไป

สำหรับ i = 1 ถึง total_no

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

Response.write <v: rect id = '_x0000_s1025' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย:

response.write table_x left_width

Response.write px; ด้านบน:

Response.write table_y temp_space

Response.write px; width: & all_width*(ทั้งหมด (i, 1)/temp3) & px; ความสูง: & table_width & px; z-index: 1 'fillcolor =' & tb_color (i, 2) & '>

Response.write <V: เติม color2 = '& tb_color (i, 1) &' rotate = 't' angle = '-90' focus = '100%' type = 'gradient'/>>

Response.write <o: extrusion v: ext = 'view' backdepth = '& thickness & pt' color = '& tb_color (i, 2) &' on = 't'/>

Response.write </v: rect>

Response.write <V: shape id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: & table_x left_width all_width*(ทั้งหมด (i, 1)/temp3) ความหนา/2 & px; 15 & px; ความสูง: 18px; z-index: 1 '>

Response.write <V: Inset กล่องข้อความ = '0PX, 0PX, 0PX, 0PX'> <ตารางการจับมืออาชีพ = '3' CellPadding = '0' width = '100%' ความสูง = '100%'> <tr> <td allign = 'center'> & ทั้งหมด (i, 1)

Response.write <V: shape id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: & table_x & px; top: & table_y temp_space & px;

Response.write <V: Inset กล่องข้อความ = '0PX, 0PX, 0PX, 0PX'> <ตารางการจับมืออาชีพ = '3' CellPadding = '0' width = '100%' ความสูง = '100%'> <tr> <td allign = 'ขวา'> & ทั้งหมด (i, 2)

ต่อไป

กรณีอื่น

สิ้นสุดเลือก

ฟังก์ชันสิ้นสุด

-

-

ฟังก์ชั่นตารางที่ 3 (ทั้งหมด, table_x, table_y, all_width, all_height, table_type)

'ความหมายของพารามิเตอร์ (อาร์เรย์ที่ผ่าน, พิกัดแนวนอน, พิกัดแนวตั้ง, ความกว้างของแผนภูมิ, ความสูง, ประเภทแผนภูมิ)

'แผนภูมิการสร้างรหัส ASP บริสุทธิ์ 3 พายแผนภูมิ

'ผู้แต่ง: กงหมิง (รหัสผ่าน) QQ: 25968152 msn: [email protected] อีเมล: [email protected]

'ฉันเต็มใจที่จะสื่อสารและพูดคุยกับ ASP, VML และผู้ที่ชื่นชอบแฟลชที่ 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

สำหรับ i = 1 ถึง total_no

TotalPie = TotalPie Total (I, 1)

ต่อไป

preangle = 0

สำหรับ i = 1 ถึง total_no

Response.write <v: รูปร่าง id = '_x0000_s1025' alt = '' style = 'ตำแหน่ง: สัมบูรณ์; ซ้าย: & table_x & px; top: & table_y & px; width: & all_width & px; ความสูง: & all_height & px; z-index: 1' 'M750,700AE750,700,750,700, & int (23592960*preangle) &, & int (23592960*ทั้งหมด (i, 1)/totalpie) & xe' fillcolor = '& tb_color (i, 1) &' Strokecolor = '# rotate = 't' focus = '100%' type = 'gradient'/> <v: stroke joinstyle = 'round'/> <v: formulas/> <v: path o: connectype = 'เซ็กเมนต์' // </v: รูปร่าง> & chr (13)

preangle = preangle ทั้งหมด (i, 1)/totalpie

ต่อไป

ถ้า table_type = a แล้ว

Response.write <V: rect id = '_x0000_s1025' style = 'ตำแหน่ง: Absolute; ซ้าย: & table_x all_width 20 & px; top: & table_y 20 & px; ความกว้าง: 100px; ความสูง: & total_no*tb_height 20 & px; z-index: 1'/>

สำหรับ i = 1 ถึง total_no

Response.write <V: shape id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: & table_x all_width 25 & px; top: & table_y 30 (i-1)*tb_height & px;

Response.write <V: Inset กล่องข้อความ = '0PX, 0PX, 0PX, 0PX'> <ตารางการจับมืออาชีพ = '3' CellPadding = '0' width = '100%' ความสูง = '100%'> <tr> <td allign = 'left'> & total (i, 0)

Response.write <V: rect id = '_x0000_s1040' alt = '' style = 'ตำแหน่ง: สัมบูรณ์; ซ้าย: & table_x all_width 80 & px; top: & table_y 30 (i-1)*tb_height 3 & px; '> <v: เติม color2 =' & tb_color (i, 2) & 'rotate =' t 'โฟกัส =' 100% 'type =' gradient '/> </v: rect>

'แสดงอัตราส่วน

'response.write <v: รูปร่าง id =' _x0000_s1025 'type ='#_x0000_t202 'alt =' 'style =' ตำแหน่ง: Absolute; ซ้าย: & table_x all_width 110 & px; top: & table_y 30 (i-1)*tb_height & px;

'response.write <v: textbox inset =' 0px, 0px, 0px, 0px '> <table cellpacing =' 3 'cellpadding =' 0 'width =' 100% 'ความสูง =' 100% '> <tr> <td allign =' ซ้าย '> & formatNumber (ทั้งหมด (i, 1)*100/totalPie, 2, -1) &%</td> </tr> </table> </table> </v: textbox> </v: shape>

ต่อไป

สิ้นสุดถ้า

ถ้า table_type = b แล้ว

PIE = 3.14159265358979

Temppie = 0

สำหรับ i = 1 ถึง total_no

Tempangle = Pie*2*(ทั้งหมด (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

สิ้นสุดถ้า

Response.write <V: OVAL ID = '_X0000_S1027' style = 'ตำแหน่ง: Absolute; ซ้าย: & x1-2 & px; top: & y1-2 & px; width: 4px; ความสูง: 4px; z-index: 2' fillcolor = '#111111' strokecolor = '#111111

Response.write <V: line id = '_x0000_s1025' alt = '' style = 'ตำแหน่ง: Absolute; left: 0; text-allign: left; top; top: 0; z-index: 1' จาก = '& x1 & px, & y1 & px' strokeweight = '1px'> </v: line>

Response.write <V: line id = '_x0000_s1025' alt = '' style = 'ตำแหน่ง: Absolute; left: 0; text-allign: left; top; top: 0; z-index: 1' จาก = '& x2 & px, & y2 & px' strokeweight = '1px'> </v: line>

Response.write <V: shape id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย: & x4 & px; top: & y2-10 & px; width: 100px; ความสูง: 20px; z-index: 1'>

Response.write <V: Inset กล่องข้อความ = '0px, 0px, 0px, 0px'> <ตารางการจับมืออาชีพ = '3' cellpadding = '0' width = '100%' ความสูง = '100%'> <tr> <td allign = 'left'> & total (i, 0) & & formatNumber (ทั้งหมด (I, 1)*100/TotalPie, 2, -1) &%</td> </tr> </table> </table> </v: textbox> </v: รูปร่าง>

Temppie = Temppie Total (I, 1)/TotalPie

ต่อไป

สิ้นสุดถ้า

ฟังก์ชันสิ้นสุด

-

แผนภูมิการสร้างรหัส ASP บริสุทธิ์ฟังก์ชั่น 1 - ตัวอย่างการโทรแผนภูมิแท่ง

-

สลัวทั้งหมด (7,2)

ทั้งหมด (1,1) = 200

ทั้งหมด (2,1) = 800

ทั้งหมด (3,1) = 1,000

ทั้งหมด (4,1) = 600

ทั้งหมด (5,1) = 1222

ทั้งหมด (6,1) = 3213

ทั้งหมด (7,1) = 8

ทั้งหมด (1,2) = ข่าวธุรกิจของจีน

ทั้งหมด (2,2) = เว็บไซต์จัดหางาน

ทั้งหมด (3,2) = 51Job

ทั้งหมด (4,2) = Xinmin News

ทั้งหมด (5,2) = ข่าวภาคค่ำ

ทั้งหมด (6,2) = สุดสัปดาห์ใต้

ทั้งหมด (7,2) = ข่าวภาคค่ำของ Yangcheng

total_no = 7

-

<html xmlns: v = urn: schemas-microsoft-com: vml xmlns: o = urn: schemas-microsoft-com: สำนักงาน: สำนักงาน>

<!-[ถ้า! mSO]>

<style>

v/:* {พฤติกรรม: url (#เริ่มต้น#vml)}

o/:* {พฤติกรรม: url (#เริ่มต้น#vml)}

.shape {พฤติกรรม: url (#เริ่มต้น#vml)}

</style>

<! [endif]->

<head>

<meta http-equiv = เนื้อหาประเภทเนื้อหา = text/html; charset = gb2312>

<title> </title>

<style>

TD {FONT-SIZE: 9PT}

</style> </head>

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

<l ตารางที่ 1 (รวม, 200,20,20,30,30,400,200, a)%>

<l ตารางที่ 1 (รวม, 200,320,20,20,400,250, b)%>

</body>

</html>