function.asp

OFFICE办公自动化

<%'饼图
'参数含义(数组，横坐标，纵坐标，图表的宽度，图表的高度,图表标题,单位)
function table2(stat_array,table_left,table_top,all_width,all_height,table_title,unit)
	randomize
	redim bg_color(UBound(stat_array)),pie(UBound(stat_array))
	for i=1 to UBound(stat_array)
		bg_color(i)="#" & hex(int(15000000*rnd+1000000))
	next

	num =ubound(stat_array,1)
	allvalues=0
	for i=1 to num
		allvalues = allvalues+stat_array(i,1)
	next
	k=0
	for i=1 to num-1
		pie(i)=formatnumber(stat_array(i,1)/allvalues,4,-1)
		k=k+pie(i)
	next
	pie(num)=formatnumber((1-k),4,-1)

	response.Write "<script src='bzt.js'></script>"

	response.Write "<v:shapetype id='Cake_3D' coordsize='21600,21600' o:spt='95' adj='11796480,5400' path='al10800,10800@0@0@2@14,10800,10800,10800,10800@3@15xe'></v:shapetype>"

	response.Write "<v:shapetype id='3dtxt' coordsize='21600,21600' o:spt='136' adj='10800' path='m@7,l@8,m@5,21600l@6,21600e'> "
	response.Write " <v:path textpathok='t' o:connecttype='custom' o:connectlocs='@9,0;@10,10800;@11,21600;@12,10800' o:connectangles='270,180,90,0'/>"
	response.Write " <v:textpath on='t' fitshape='t'/>"
	response.Write " <o:lock v:ext='edit' text='t' shapetype='t'/>"
	response.Write "</v:shapetype>"

	response.Write "<v:rect id='background' style='position:absolute;left:"&table_left&"px;top:"&table_top&"px;WIDTH:"&all_width&"px;HEIGHT:"&all_height&"px;' fillcolor='#EFEFEF' strokecolor='gray'>"
	response.Write " <v:shadow on='t' type='single' color='silver' offset='4pt,4pt'/>"
	response.Write "</v:rect>"

	response.Write "<v:group ID='table' style='position:absolute;left:"&table_left&"px;top:"&table_top&"px;WIDTH:"&all_width&"px;HEIGHT:"&all_height&"px;' coordsize = '21000,11500'>"
	response.Write " <v:Rect style='position:relative;left:500;top:200;width:20000;height:800'filled='false' stroked='false'>"
	response.Write " <v:TextBox inset='0pt,0pt,0pt,0pt'>"
	response.Write " <table width='100%' border='0' align='center' cellspacing='0'>"
	response.Write " <tr>"
	response.Write " <td align='center' valign='middle'><div style='font-size:15pt; font-family:黑体;'><B>"&table_title&"</B></div></td>"
	response.Write " </tr>"
	response.Write " </table>"
	response.Write " </v:TextBox>"
	response.Write " </v:Rect> "

	response.Write " <v:rect id='back' style='position:relative;left:500;top:1000;width:20000; height:10000;' onmouseover='movereset(1)' onmouseout='movereset(0)' fillcolor='#9cf' strokecolor='#888888'>"
	response.Write " <v:fill rotate='t' angle='-45' focus='100%' type='gradient'/>"
	response.Write " </v:rect>"

	response.Write " <v:rect id='back' style='position:relative;left:15000;top:1400;width:5000; height:"&((num+1)*9000/11+200)&";' fillcolor='#9cf' stroked='t' strokecolor='#0099ff'>"
	response.Write " <v:fill rotate='t' angle='-175' focus='100%' type='gradient'/>"
	response.Write " <v:shadow on='t' type='single' color='silver' offset='3pt,3pt'/>"
	response.Write " </v:rect>"

	response.Write " <v:Rect style='position:relative;left:15500;top:1500;width:4000;height:700' fillcolor='#000000' stroked='f' strokecolor='#000000'>"
	response.Write " <v:TextBox inset='8pt,4pt,3pt,3pt' style='font-size:11pt;'><div align='left'><font color='#ffffff'><B>总数:"&allvalues&unit&"</B></font></div></v:TextBox>"
	response.Write " </v:Rect> "
	for i=1 to num
		response.Write " <v:Rect id='rec"&i&"' style='position:relative;left:15400;top:"&i*9000/11+1450&";width:4300;height:800;display:none' fillcolor='#efefef' strokecolor='"&bg_color(i)&"'>"
		response.Write " <v:fill opacity='.6' color2='fill darken(118)' o:opacity2='.6' rotate='t' method='linear sigma' focus='100%' type='gradient'/>"
		response.Write " </v:Rect>"
		response.Write " <v:Rect style='position:relative;left:15500;top:"&i*9000/11+1500&";width:600;height:700' fillcolor='"&bg_color(i)&"' stroked='f'/>"
		response.Write " <v:Rect style='position:relative;left:16300;top:"&i*9000/11+1500&";width:3400;height:700' filled='f' stroked='f'>"
		response.Write " <v:TextBox inset='0pt,5pt,0pt,0pt' style='font-size:9pt;'><div align='left'>"&stat_array(i,2)&":"&stat_array(i,1)&unit&"</div></v:TextBox>"
		response.Write " </v:Rect> "
	next
	response.Write "</v:group>"
	k1=180
	k4=10
	for i=1 to num
		k2=360*pie(i)/2
		k3=k1+k2
		if k3>=360 then
			k3=k3-360
		end if
		kkk=(-11796480*pie(i)+5898240)

		k5=3.1414926*2*(180-(k3-180))/360
		R=all_height/2
		txt_x = table_left+all_height/8-30+R+R*sin(k5)*0.7
		txt_y = table_top+all_height/14-39+R+R*cos(k5)*0.7*0.5

		titlestr = "&nbsp;名&nbsp;&nbsp;称："&stat_array(i,2)&"&#13;&#10;&nbsp;数&nbsp;&nbsp;值："&stat_array(i,1)&unit&"&#13;&#10;&nbsp;所占比例："&pie(i)*100&"%&nbsp;&nbsp;"
		response.Write " <div style='cursor:hand;'>"
		response.Write " <v:shape id='cake"&i&"' type='#Cake_3D' title='"&titlestr&"'"
		response.Write " style='position:absolute;left:"&table_left+all_height/8&"px;top:"&table_top+all_height/14&"px;WIDTH:"&all_height&"px;HEIGHT:"&all_height&"px;rotation:"&k3&";z-index:"&k4&"'"
		response.Write " adj='"&kkk&",0' fillcolor='"&bg_color(i)&"' onmouseover='moveup(cake"&i&","&(table_top+all_height/14)&",txt"&i&",rec"&i&")'; onmouseout='movedown(cake"&i&","&(table_top+all_height/14)&",txt"&i&",rec"&i&");'>"
		response.Write " <v:fill opacity='60293f' color2='fill lighten(120)' o:opacity2='60293f' rotate='t' angle='-135' method='linear sigma' focus='100%' type='gradient'/>"
		response.Write " <o:extrusion v:ext='view' on='t'backdepth='25' rotationangle='60' viewpoint='0,0'viewpointorigin='0,0' skewamt='0' lightposition='-50000,-50000' lightposition2='50000'/>"
		response.Write " </v:shape>"
		response.Write " <v:shape id='txt"&i&"' type='#3dtxt' style='position:absolute;left:"&txt_x&"px;top:"&txt_y&"px;z-index:20;display:none;width:50; height:18;' fillcolor='#ffffff'"
		response.Write " onmouseover='ontxt(cake"&i&","&(table_top+all_height/14)&",txt"&i&",rec"&i&")'>"
		response.Write " <v:fill opacity='60293f' color2='fill lighten(120)' o:opacity2='60293f' rotate='t' angle='-135' method='linear sigma' focus='100%' type='gradient'/>"
		response.Write " <v:textpath style='font-family:'宋体';v-text-kern:t' trim='t' fitpath='t' string='"&pie(i)*100&"%'/>"
		response.Write " <o:extrusion v:ext='view' backdepth='8pt' on='t' lightposition='0,0' lightposition2='0,0'/>"
		response.Write " </v:shape>"
		response.Write " </div>"
		k1=k1+k2*2
		if k1>=360 then
			k1=k1-360
		end if
		if k1>180 then
			k4=k4+1
		else
			k4=k4-1
		end if
	next
