ASP menghasilkan badan berbentuk kolom, grafik garis, kode sumber diagram lingkaran

<%

Function Table2 (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 grafik grafik 2-line chart

'Penulis: Gong Ming (kata sandigm) QQ: 25968152 MSN: kata [email protected] Email: 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

untuk i = 1 ke total_no

untuk j = 1 ke line_no

Jika temp1 <total (i, j) maka temp1 = total (i, j)

Berikutnya

Berikutnya

temp1 = int (temp1)

Jika temp1> 9 lalu

temp2 = mid (cstr (temp1), 2,1)

Jika temp2> 4 maka

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)

akhiri jika

kalau tidak

Jika temp1> 4 maka temp3 = 10 else temp3 = 5

akhiri jika

temp4 = temp3

response.write <v: rect id = '_x0000_s1027' alt = '' style = 'Posisi: absolute; kiri: & table_x left_width & px; atas: & table_y & px; lebar: & all_width & px; tinggi: & all_height & px; z-index: -1' qufor / px; & all_height & px; z-index: -1 'qufolc = qufor =' fift = 'fift =' fift = 'fift: oV; rotate = 't' angle = '-45' focus = '100%' type = 'gradient'/> </v: rect>

untuk i = 0 ke all_height-1 langkah all_height/5

response.write <v:line id= '_x0000_s1027 ' alt= ' ' style= 'position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1 ' from= '&table_x left_width length&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: line id = '_x0000_s1027' alt = '' style = 'Posisi: absolute; kiri: 0; Text-align: kiri; atas: 0; flip: y; z-index: -1' dari = '& table_x (left_width-15) & px, & table_y i & px' to = '

respons.write

response.write <v: bentuk id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'posisi: absolute; kiri: & table_x & px; atas: & table_y i & px; lebar: & left_width & px; tinggi: 18px; z-index: 1'>

response.write <v: TextBox inset = '0px, 0px, 0px, 0px'> <Table CellPacing = '3' CellPadding = '0' width = '100%' Tinggi = '100%'> <TD Align = 'Right'> & Temp4 & </td> </tr> </tlu-/tabel =/v: pexpbox> </td> </tr> </tlu/tder </tder> </v: pexpbox> </td> </tr> </tdr> </tlu- td: tw: tw: tw: tw: tw: tw: tw: tw: tw: tw: tw: tw: tw: tw: tw: tw: tw: tw: tw: tw.

temp4 = temp4-temp3/5

Berikutnya

response.write <v: line id = '_x0000_s1027' alt = '' style = 'Posisi: absolute; kiri: 0; Teks-align: kiri; atas: 0; flip: y; z-index: -1' dari = '& table_x left_width & px, & table_y all_height & px' to = ' all_height & px '/>

response.write <v: line id = '_x0000_s1027' alt = '' style = 'Posisi: absolute; kiri: 0; Teks-Align: kiri; atas: 0; flip: y; z-index: -1' dari = '& Table_x left_width & px, & Table_y & px' to = '& Table_x' ’Obl_x, & PX, & TABLE_Y & PX 'TO =' & TABL_X ower_w.width & px, & TABLE_Y & PX 'TO =' & TABLE_X ower_W.WIDTH,

DIM LINE_CODE

redim line_code (line_no, 5)

untuk i = 1 ke 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)

Berikutnya

untuk j = 1 ke line_no

untuk i = 1 ke 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: ID baris = _x0000_s1025 alt = style = 'Posisi: absolute; kiri: 0; Teks-ALLIGN: Kiri; atas: 0; z-index: 1' dari = & x1 & px, & y1 & px ke = & x2 & px, & y2 & px berkoordinasi = 21600.216666600 & px = struktur & px / px = 21600.21600 & px = strokeweight = & line_code (j, 2) &>

Pilih case line_code (j, 3)

Kasus 1

Kasus 2

response.write <v: stroke dashstyle = '1 1'/>

Kasus 3

response.write <v: stroke dashstyle = 'dash'/>

Kasus 4

response.write <v: stroke dashstyle = 'dashdot'/>

Kasus 5

response.write <v: stroke dashstyle = 'longdash'/>

Kasus 6

response.write <v: stroke dashstyle = 'longdashdot'/>

Kasus 7

