ASP generates column-shaped bodies, line charts, pie chart source code

Author：Eve Cole Update Time：2025-04-16 14:32:02

Recommended: ASP program code execution time statistics
The first time I write an ASP class, implement functions: segmented statistics program execution time, output statistics table, etc. Program code: The following is the referenced content: Class ccClsProcessTimeRecorder''

The following is the quoted content:

function table2(total,table_x,table_y,all_width,all_height,line_no)

'Parameter meaning (passed array, horizontal coordinate, vertical coordinate, chart width, height of chart, number of lines)

'Pure ASP code generates chart function 2-line chart

'Author: Gong Ming (Passwordgm) QQ:25968152 MSN:[email protected] Email:[email protected]

'I am very willing to communicate and discuss with ASP, VML, and Flash enthusiasts at http://topclouds.126.com

'version 1.0 last modified date 2003-8-11

'Thank you very much for using this function. Please keep the copyright information when using and reprinting. This is the best respect for the author's work.

line_color=#69f

left_width=70

Total_no=ubund(total,1)

temp1=0

for i=1 to total_no

for j=1 to line_no

if temp1<total(i,j) then temp1=total(i,j)

temp1=int(temp1)

if temp1>9 then

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

if temp2>4 then

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

else

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

end if

else

if temp1>4 then temp3=10 else temp3=5

end if

temp4=temp3

response.write <v:rect id= '_x0000_s1027 ' alt= ' ' style= 'position:absolute;left:&table_x left_width&px;top:&table_y&px;width:&all_width&px;height:&all_height&px;z-index:-1 ' fillcolor= '#9cf ' stroked= 'f '><v:fill rotate= 't ' angle= '-45 ' focus= '100% ' type= 'gradient '/></v:rect>

for i=0 to all_height-1 step 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= 'position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-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:shape id= '_x0000_s1025 ' type= '#_x0000_t202 ' alt= ' ' style= 'position:absolute;left:&table_x&px;top:&table_y i&px;width:&left_width&px;height: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>

temp4=temp4-temp3/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&px,&table_y all_height&px ' to= '&table_x all_width left_width&px,&table_y all_height&px '/>

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&px,&table_y&px ' to= '&table_x left_width&px,&table_y all_height&px '/>

dim line_code

redim line_code(line_no,5)

for i=1 to 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)

for j=1 to line_no

for i=1 to 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= 'position:absolute;left:0;text-align:left;top:0;z-index:1 ' from=&x1&px,&y1&px to=&x2&px,&y2&px coordinatesize=21600,21600 strokecolor=&line_code(j,1)& strokeweight=&line_code(j,2)&>

select case line_code(j,3)

case 1

case 2

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

case 3

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

case 4

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

case 5

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

case 6

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

case 7

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

case else

end select

response.write </v:line>&CHR(13)

select case line_code(j,4)

case 1

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

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

end select

select case line_code(j,4)

case 1

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

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

end select

for i=1 to 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 '/>

response.write

response.write <v:shape id= '_x0000_s1025 ' type= '#_x0000_t202 ' alt= ' ' style= 'position:absolute;left:&table_x left_width all_width*(i-1)/total_no&px;top:&table_y all_height&px;width:&all_width/total_no&px;height: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= 'left '>&total(i,0)&</td></tr></table></v:textbox></v:shape>

tb_height=30

response.write <v:rect id= '_x0000_s1025 ' style= 'position:absolute;left:&table_x all_width 20&px;top:&table_y&px;width:100px;height:&line_no*tb_height 20&px;z-index:1 '/>

for i=1 to line_no

response.write <v:shape id= '_x0000_s1025 ' type= '#_x0000_t202 ' alt= ' ' style= 'position:absolute;left:&table_x all_width 25&px;top:&table_y 10 (i-1)*tb_height&px;width:60px;height:&tb_height&px;z-index:1 '>

response.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></tr></table></v:textbox></v:shape>

response.write <v:rect id= '_x0000_s1040 ' alt= ' ' style= 'position:absolute;left:&table_x all_width 80&px;top:&table_y 10 (i-1)*tb_height 4&px;width:30px;height:20px;z-index:1 ' fillcolor= '&line_code(i,1)& '><v:fill color2= '&line_code(i,1)& ' rotate= 't ' focus= '100% ' type= 'gradient '/></v:rect>

