<% '**********以下数据可根据图片具体要求设定或赋值*********************** '横纵坐标点数 Const xNum = 48 Const yNum = 10 '横纵坐标间距 Const xWidth = 12 Const yWidth = 20 '横，纵坐标单位 Const xUnit = "小时" Const yUnit = "KW" '坐标周围所留空白用以显示字符串 Const xLeft = 40 Const xRight = 60 Const yTop = 40 Const yButtom = 40 '定义三个坐标数组 Dim yArray1(48),yArray2(48),yArray3(48)
'定义用于显示的标题 Dim strTitle
'定义用于显示曲线标题的字符串 Dim strDate1,strDate2,strDate3 '定义横纵坐标最大值最小值 Dim yMax,yMin,xMax,xMin '定义纵轴刻度单位 Dim yIncrement
'定义一些临时变量以供使用 Dim i,j,strTemp %> 上边的是定义变量 为什么下边的语句的图打不开哪 <html>
<head> <title>输出画布</title> </head>
<body>
<!-- #include file="imgVar.asp" -->
<% Dim img Set img = Server.CreateObject("myImage.Image") img.Width = xLeft+xRight+xNum*xWidth '图形总宽=x轴总长+左部空白+右部空白 img.Height = yTop+yNum*yWidth+yButtom '图形总高=y轴总长+上部空白+下部空白 img.Clear img.RGB(209,209,209) '设置图形颜色
img.JPEGQuality = 100 Response.BinaryWrite img.JPEGImage Set img = Nothing %>
</body>
</html>
2005-5-30 09:28
