只是现在只支持IE。
使用范围：各种需要生成图形报表，而又不能安装插件或者对速度要求比较高的系统
部分代码：
<%
Option Explicit
Response.charset = "gb2312"
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control", "no-store"
%>
<!-- #include file = "aspvml.asp" -->
<%
Dim oApp, rs, dc
Dim i,ty,asppic,solid
randomize
set asppic=new AspVml
Set dc = Server.CreateObject("Scri"&"ptin"&"g.Dictionary")
ty=request("ty")
if(ty="") then
ty=1
end if
asppic.setColor("#B65A1D")
for i=0 to 10
dc.add "调查问卷"&i,int(rnd*50)
next
%>
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Column Example</title>
<script language="javascript">
function moveup(iteam,top,txt,rec){
temp=eval(iteam);
temprec=eval(rec);
at=parseInt(temp.style.top);
temp.style.top=at-100;
temprec.style.display="";
//temprec.style.filter="alpha(opacity=100,finishopacity=20,style=1,startx=100,starty=0,finishx=100,finishy=100)";
//temprec.style.background-color="#FFCC99";
}
function movedown(iteam,top,txt,rec){
temp=eval(iteam);
temprec=eval(rec);
at=parseInt(temp.style.top);
temp.style.top=at+100;
temprec.style.display="none";
//temprec.style.filter="";
//temprec.style.background-color="";
}
</script>
</head>
<STYLE>
v\:* { Behavior: url(#default#VML) }
o\:* { Behavior: url(#default#VML) }
</STYLE>
<body style="background-color:#009999">
<input type="button" name="Submit" value="柱状图" onClick="window.location.href='ceshi.asp?ty=1'"> <input type="button" name="Submit" value="折线图" onClick="window.location.href='ceshi.asp?ty=2'">
<input type="button" name="Submit" value="饼状图" onClick="window.location.href='ceshi.asp?ty=3'">
<br>
<input type="button" name="Submit" value="三维柱状图" onClick="window.location.href='ceshi.asp?ty=1&solid=true'"> <input type="button" name="Submit" value="三维折线图" onClick="window.location.href='ceshi.asp?ty=2&solid=true'">
<input type="button" name="Submit" value="三维饼状图" onClick="window.location.href='ceshi.asp?ty=3&solid=true'">
<br>
<div id="Layer1" style="position:relative; background-color:#ffffff; float:none; display:block; padding:2px; width:700;">
<%
response.write(asppic.CreatePic(700,500,dc,ty))
%>
</div>
</body>
</html>
打包下载：aspvml.rar（5kb）
站长工具
相关文章
请稍等，评论加载中...