end function

function table1(total,table_x,table_y,thickness,table_width,all_width,all_height,table_type)

'Parameter meaning (passed array, horizontal coordinate, vertical coordinate, column thickness, column width, chart width, chart height, chart type)

'Pure ASP code generates chart function 1 - bar chart

'Author: Gong Ming (Passwordgm) QQ:25968152 MSN:[email protected] Email:[email protected]

'I am very willing to communicate and discuss with ASP, VML, and FLASH enthusiasts at http://topclouds.126.com

'version 2.0 last modified date 2003-7-22

'Thank you very much for using this function. Please keep the copyright information when using and reprinting. This is the best respect for the author's work.

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

length=thickness/2

Total_no=ubund(total,1)

temp1=0

for i=1 to total_no

if temp1<total(i,1) then temp1=total(i,1)

temp1=int(temp1)

if temp1>9 then

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

if temp2>4 then

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

else

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

end if

else

if temp1>4 then temp3=10 else temp3=5

end if

temp4=temp3

response.write

response.write

response.write

select case table_type

case A

table_space=(all_width-table_width*total_no)/total_no

response.write

for i=0 to all_height-1 step all_height/5

response.write

response.write

response.write

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

response.write <v:shape id= '_x0000_s1025 ' type= '#_x0000_t202 ' alt= ' ' style= 'position:absolute;left:&table_x&px;top:&table_y i&px;width:&left_width&px;height: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

for i=1 to 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= 'position:absolute;left:

response.write temp_space

response.write px;top:

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

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

response.write <v:fill 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= 'position:absolute;left:&temp_space&px;top:&table_y all_height*(1-(total(i,1)/temp3))-table_width&px;width:&table_space 15&px;height: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= 'center '>&total(i,1)&</td></tr></table></v:textbox></v:shape>

response.write <v:shape id= '_x0000_s1025 ' type= '#_x0000_t202 ' alt= ' ' style= 'position:absolute;left:&temp_space-table_space/2&px;top:&table_y all_height 1&px;width:&table_space table_width&px;height: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= 'center '>&total(i,2)&</td></tr></table></v:textbox></v:shape>

Case B

table_space=(all_height-table_width*total_no)/total_no

response.write

for i=0 to all_width-1 step all_width/5

response.write

response.write

response.write

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

response.write <v:shape id= '_x0000_s1025 ' type= '#_x0000_t202 ' alt= ' ' style= 'position:absolute;left:&table_x left_width i all_width/5-left_width&px;top:&table_y all_height&px;width:&left_width&px;height:18px;z-index:1 '>

temp4=temp4-temp3/5

for i=1 to total_no

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

response.write <v:rect id= '_x0000_s1025 ' alt= ' ' style= 'position:absolute;left:

response.write table_x left_width

response.write px;top:

response.write table_y temp_space

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

response.write <v:fill 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= 'position:absolute;left:&table_x left_width all_width*(total(i,1)/temp3) thickness/2&px;top:&table_y temp_space&px;width:&table_space 15&px;height:18px;z-index:1 '>

response.write <v:shape id= '_x0000_s1025 ' type= '#_x0000_t202 ' alt= ' ' style= 'position:absolute;left:&table_x&px;top:&table_y temp_space&px;width:&left_width&px;height: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 '>&total(i,2)&</td></tr></table></v:textbox></v:shape>

case else

end select

end function

function table3(total,table_x,table_y,all_width,all_height,table_type)

'Parameter meaning (passed array, horizontal coordinate, vertical coordinate, chart width, height, chart type)

'Pure ASP code generation chart function 3-pie chart

'Author: Gong Ming (Passwordgm) QQ:25968152 MSN:[email protected] Email:[email protected]

'I am very willing to communicate and discuss with ASP, VML, and Flash enthusiasts at http://topclouds.126.com

'version 1.0 last modified date 2003-8-11

'Thank you very much for using this function. Please keep the copyright information when using and reprinting. This is the best respect for the author's work.

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

Totalpie=0

for i=1 to total_no

totalpie=totalpie total(i,1)

PreAngle=0

for i=1 to total_no

