drawgraph.asp

ASPTest 网络基础网页设计

<!-- 此处可插入数据库查询部分，然后对上述定义的部分参数进行赋值 -->

<% '*****数据库查询及参数数组设置工作完成，进行画图工作*******
Dim img   
Set img = Server.CreateObject("myImage.Image")
img.width = xLeft+xRight+xNum*xWidth   '图形总宽=坐标轴+左部空白+右部空白
img.height = yTop+yNum*yWidth+yButtom  '图形总高意义同总宽
img.Clear img.rgb(182,180,233)       '设置图形颜色 
img.pencolor = img.clwhite             '设置画笔颜色
   
 '建立Y轴
img.Line xLeft,yTop-20,xLeft,yTop+yNum*yWidth
   
'Y轴小箭头
img.Line xLeft,yTop-20,xleft-5,ytop-10
img.Line xLeft,yTop-20,xleft+5,ytop-10
   
'建立X轴
img.Line xLeft,yTop+yNum*yWidth,xLeft+xWidth*xNum+20,yTop+yNum*yWidth
   
'X轴小箭头
img.Line xLeft+xWidth*xNum+20,yTop+yNum*yWidth,xLeft+xWidth*xNum+10,yTop+yNum*yWidth-5
img.Line xLeft+xWidth*xNum+20,yTop+yNum*yWidth,xLeft+xWidth*xNum+10,yTop+yNum*yWidth+5
   
'间隔为20在横向上画16条直线
For i = yTop To yTop+yNum*yWidth Step yWidth
  img.Line xLeft,i,xLeft+xWidth*xNum,i
Next
   
'间隔为20在纵向上画xnum条直线
For i = xLeft To xLeft+xNum*xWidth Step Xwidth 
  img.Line i,yTop,i,yTop+yNum*Ywidth
Next
   
'写入横坐标刻度
img.FontSize = 8
img.FontColor = img.clWhite
For i = xMin To xMax  
  If i < 10 Then 
   tempstr="0"&i
  Else 
    tempstr=i
  End If 
  img.textout i*xWidth*2+XLeft-6,yTop+yNum*yWidth+5,tempstr
Next
      
'写入横坐标单位
img.textout xLeft+xWidth*xNum+2,yTop+yNum*yWidth-20,"单位 "&xdanwei
     
'写入纵坐标刻度
yIncrement=CLng((ymax*1.1-ymin*0.9)/yNum)   
for i=yTop+yWidth*yNum-6 to yTop-6 step -yWidth  
  img.drawtext 1,i,xLeft-1,i+15,Clng(yMax*1.1-((i+6)-yTop)/yWidth*yIncrement),daright
next
      
'写入纵坐标单位
img.textout 1,1,"单位："&ydanwei          
   
'输入标题
myTitle=session("name")&"负荷线图"
img.fontcolor=img.clwhite
img.fontsize=12
img.drawtext 270,10,500,30,myTitle,dacenter
  
'输出时间标志字符串
img.fontsize=10
img.fontcolor=img.clRed
img.textout xLeft+xNum*xWidth+4,yTop+10,strDate1
img.fontcolor=img.clBlue
img.textout xLeft+xNum*xWidth+4,yTop+40,strDate2
img.fontcolor=img.clGreen
img.textout xLeft+xNum*xWidth+4,yTop+70,strDate3
   
'****************输入点坐标数组，开始绘制曲线***********
If yIncrement = 0 Then yIncrement = 1

img.ClearPoint
For i = 1 To xNum
  img.SetPoint xLeft+(i-1)*xWidth,yTop+yNum*yWidth-(yarray2(i)-ymin*0.9)*ywidth/yIncrement
Next
img.pencolor=img.clRed  
img.polyline

img.ClearPoint
For i = 1 To xNum
  img.SetPoint xLeft+(i-1)*xWidth,yTop+yNum*yWidth-(yarray2(i)-ymin*0.9)*ywidth/yIncrement
Next
img.pencolor=img.clBlue  
img.PolyLine

img.ClearPoint
For i = 1 To xNum
  img.setpoint xLeft+(i-1)*xWidth,yTop+yNum*yWidth-(yarray2(i)-ymin*0.9)*ywidth/yIncrement
Next
img.pencolor=img.clGreen  
img.PolyLine

   
Response.BinaryWrite img.jpegimage
Set img = Nothing
%>