ASP สร้างร่างรูปคอลัมน์, แผนภูมิเส้น, ซอร์สโค้ดแผนภูมิพาย
-
functionTable2 (ทั้งหมด, table_x, table_y, all_width, all_height, line_no)
'ความหมายของพารามิเตอร์ (อาร์เรย์ที่ผ่าน, พิกัดแนวนอน, พิกัดแนวตั้ง, ความกว้างของแผนภูมิ, ความสูงของแผนภูมิ, จำนวนเส้น)
'รหัส ASP บริสุทธิ์สร้างแผนภูมิฟังก์ชัน 2 - แผนภูมิบรรทัด
'ผู้แต่ง: กงหมิง (รหัสผ่าน) QQ: 25968152MSN: [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
fori = 1tototal_no
forj = 1toline_no
iftemp1 <ทั้งหมด (i, j) thentemp1 = ทั้งหมด (i, j)
ต่อไป
ต่อไป
temp1 = int (temp1)
iftemp1> 9 จากนั้น
temp2 = mid (cstr (temp1), 2,1)
iftemp2> 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)
endif
อื่น
iftemp1> 4thentemp3 = 10Elsetemp3 = 5
endif
temp4 = temp3
Response.write "<v: rectid = '_ x0000_s1027'alt =' 'style =' ตำแหน่ง: Absolute; ซ้าย:" & table_x+left_width & "px; top:" & table_y & "px; width:" & all_width all_width & "px; ความสูง:" & all_height & "px; z-index: -1'FillColor = '#9cf'stroked =' f '> <v: fillrotate =' t'angle = '-45'Focus =' 100%'type =' gradient '
fori = 0toall_height-1stepall_height/5
Response.write "<v: lineid = '_ x0000_s1027'alt =' 'style =' ตำแหน่ง: Absolute; ซ้าย: 0; text-allign: left; top: 0; flip: y; z-index: -1'from = '" table_x+left_width+le le left_width ngth & "px," & table_y+all_height-length-i & "px'to = '" & table_x+all_width+left_width & "px," & table_y+all_height-length-i & "px'strokecolor ='" line_color & "'/>"
Response.write "<v: lineid = '_ x0000_s1027'alt =' 'style =' ตำแหน่ง: Absolute; ซ้าย: 0; text-allign: left; top: 0; flip: y; z- ดัชนี: -1'From = '"& table_x+(left_width-15) &" px, "& table_y+i &" px'to =' "table_x+left_width &" px, "& table_y+i &" px '/> "
Response.write ""
Response.write "<v: shapeid = '_ x0000_s1025'Type ='#_ x0000_t202'alt = '' style = 'ตำแหน่ง: Absolute; ซ้าย:" & table_x & "px; top:" table_y+i & "px;
Response.write "<v: textboxinset = '0px, 0px, 0px, 0px'> <tablecellspacing = '3'Cellpadding =' 0'Width = '100%' ความสูง = '100%'> <tdalign = 'ขวา'>
temp4 = temp4-temp3/5
ต่อไป
Response.write "<v: lineid = '_ x0000_s1027'alt =' 'style =' ตำแหน่ง: Absolute; ซ้าย: 0; text-allign: left; top: 0; flip: y; z-index: -1'fro m = '"& table_x+left_width &" px, "& table_y+all_height &" px'to =' "table_x+all_width+left_width &" px, "& table_y+all_height &" px '/> "