response.write <v:shape id= '_x0000_s1025 ' alt= ' ' style= 'position:absolute;left:&table_x&px;top:&table_y&px;width:&all_width&px;height:&all_height&px;z-index:1 ' coordinatesize= '1500,1400 ' o:spt= '100 ' adj= '0,,0 ' path= 'm750,700ae750,700,750,700,&int(23592960*PreAngle)&,&int(23592960*total(i,1)/totalpie)&xe ' fillcolor= '&tb_color(i,1)& ' strokecolor= '#FFFFFF '><v:fill color2= '&tb_color(i,2)& ' rotate= 't ' focus= '100% ' type= 'gradient '/><v:stroke joinstyle= 'round '/><v:formulas/><v:path o:connecttype= 'segments '//</v:shape>&CHr(13)

PreAngle=PreAngle total(i,1)/totalpie

if table_type=A then

response.write <v:rect id= '_x0000_s1025 ' style= 'position:absolute;left:&table_x all_width 20&px;top:&table_y 20&px;width:100px;height:&total_no*tb_height 20&px;z-index:1 '/>

for i=1 to total_no

response.write <v:shape id= '_x0000_s1025 ' type= '#_x0000_t202 ' alt= ' ' style= 'position:absolute;left:&table_x all_width 25&px;top:&table_y 30 (i-1)*tb_height&px;width:60px;height:&tb_height&px;z-index:1 '>

response.write <v:rect id= '_x0000_s1040 ' alt= ' ' style= 'position:absolute;left:&table_x all_width 80&px;top:&table_y 30 (i-1)*tb_height 3&px;width:30px;height:20px;z-index:1 ' fillcolor= '&tb_color(i,1)& '><v:fill color2= '&tb_color(i,2)& ' rotate= 't ' focus= '100% ' type= 'gradient '/></v:rect>

'Display the ratio

' response.write <v:shape id= '_x0000_s1025 ' type= '#_x0000_t202 ' alt= ' ' style= 'position:absolute;left:&table_x all_width 110&px;top:&table_y 30 (i-1)*tb_height&px;width:60px;height:&tb_height&px;z-index:1 '>

' response.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:shape>

end if

if table_type=B then

pie=3.14159265358979

TempPie=0

for i=1 to 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

if x2>table_x all_width/2 then

x3=x2 20

x4=x3

else

x3=x2-20

x4=x3-100

end if

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

response.write <v:line id= '_x0000_s1025 ' alt= ' ' style= 'position:absolute;left:0;text-align:left;top:0;z-index:1 ' from= '&x1&px,&y1&px ' to= '&x2&px,&y2&px ' coordinatesize= '21600,21600 ' strokecolor= '#111111 ' strokeweight= '1px '></v:line>

response.write <v:line id= '_x0000_s1025 ' alt= ' ' style= 'position:absolute;left:0;text-align:left;top:0;z-index:1 ' from= '&x2&px,&y2&px ' to= '&x3&px,&y2&px ' coordinatesize= '21600,21600 ' strokecolor= '#111111 ' strokeweight= '1px '></v:line>

response.write <v:shape id= '_x0000_s1025 ' type= '#_x0000_t202 ' alt= ' ' style= 'position:absolute;left:&x4&px;top:&y2-10&px;width:100px;height:20px;z-index:1 '>

response.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:shape>

TempPie=TempPie total(i,1)/TotalPie

end if

end function

Pure ASP code generation chart function 1 - bar chart call example

dim total(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)=China Business News

Total(2,2)=Recruitment website

total(3,2)=51Job

total(4,2)=Xinmin Evening News

Total(5,2)=News Evening News

total(6,2)=Southern Weekend

Total(7,2)=Yangcheng Evening News

total_no=7

<!--[if !mso]>

<style>

v/:* { behavior: url(#default#VML) }

o/:* { behavior: url(#default#VML) }

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

</style>

<![endif]-->

<head>

<style>

TD { FONT-SIZE: 9pt}

</style></head>

</body>

</html>

Share: Code guides the implementation of FTP and decompression using ASP Trojans
I think everyone has some broilers with port 80. If it is domestic, don’t look down for safety. If you don’t want to look down, you might as well look down. I’m so ugly to try to attract attention. The most troublesome thing about putting a website on a broiler is to update and upload a large number of files.