response.write <v: stroke dashstyle = 'longdashdotdot'/>

kasus lain

Akhiri Pilih

Response.write </v: Line> & Chr (13)

Pilih case line_code (j, 4)

Kasus 1

Kasus 2

response.write <v:rect id=_x0000_s1027 style= 'position:absolute;left:&x1-2&px;top:&y1-2&px;width:4px;height:4px;z-index:2 ' fillcolor=&line_code(j,1)&strokecolor=&line_code(j,1)&/>&CHR(13)

Kasus 3

response.write <v:oval id=_x0000_s1026 style= 'position:absolute;left:&x1-2&px;top:&y1-2&px;width:4px;height:4px;z-index:1 ' fillcolor=&line_code(j,1)&strokecolor=&line_code(j,1)&/>&CHR(13)

Akhiri Pilih

Berikutnya

Pilih case line_code (j, 4)

Kasus 1

Kasus 2

response.write <v:rect id=_x0000_s1027 style= 'position:absolute;left:&x2-2&px;top:&y2-2&px;width:4px;height:4px;z-index:2 ' fillcolor=&line_code(j,1)&strokecolor=&line_code(j,1)&/>&CHR(13)

Kasus 3

response.write <v:oval id=_x0000_s1026 style= 'position:absolute;left:&x2-2&px;top:&y2-2&px;width:4px;height:4px;z-index:1 ' fillcolor=&line_code(j,1)&strokecolor=&line_code(j,1)&/>&CHR(13)

Akhiri Pilih

Berikutnya

untuk i = 1 ke total_no

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

respons.write

response.write <v: bentuk id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'posisi: absolute; kiri: & table_x left_width all_width*(i-1)/total_no & px; atas: & table_y all_height & px; lebar: & all_width/total_no & px; tinggi: 18px; z-index: 1 '>

Response.write <v: TextBox Inset = '0px, 0px, 0px, 0px'> <Table CellPacing = '3' CellPadding = '0' width = '100%' Tinggi = '100%'> <td align = 'kiri'> & total (i, 0) & </td> </tr> </tdr>

Berikutnya

tb_height = 30

response.write <v: rect id = '_x0000_s1025' style = 'position: absolute; kiri: & table_x all_width 20 & px; atas: & table_y & px; lebar: 100px; tinggi: & line_no*tb_height 20 & px; z-indeks: 1'//>

untuk i = 1 ke line_no

response.write <v: bentuk id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'Posisi: absolute; kiri: & table_x all_width 25 & px; Top: & Table_y 10 (i-1)*tb_height & px; 60px: 60px;

Response.write <v: TextBox Inset = '0px, 0px, 0px, 0px'> <Table CellPacing = '3' CellPadding = '0' width = '100%' Tinggi = '100%'> <td align = 'kiri'> & line_code (i, 5) & </td> </tr> </line_code </v: Text> </v: Textbox> </v: v: Textbox> </v: v: Textbox> </v: v: Textbox> </v: v: Textbox> </v: v: Textbox> </v: v: Textbox> </v: v: Textbox> </v: v: Textbox> </v: v: Text> </v: Textbox> </v: v: Text> </v: TEXT//V: TEXT/TEXT/TEXT/5)

response.write <v: rect id = '_x0000_s1040' alt = '' style = 'Posisi: absolute; kiri: & table_x all_width 80 & px; atas: & table_y 10 (i-1)*tb_height 4 & px; Lebar: 30px; tinggi: 20px; z-index: 1' quilcet = 30px; Tinggi: 20px; z-index: 1 'FIFOLOD = 30px; Tinggi: 20px; Z-index: 1' color2 = '& line_code (i, 1) &' rotate = 't' focus = '100%' type = 'gradient'/> </v: rect>

Berikutnya

fungsi akhir

%>

<%

Function Table1 (Total, Table_X, Table_y, Ketebalan, Table_width, All_width, All_height, Table_Type)

'Makna parameter (lulus array, koordinat horizontal, koordinat vertikal, ketebalan kolom, lebar kolom, lebar bagan, tinggi bagan, tipe grafik)

'Kode ASP murni menghasilkan fungsi grafik 1 - BARK BAR

'Penulis: Gong Ming (kata sandigm) QQ: 25968152 MSN: kata [email protected] Email: kata [email protected]

