各位大侠：请帮忙，把asp+vml的代码改成javascript调用的，多谢
各位大侠：请帮忙，把asp+vml的代码改成javascript调用的，谢谢！
源码如下：
<%
dim total(10,4)
total(1,1)= "项目 01 "
total(2,1)= "项目 02 "
total(3,1)= "项目 03 "
'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)=402003322.3
total(1,3)=300002222.3
total(1,4)=253237400
total(2,2)=35644333.22
total(2,3)=500004344.422
total(2,4)=280001000.5
total(3,2)=33003322.3
total(3,3)=300002222.3
total(3,4)=240000000
total_no=3
%>
<html xmlns:v= "urn:schemas-microsoft-com:vml " xmlns:o= "urn:schemas-microsoft-com:office:office ">
<!--[if !mso]>
<style>
v\:* { behavior: url(#default#VML) }
o\:* { behavior: url(#default#VML) }
.shape { behavior: url(#default#VML) }
</style>
<![endif]-->
<head>
<title> VMl三维图例 </title>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 ">
</head>
<BODY bgColor=#ffffff leftMargin=5 topMargin=5 marginheight= "5 " marginwidth= "5 ">
<%call table1(total,total_no)%>
</body>
</html>
<%
function table1(total,total_no)
dim tb_color(7,3)
tb_color(1,1)= "#d1ffd1 "
tb_color(2,1)= "#ffbbbb "
tb_color(3,1)= "#d9d9e5 "
tb_color(4,1)= "#cff4f3 "
tb_color(5,1)= "#ffe3bb "
tb_color(6,1)= "#ffc7ab "
tb_color(7,1)= "#ecffb7 "
tb_color(1,2)= "#00ff00 "
tb_color(2,2)= "#ff0000 "
tb_color(3,2)= "#666699 "
tb_color(4,2)= "#33cccc "
tb_color(5,2)= "#ff9900 "
tb_color(6,2)= "#993300 "
tb_color(7,2)= "#99cc00 "
tb_color(2,3)= "计划成本 "
tb_color(3,3)= "发生成本 "
tb_color(4,3)= "实际支付 "
line_color= "#cccccc "
left_width=70
length=thickness/2
'total_no=ubound(total,1)
temp1=0
for i=1 to total_no
for j=2 to 4
if temp1 <total(i,j) then temp1=total(i,j)
next
next
temp1=round(cdbl(temp1),0)
'response.write " <script> alert( ' "&temp1& " '); </script> "
'response.end
'exit function
if temp1> 10 then
temp2=cdbl(left(temp1,1)+1)
do while (temp2 mod 2) <> 0
temp2=temp2+1
loop
temp3=temp2*10^(len(temp1)-1)
'response.write " <script> alert( ' "&temp1& " '); </script> "
'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)
源码如下：
<%
dim total(10,4)
total(1,1)= "项目 01 "
total(2,1)= "项目 02 "
total(3,1)= "项目 03 "
'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)=402003322.3
total(1,3)=300002222.3
total(1,4)=253237400
total(2,2)=35644333.22
total(2,3)=500004344.422
total(2,4)=280001000.5
total(3,2)=33003322.3
total(3,3)=300002222.3
total(3,4)=240000000
total_no=3
%>
<html xmlns:v= "urn:schemas-microsoft-com:vml " xmlns:o= "urn:schemas-microsoft-com:office:office ">
<!--[if !mso]>
<style>
v\:* { behavior: url(#default#VML) }
o\:* { behavior: url(#default#VML) }
.shape { behavior: url(#default#VML) }
</style>
<![endif]-->
<head>
<title> VMl三维图例 </title>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 ">
</head>
<BODY bgColor=#ffffff leftMargin=5 topMargin=5 marginheight= "5 " marginwidth= "5 ">
<%call table1(total,total_no)%>
</body>
</html>
<%
function table1(total,total_no)
dim tb_color(7,3)
tb_color(1,1)= "#d1ffd1 "
tb_color(2,1)= "#ffbbbb "
tb_color(3,1)= "#d9d9e5 "
tb_color(4,1)= "#cff4f3 "
tb_color(5,1)= "#ffe3bb "
tb_color(6,1)= "#ffc7ab "
tb_color(7,1)= "#ecffb7 "
tb_color(1,2)= "#00ff00 "
tb_color(2,2)= "#ff0000 "
tb_color(3,2)= "#666699 "
tb_color(4,2)= "#33cccc "
tb_color(5,2)= "#ff9900 "
tb_color(6,2)= "#993300 "
tb_color(7,2)= "#99cc00 "
tb_color(2,3)= "计划成本 "
tb_color(3,3)= "发生成本 "
tb_color(4,3)= "实际支付 "
line_color= "#cccccc "
left_width=70
length=thickness/2
'total_no=ubound(total,1)
temp1=0
for i=1 to total_no
for j=2 to 4
if temp1 <total(i,j) then temp1=total(i,j)
next
next
temp1=round(cdbl(temp1),0)
'response.write " <script> alert( ' "&temp1& " '); </script> "
'response.end
'exit function
if temp1> 10 then
temp2=cdbl(left(temp1,1)+1)
do while (temp2 mod 2) <> 0
temp2=temp2+1
loop
temp3=temp2*10^(len(temp1)-1)
'response.write " <script> alert( ' "&temp1& " '); </script> "
'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)