各位大侠：请帮忙，把asp+vml的代码改成javascript调用的，多谢
日期：2014-05-16 浏览次数：20391 次
各位大侠：请帮忙，把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(t
源码如下：
<%
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(t
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