'Saya sangat bersedia berkomunikasi dan berdiskusi dengan ASP, VML, dan penggemar flash di http://topclouds.126.com

'Versi 2.0 Tanggal Terakhir Modifikasi 2003-7-22

'Terima kasih banyak telah menggunakan fungsi ini. Harap simpan informasi hak cipta saat menggunakan dan mencetak ulang. Ini adalah penghormatan terbaik untuk karya penulis.

redup 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

panjang = ketebalan/2

Total_no = ubund (total, 1)

temp1 = 0

untuk i = 1 ke total_no

Jika Temp1 <Total (I, 1) maka Temp1 = Total (I, 1)

Berikutnya

temp1 = int (temp1)

Jika temp1> 9 lalu

temp2 = mid (cstr (temp1), 2,1)

Jika temp2> 4 maka

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)

akhiri jika

kalau tidak

Jika temp1> 4 maka temp3 = 10 else temp3 = 5

akhiri jika

temp4 = temp3

response.write <!-[if gte vml 1]> <v: rect id = '_x0000_s1027' alt = '' style = 'position: absolute; left: & table_x left_width & px; atas: & tabel_y & px; lebar: & all_width & px; tinggi: & all_height = px; ps: px; px; px; px; px; px; & all_clex; stroked = 'f'> <v: isi rotate = 't' angle = '-45' focus = '100%' type = 'gradient' // </v: rect> <! [endif]->