end function
%>

<%'柱状图
'参数含义(数组，横坐标，纵坐标，图表的宽度，图表的高度,图表标题，X轴单位，Y轴单位)
function table1(stat_array,table_left,table_top,all_width,all_height,table_title,X_unit,Y_unit)
	randomize
	redim bg_color(UBound(stat_array)),pie(UBound(stat_array))
	for i=1 to UBound(stat_array)
		bg_color(i)="#" & hex(int(15000000*rnd+1000000))
	next

	if X_unit<>"" then
		X_unit=X_unit
	end if
	if Y_unit<>"" then
		Y_unit=Y_unit
	end if

	num =ubound(stat_array,1)
	item_width = cint(20000/num+0.5)
	begin_x= cint((item_width-1200)/2)+2200

	value_Max=0
	for i=1 to num
		if value_Max<stat_array(i,1) then value_Max=stat_array(i,1)
	next
	value_Max = cint(value_Max)
	value_Max_str =cstr(value_Max)
	if value_Max>9 then
		temp=mid(value_Max_str,2,1)
	if temp>4 then
		temp2=(int(value_Max/(10^(len(value_Max_str)-1)))+1)*10^(len(value_Max_str)-1)
	else
		temp2=(int(value_Max/(10^(len(value_Max_str)-1)))+0.5)*10^(len(value_Max_str)-1)
	end if
	else
		if value_Max>4 then temp2=10 else temp2=5
	end if
	item_hight = temp2/5

	response.Write "<v:shapetype id='Box' coordsize='21600,21600' o:spt='16' adj='5400'></v:shapetype>"
	response.Write "<v:rect id='background' style='position:absolute;left:"&table_left&"px;top:"&table_top&"px;WIDTH:"&all_width&"px;HEIGHT:"&all_height&"px;' fillcolor='#EFEFEF' strokecolor='gray'>"
	response.Write " <v:shadow on='t' type='single' color='silver' offset='4pt,4pt'/>"
	response.Write "</v:rect>"
	response.Write "<v:group ID='table' style='position:absolute;left:"&table_left&"px;top:"&table_top&"px;WIDTH:"&all_width&"px;HEIGHT:"&all_height&"px;' coordsize = '23500,12700'>"
	response.Write " <v:Rect style='position:relative;left:1500;top:200;width:20000;height:800'filled='false' stroked='false'>"
	response.Write " <v:TextBox inset='0pt,0pt,0pt,0pt'>"
	response.Write " <table width='100%' border='0' align='center' cellspacing='0'>"
	response.Write " <tr>"
	response.Write " <td align='center' valign='middle'><div style='font-size:15pt; font-family:黑体;'><B>"&table_title&"</B></div></td>"
	response.Write " </tr>"
	response.Write " </table>"
	response.Write " </v:TextBox>"
	response.Write " </v:Rect> "

	response.Write " <v:rect id='back' style='position:relative;left:1700;top:1200;width:20500; height:10500;' fillcolor='#9cf' strokecolor='#DFDFDF'>"
	response.Write " <v:fill rotate='t' angle='-45' focus='100%' type='gradient'/>"
	response.Write " </v:rect>"
	response.Write " <v:line ID='X' from='1700,11700' to='22700,11700' style='z-index:2' strokecolor='#000000' strokeWeight=1pt><v:stroke EndArrow='Classic'/></v:line>"
	response.Write " <v:line ID='Y' from='1700,900' to='1700,11700' style='z-index:2' strokecolor='#000000' strokeWeight=1pt><v:stroke StartArrow='Classic'/></v:line>"

	response.Write " <v:Rect style='position:relative;left:100;top:700;width:1500;height:500' filled='false' stroked='false'>"
	response.Write " <v:TextBox inset='0pt,0pt,0pt,0pt' style='font-size:9pt;'><div align='right'>"&Y_unit&"</div></v:TextBox>"
	response.Write " </v:Rect> "
	response.Write " <v:Rect style='position:relative;left:22200;top:11700;width:2000;height:500' filled='false' stroked='false'>"
	response.Write " <v:TextBox inset='0pt,0pt,0pt,0pt' style='font-size:9pt;'><div align='left'>"&X_unit&"</div></v:TextBox>"
	response.Write " </v:Rect> "
	for i=0 to 4
		response.Write " <v:line from='1200,"&i*2000+1700&"' to='1700,"&i*2000+1700&"' style='z-index:2' strokecolor='#000000'></v:line>"
		response.Write " <v:line from='1700,"&i*2000+1700&"' to='2200,"&i*2000+1200&"' style='z-index:2' strokecolor='#0099FF'></v:line>"
		response.Write " <v:line from='2200,"&i*2000+1200&"' to='22200,"&i*2000+1200&"' style='z-index:2' strokecolor='#0099FF'></v:line>"
		response.Write " <v:line from='2200,"&i*2000+2200&"' to='22200,"&i*2000+2200&"' style='z-index:2' strokecolor='#0099FF'>"
		response.Write " <v:stroke dashstyle='Dot'/>"
		response.Write " </v:line>"

		response.Write " <v:Rect style='position:relative;left:100;top:"&i*2000+1250&";width:1500;height:500' filled='false' stroked='false'>"