<html>
<body>
<link href="../common/css1.css" rel="stylesheet" type="text/css">
<form action="showchart.asp" method="post" name="form1" class="text1">
<div align="center">
<select name="charttype">
<%
dim selectchart
if request.Form("charttype")<>"" then
if request.Form("charttype")="1" then
selectchart="饼状图"
elseif request.Form("charttype")="2" then
selectchart="柱状图"
elseif request.Form("charttype")="3" then
selectchart="横向柱状图"
elseif request.Form("charttype")="4" then
selectchart="波形图"
elseif request.Form("charttype")="5" then
selectchart="形状图"
end if
response.Write("<option value="&
request.Form("charttype") &" selected>"&selectchart&"</option>")
end if
%>
<option value="1">饼状图</option>
<option value="2">柱状图</option>
<option value="3">横向柱状图</option>
<option value="4">波形图</option>
<option value="5">形状图</option>
</select>
图形宽：
<%
if request.Form("width")<>"" then
response.Write("<input name=width type=text id=width size=5 value="&trim(request.Form("width"))&">")
else
response.Write("<input name=width type=text id=width size=5>")
end if
%>
图形高：
<%
if request.Form("height")<>"" then
response.Write("<input name=height type=text id=height size=5 value="&trim(request.Form("height"))&">")
else
response.Write("<input name=height type=text id=height size=5>")
end if
%>
生成质量(0~100)
<%
if request.Form("quality")<>"" then
response.Write("<input name=quality type=text id=quality size=5 value="&trim(request.Form("quality"))&">")
else
response.Write("<input name=quality type=text id=quality size=5>")
end if
%>
<input type="submit" name="Submit" value="生成">
如果没有看到最新的图形，请<a href="javascript:this.location.reload()"><img src="images/refresh.gif" width="40" height="12" border="0" id="reload"></a></div>
</form>
<div align="center">
<%
'以下不是调用，是用来查一下你这个asp程序运行的服务器绝对路径
dim pathall,path,leftnum
pathall=server.mappath(request.ServerVariables("PATH_INFO"))
leftnum=InStrRev(pathall,"/",-1,1)
path=left(pathall,leftnum)
'以上不是调用，是用来查一下你这个asp程序运行的服务器绝对路径
'调用组件
application.Lock()
dim chart
Set chart = Server.CreateObject("heartsong.chartshow")
chart.chartpath=path '图像生成路径，绝对的
if trim(request.Form("charttype"))<>"" then
chart.charttype=cint(request.Form("charttype"))
else
chart.charttype=1
end if
chart.charttitle="测试一下"
chart.chartname="项目1|项目2|项目3" '这是chart的几项名称，用"|"隔开
chart.chartvalue="100|200|300" '这是chart的几项名称对应的数据，用"|"隔开
if trim(request.Form("width"))<>"" then
chart.chartwidth=cint(request.Form("width"))
else
chart.chartwidth=600
end if
if trim(request.Form("height"))<>"" then
chart.chartheight=cint(request.Form("height"))
else
chart.chartheight=400
end if
if trim(request.Form("quality"))<>"" then
chart.chartquality=cint(request.Form("quality"))
else
chart.chartquality=80
end if
chart.chartcreate '调用这个方法后自动在服务器当前目录的chartimage文件包里生成图片，并显示在页面上
application.UnLock()
%>
</div>
</body>
</html>