response.write <!-[if gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'position: absolute; kiri: 0; text-align: kiri; atas: 0; flip: y; z-index: -1' from = '& table_x left_width & px, & px, & ha / ha & pax ower_y & px, & px, & px, & px, & px, & px, & pex, left_width & px, & table_y all_height & px '/> <! [endif]->

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

Pilih case table_type

kasus a

Table_space = (all_width-table_width*total_no)/total_no

Response.write <!-[if gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'Posisi: absolute; kiri: 0; Teks-ALLIGN: Kiri; TOP: 0; flip: y; z-index: -1' dari = '& Table_x left_width panjang & px, & px, & px, & tabel, & tabel, & tabel, & tabel, Panjang & PX, & TABLE_Y ALL_HEIGHT-Length & px 'strokecolor =' & line_color & '/> <! [Endif]->

untuk i = 0 ke all_height-1 langkah all_height/5

Response.write <!-[if gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'position: absolute; kiri: 0; Text-align: kiri; TOP: 0; flip: y; z-index: -1' dari = '& Table_x left_width & px, & tabel owx owx: & px-long_y / px, & tabel-LIGHT- / px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & tabel owx, left_width length & px, & table_y all_height-i & px 'strokecolor =' & line_color & '/> <! [endif]->

Response.write <!-[if gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'Posisi: absolute; kiri: 0; Teks-ALLIGN: LIFT; TOP: 0; flip: y; z-index: -1' dari = '& Table_x left_width panjang & px, & px, & px, & tabel, & tabel, & px, & tabel, & tabel, all_width left_width & px, & table_y all_height-length-i & px 'strokeColor =' & line_color & '/> <! [endif]->

Response.write <!-[if gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'Posisi: absolute; kiri: 0; Teks-Align: Kiri; Top: 0; flip: y; z-index: -1' dari = '& Table_x (kiri_width-15) & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, & px, left_width & px, & table_y i & px '/> <! [endif]->

response.write <!-[jika gte vml 1]>

response.write <v: bentuk id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'posisi: absolute; kiri: & table_x & px; atas: & table_y i & px; lebar: & left_width & px; tinggi: 18px; z-index: 1'>

response.write <v:textbox inset= '0px,0px,0px,0px ​​​​'><table cellpacing= '3 ' cellpadding= '0 ' width= '100% ' height= '100% '><tr><td align= 'right '>&temp4&</td></tr></table></v:textbox></v:shape><![endif]-->

temp4 = temp4-temp3/5

Berikutnya

untuk i = 1 ke 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 = 'posisi: absolute; kiri:

response.write temp_space

response.write px; atas:

response.write table_y all_height*(1- (total (i, 1)/temp3)))

response.write px; lebar: & table_width & px; tinggi: & all_height*(total (i, 1)/temp3) & px; z-index: 1 'fillColor =' & tb_color (i, 2) & '>

response.write <v: isi warna2 = '& tb_color (i, 1) &' rotate = 't' type = 'gradient'/>

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

response.write </v: rect>

response.write <v:shape id= '_x0000_s1025 ' type= '#_x0000_t202 ' alt= ' ' style= 'position:absolute;left:&temp_space&px;top:&table_y all_height*(1-(total(i,1)/temp3))-table_width&px;width:&table_space 15 & PX; Tinggi: 18px; z-index: 1 '>

Response.write <v: TextBox Inset = '0px, 0px, 0px, 0px'> <Table CellPacing = '3' CellPadding = '0' width = '100%' Tinggi = '100%'> <td align = 'center'> & Total (i, 1) & </td> </tr> </tdr> center '> & Text: i, i, i, 1) & </td> </tr> </tr> </tr> </tder> </v: Text'> </td: td: td: td: i, i, i, i, i, i, i, i, i, i, i, i, i, i, i, i, i, i, i, i, i, i, 1)

response.write <v: bentuk id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'Posisi: absolute; kiri: & temp_space-table_space/2 & px; Top: & Table_y all_height 1 & px; Lebarnya: & Table_space: Table_width: Lebarnya: & Table_Space: Table_Width: Lebarnya: & Table_Space: Table_Width;

Response.write <v: TextBox Inset = '0px, 0px, 0px, 0px'> <Table CellPacing = '3' CellPadding = '0' width = '100%' Tinggi = '100%'> <TD Align = 'Center'> & Total (i, 2) & </td> </tr> </tdr> Center '> & Text: i, i, 2) & </td> </tr> </tr> </tdr>

Berikutnya

Kasus b

Table_space = (all_height-table_width*total_no)/total_no

response.write <!--[if gte vml 1]><v:line id= '_x0000_s1027 ' alt= ' ' style= 'position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1 ' from= '&table_x left_width length&px,&table_y all_height-length&px ' to= '&table_x left_width all_width & px, & table_y all_height-length & px 'strokeColor =' & line_color & '/> <! [endif]->

untuk i = 0 ke all_width-1 langkah all_width/5

Response.write <!-[if gte vml 1]> <v: line id = '_x0000_s1027' alt = '' style = 'position: absolute; kiri: 0; Text-align: kiri; atas: 0; flip: y; z-index: -1' from = '& table_x left_width i & px, & tabel / pkx hexe_ hex hex =' dari = '& tabel_x left_width i & px, & px, & tabel = tabel = tabel / tabel = tabel / tabel / tabel / tabel / px, & px, & px, & tabel, & tabel, left_width length i & px, & table_y all_height & px 'strokecolor =' & line_color & ' /> <! [endif]->

response.write <!--[if gte vml 1]><v:line id= '_x0000_s1027 ' alt= ' ' style= 'position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1 ' from= '&table_x left_width length i&px,&table_y all_height-length&px ' to= '&table_x left_width length i & px, & table_y & px 'strokeColor =' & line_color & ' /> <! [endif]->

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

response.write <!-[jika gte vml 1]>

response.write <v: bentuk id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'Posisi: absolute; kiri: & table_x left_width i all_width/5-left_width & px; atas: & table_y all_y al_height & px; px; px: px: px: px; ps: & tabel_y all_y al_height & px; px; '>

response.write <v:textbox inset= '0px,0px,0px,0px ​​​​'><table cellpacing= '3 ' cellpadding= '0 ' width= '100% ' height= '100% '><tr><td align= 'right '>&temp4&</td></tr></table></v:textbox></v:shape><![endif]-->

temp4 = temp4-temp3/5

Berikutnya

untuk i = 1 ke total_no

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

response.write <v: rect id = '_x0000_s1025' alt = '' style = 'posisi: absolute; kiri:

response.write table_x left_width

response.write px; atas:

response.write table_y temp_space

response.write px; lebar: & all_width*(total (i, 1)/temp3) & px; tinggi: & table_width & px; z-index: 1 'fillColor =' & tb_color (i, 2) & '>

response.write <v: isi warna2 = '& tb_color (i, 1) &' rotate = 't' angle = '-90' focus = '100%' type = 'gradient'/>

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

response.write </v: rect>

response.write <v: bentuk id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'Posisi: absolute; kiri: & table_x left_width all_width*(total (i, 1)/temp3) ketebalan/2 & px; Top: & Table_y Temp_Space 15 & PX; Tinggi: 18px; z-index: 1 '>

Response.write <v: TextBox Inset = '0px, 0px, 0px, 0px'> <Table CellPacing = '3' CellPadding = '0' width = '100%' Tinggi = '100%'> <td align = 'center'> & Total (i, 1) & </td> </tr> </tdr> center '> & Text: i, i, i, 1) & </td> </tr> </tr> </tr> </tder> </v: Text'> </td: td: td: td: i, i, i, i, i, i, i, i, i, i, i, i, i, i, i, i, i, i, i, i, i, i, 1)

response.write <v: bentuk id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'Posisi: absolute; kiri: & table_x & px; atas: & table_y temp_space & px; lebar: & kiri_width & px; tinggi: 18pxx; z- z-

Response.write <v: TextBox Inset = '0px, 0px, 0px, 0px'> <Table CellPacing = '3' CellPadding = '0' width = '100%' Tinggi = '100%'> <TD Align = 'Right'> & Total (i, 2) & </td> </tr> </tdr>

Berikutnya

kasus lain

Akhiri Pilih

fungsi akhir

%>

<%

Function Table3 (Total, Table_x, Table_y, All_width, All_height, Table_Type)

'Makna parameter (array yang ditularkan, koordinat horizontal, koordinat vertikal, lebar bagan, tinggi, jenis grafik)

'Fungsi Bagan Generasi Kode ASP Murni 3-Pie Chart

'Penulis: Gong Ming (kata sandigm) QQ: 25968152 MSN: kata [email protected] Email: 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.

tb_height = 30

redup 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 (total, 1)

TotalPie = 0

untuk i = 1 ke total_no

TotalPie = TotalPie Total (I, 1)

Berikutnya

Preanjle = 0

untuk i = 1 ke total_no

response.write <v: bentuk id = '_x0000_s1025' alt = '' style = 'posisi: absolute; kiri: & table_x & px; atas: & table_y & px; lebar: & all_width & px; tinggi: & all_height & px; z-index: 1' coordinationsize = '1500' 1500 '' '' '' '' '' o-index: 1 'coordinationse =' 1500 '1500' '' '1500' '' '' 'o-index: 1' coordinationse = '1500' 1500 '' '' 1500 ' 'M750.700AE750.700.750.700, & int (23592960*preanggle) &, & int (23592960*Total (i, 1)/TotalPie) & xe' FillColor = '& tb_color (I, 1) &' strokeColor = '#FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'> <& vojff '= <&'/'strokeColor =' #FFFFFF '> <fFFFFF'> <& tb_color = '&'#'#' & tb_color (i, 1) rotate = 't' focus = '100%' type = 'gradient'/> <v: stroke goinstyle = 'round'/> <v: rumus/> <v: path o: connectType = 'segmen' // </v: shape> & chr (13)

Preanjle = Total Preanggle (I, 1)/TotalPie

Berikutnya

jika table_type = a lalu

response.write <v: rect id = '_x0000_s1025' style = 'position: absolute; kiri: & table_x all_width 20 & px; atas: & table_y 20 & px; lebar: 100px; tinggi: & total_no*tb_height 20 & px; z-indeks: 1'//>

untuk i = 1 ke total_no

response.write <v: bentuk id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'Posisi: absolute; kiri: & table_x all_width 25 & px; Top: & Table_y 30 (i-1)*tb_height & px; 60px: 60px;

Response.write <v: TextBox Inset = '0px, 0px, 0px, 0px'> <Table CellPacing = '3' CellPadding = '0' width = '100%' Tinggi = '100%'> <td align = 'kiri'> & total (i, 0) & </td> </tr> </tdr>

response.write <v: rect id = '_x0000_s1040' alt = '' style = 'Posisi: absolute; kiri: & table_x all_width 80 & px; atas: & table_y 30 (i-1)*tb_height 3 & px; Lebar: 30px; tinggi: 20px; z-index: 1' Fillor = 30px; Tinggi: 20px; z-index: 1 ' '> <v: isi warna2 =' & tb_color (i, 2) & 'rotate =' t 'focus =' 100% 'type =' gradient '/> </v: rect>

'Tampilkan rasionya

'Response.write <v: bentuk id =' _x0000_s1025 'type ='#_x0000_t202 'alt =' 'style =' Posisi: absolute; kiri: & table_x all_width 110 & px; Top: & table_y 30 (i-1)*tb_height & px; 60px: 60px: i-1 (i-1)*tb_height & px; 60px: 60px: i-1 (i-1)*tb_height & px; 60px: 60px;

'Response.write <v: TextBox Inset =' 0px, 0px, 0px, 0px '> <tabel cellpacing =' 3 'cellPadding =' 0 'width =' 100% 'tinggi =' 100% '> <tr> <td align =' kiri '> & FormatNumber (Total (i, 1)*100/TotalPie, 2, -1) &%</td> </tr> </ably> </able> </v: TextBox> </v: Shape>

Berikutnya

akhiri jika

jika table_type = b maka

PIE = 3.14159265358979

Temppie = 0

untuk i = 1 ke 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

Jika x2> table_x all_width/2 lalu

x3 = x2 20

x4 = x3

kalau tidak

x3 = x2-20

x4 = x3-100

akhiri jika

response.write <v: oval id = '_x0000_s1027' style = 'position: absolute; kiri: & x1-2 & px; atas: & y1-2 & px; lebar: 4px; tinggi: 4px; z-index: 2' fillcolor = '#111111' strokeColor = '1111'//chrops/chroksolor = '#111111' (strokeColor = '1111

response.write <v: line id = '_x0000_s1025' alt = '' style = 'Posisi: absolute; kiri: 0; Teks-align: kiri; atas: 0; z-index: 1' dari = '& x1 & px, & y1 & px' ke = '& x2 & px, & y2 & px'or '111 '111' 2100 strokeweight = '1px'> </v: line>

response.write <v: line id = '_x0000_s1025' alt = '' style = 'Posisi: absolute; kiri: 0; Teks-align: kiri; atas: 0; z-index: 1' dari = '& x2 & px, & y2 & px' ke = '& x3 & px, & y2 & px' ’1111 strokeweight = '1px'> </v: line>

response.write <v: bentuk id = '_x0000_s1025' type = '#_x0000_t202' alt = '' style = 'posisi: absolute; kiri: & x4 & px; atas: & y2-10 & px; Lebar: 100px; tinggi: 20px; z-indeks: 1'>

response.write <v: TextBox inset = '0px, 0px, 0px, 0px'> <tabel cellpacing = '3' cellpadding = '0' width = '100%' tinggi = '100%'> <TD align = 'kiri'> & total (i, 0) & & FormatNumber (Total (i, 1)*100/TotalPie, 2, -1) &%</td> </tr> </able> </able> </v: TextBox> </v: Shape>

Temppie = Temppie Total (I, 1)/TotalPie

Berikutnya

akhiri jika

fungsi akhir

%>

Fungsi Bagan Pembuatan Kode ASP Murni 1 - Contoh Panggilan Bagan Bar

<%

Total redup (7,2)

Total (1,1) = 200

Total (2,1) = 800

Total (3,1) = 1000

Total (4,1) = 600

Total (5,1) = 1222

Total (6,1) = 3213

Total (7,1) = 8

Total (1,2) = Berita Bisnis China

Total (2,2) = situs web perekrutan

Total (3,2) = 51Job

Total (4,2) = berita malam Xinmin

Total (5,2) = Berita Malam Berita

Total (6,2) = akhir pekan selatan

Total (7,2) = Berita Malam Yangcheng

Total_no = 7

%>

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

<!-[if! mso]>

<tyle>

v/:* {perilaku: url (#default#vml)}

o/:* {perilaku: url (#default#vml)}

.shape {behavior: url (#default#vml)}

</tyle>

<! [Endif]->

<head>

<meta http-equiv = konten-tipe konten = teks/html; Charset = GB2312>

<title> </title>

<tyle>

TD {font-size: 9pt}

</tyle> </head>

<body topmargin = 5 leftmargin = 0 gulir = auto>

<l Table1 (Total, 200,20,20,30,400,200, A)%>

<l Table1 (total, 200.320,20,20.400.250, b)%>

</body>

</html>