ASP menghasilkan badan berbentuk kolom, grafik garis, kode sumber diagram lingkaran
<%
functionTable2 (Total, Table_x, Table_y, All_width, All_height, Line_no)
'Makna parameter (lulus array, koordinat horizontal, koordinat vertikal, lebar bagan, tinggi bagan, jumlah garis)
'Kode ASP murni menghasilkan fungsi grafik 2 - Bagan garis
'Penulis: Gong Ming (Kata SandiGM) QQ: 25968152MSN: kata [email protected]: kata [email protected]
'Saya sangat bersedia berkomunikasi dan berdiskusi dengan ASP, VML, dan penggemar flash di http://topclouds.126.com
'Versi 1.0 Tanggal Terakhir Modifikasi 2003-8-11
'Terima kasih banyak telah menggunakan fungsi ini. Harap simpan informasi hak cipta saat menggunakan dan mencetak ulang. Ini adalah penghormatan terbaik untuk karya penulis.
line_color = "#69f"
left_width = 70
Total_no = ubund (total, 1)
temp1 = 0
fori = 1tototal_no
forj = 1toline_no
iftemp1 <total (i, j) thentemp1 = total (i, j)
Berikutnya
Berikutnya
temp1 = int (temp1)
iftemp1> 9then
temp2 = mid (cstr (temp1), 2,1)
iftemp2> 4then
temp3 = (int (temp1/(10^(len (cstr (temp1))-1)))+1)*10^(len (cstr (temp1))-1)
kalau tidak
temp3 = (int (temp1/(10^(len (cstr (temp1))-1)))+0.5)*10^(len (cstr (temp1))-1)
endif
kalau tidak
IFTEMP1> 4ThentEMP3 = 10ElsEtemp3 = 5
endif
temp4 = temp3
response.write "<v: rectid = '_ x0000_s1027'alt =' 'style =' position: absolute; left:" & table_x+left_width & "px; atas:" & table_y & "px; lebar:" & all_width & "px; tinggi:" & all_height & "px; z-index: -1'fillcolor = '#9cf'stroked =' f '> <v: fillrotate =' t'angle = '-45'focus =' 100%'type =' gradient '/> </v: rect>" "
fori = 0toAll_height-1stepall_height/5
response.write "<v: lineid = '_ x0000_s1027'alt =' 'style =' posisi: absolute; kiri: 0; teks-align: kiri; atas: 0; flip: y; z-index: -1'from = '" & table_x+left_width+le 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 =' posisi: absolute; kiri: 0; teks-align: kiri; atas: 0; flip: y; z- Indeks: -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 = 'Posisi: absolute; kiri:" & table_x & "px; atas:" & table_y+i & "px; lebar:" & left_width & "px; 18p; 18p; px; width:" & left_width & "px; height: 18p; 18p; width:" & left_width & "px; height: 18p; 18p; width:" & left_width & "px; height: 18p;
response.write"<v:textboxinset='0px,0px,0px,0px'><tablecellspacing='3'cellpadding='0'width='100%'height='100%'><tdalign='right'>"&temp4&"</td></tr></table></v:textbox></v:shape>"
temp4 = temp4-temp3/5
Berikutnya
response.write "<v: lineid = '_ x0000_s1027'alt =' 'style =' posisi: absolute; kiri: 0; Teks-Align: kiri; atas: 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 '/> "