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
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=(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 470,10,500,30,myTitle,dacenter
  
   '输出时间标志字符串
   img.fontsize=10
   img.fontcolor=img.clRed
   img.textout xLeft+xNum*xWidth+4,yTop+10,TimeArray(1)
   img.fontcolor=img.clBlue
   img.textout xLeft+xNum*xWidth+4,yTop+40,TimeArray(2)
   img.fontcolor=img.clGreen
   img.textout xLeft+xNum*xWidth+4,yTop+70,TimeArray(3)
   
   '****************输入点坐标数组，开始绘制曲线***********
   
   if yIncrement=0 then yIncrement=1
   img.clearpoint
   for i=1 to xNum
     img.pencolor=img.clRed
     if yArray4(i)=1 then
       img.setpoint xLeft+(i-1)*xWidth,yTop+yNum*yWidth-(yarray1(i)-ymin*0.8)*ywidth/yIncrement
     else
       img.polyline
       img.clearpoint
     end if
   next  
   img.polyline
   
   img.clearpoint
   for i=1 to xNum
     img.pencolor=img.clBlue
     if yArray5(i)=1 then
       img.setpoint xLeft+(i-1)*xWidth,yTop+yNum*yWidth-(yArray2(i)-ymin*0.8)*ywidth/yIncrement
     else
       img.polyline
       img.clearpoint
     end if
   next  
   img.polyline
   
   img.clearpoint
   for i=1 to xNum
     img.pencolor=img.clGreen
     if yArray6(i)=1 then
       img.setpoint xLeft+(i-1)*xWidth,yTop+yNum*yWidth-(yArray3(i)-ymin*0.8)*ywidth/yIncrement
     else
       img.polyline
       img.clearpoint
     end if
   next  
   img.polyline
   
     
   img.pencolor=img.clwhite
   img.fontcolor=img.clwhite
   img.fontsize=10
   
   response.binarywrite img.jpegimage
   set img=nothing
%>