makeimage.asp

是个虚拟仪器的组件模型,在VC++下开发的

<%
  Set objMath=Server.CreateObject("ibqsMath.ibqsImageObject")  '创建Com对象
 
  objMath.Width=400  '设置图像宽度

  objMath.Height=300  '设置图像高度

  'objMath.SetBgStyle "A7B4E0",0,"5166BD"
  '设置背景颜色,参数为:背景颜色、边框宽度、边框颜色

  objMath.SetGradientStyle 7,"BAC4E7","5166BD"
  '设置背景渐变色,参数为:渐变模式,开始颜色,结束颜色
  '渐变模式:1从左到右
  '渐变模式:2从上到下
  '渐变模式:3从中间到四周圆形扩散
  '渐变模式:4从中间到四周方形扩散
  '渐变模式:5从上下到中间水平渐变
  '渐变模式:6从左右到中间垂直渐变
  '渐变模式:7从左上角向右下角渐变
  '渐变模式:8从右上角向左下角渐变
  '渐变模式:9从右下角向左上角渐变
  '渐变模式:10从左下角向右上角渐变
  '渐变模式:11对角线向中间均匀渗透
  '渐变模式:12对角线向外部均匀渗透

  'objMath.SetBackImage("C:\bg.jpg")  '设置背景图片,支持格式:bmp/jpg/gif

  objMath.XBlankLength=20  '设置图像横轴两端的空白宽度
  objMath.YBlankLength=30  '设置图像纵轴两端的空白宽度

  objMath.XRulerLength=15  '设置图像横轴刻度尺的间隔宽度
  objMath.YRulerLength=15  '设置图像纵轴刻度尺的间隔宽度

  objMath.XRulerHeight=5  '设置图像横轴刻度尺的高度
  objMath.YRulerHeight=5  '设置图像纵轴刻度尺的高度

  objMath.IsShowOPoint=true  '设置是否显示圆心坐标,true为显示,false为不显示

  objMath.IsShowXRuler=true  '设置是否显示横轴刻度尺
  objMath.IsShowYRuler=true  '设置是否显示纵轴刻度尺

  objMath.IsShowXRulerName=true  '设置是否显示横轴刻度尺刻度名称
  objMath.IsShowYRulerName=true  '设置是否显示纵轴刻度尺刻度名称

  objMath.IsShowXRulerLine=true  '设置是否显示横轴刻度尺标记线
  objMath.IsShowYRulerLine=true  '设置是否显示纵轴刻度尺标记线

  objMath.XAxisColor="000000"  '设置图像横轴颜色
  objMath.YAxisColor="000000"  '设置图像纵轴颜色

  objMath.XRulerColor="000000"  '设置图像横轴刻度尺颜色
  objMath.YRulerColor="000000"  '设置图像纵轴刻度尺颜色

  objMath.XRulerNameColor="1E1B52"  '设置图像横轴刻度尺刻度名称颜色
  objMath.YRulerNameColor="1E1B52"  '设置图像纵轴刻度尺刻度名称颜色

  objMath.RulerFontName="Arial"  '设置图像横轴刻度尺名称字体名称
  objMath.RulerFontSize=7  '设置图像纵轴刻度尺名称字体大小

  objMath.XRulerLineColor="C5CDEB"  '设置图像横轴刻度尺标记线颜色
  objMath.YRulerLineColor="C5CDEB"  '设置图像纵轴刻度尺标记线颜色

  objMath.MathLineColor="D90000"  '设置函数曲线颜色
  objMath.MathLineWidth=1  '设置函数曲线宽度

  objMath.Expression="sin(x)+x"  '设置函数表达式,变量为x

  objMath.SetTextOut 20,8,"ibqsMath数学专家v1.4",11,"Arial",3,"292C8B",""
  objMath.SetTextOut 280,8,"函数:y=sin(x)+x",11,"Arial",3,"292C8B",""
  objMath.SetTextOut 20,280,"作者:胡洪祥    网站:www.ibqs.com    邮件:[e-mail]",10,"Arial",0,"292C8B",""
  '直接向图片输出文字:参数分别为:X坐标,Y坐标,文字内容,字体大小,字体名称,字体风格,字体颜色,背景颜色
  '字体样式: 0默认，1加粗，2加斜，3加下划线，4加删除线

  objMath.SaveToPage("gif")
  '保存图片到当前网页,参数为:图片格式,注意:当前网页将采用流输出,不允许有html标签
  '图片格式为:bmp/gif/jpg

  'Result=objMath.SaveToFile("gif","C:\ibqsMath.gif")
  '保存图片为文件,参数为:图片格式,存储路径
  '图片格式为:bmp/gif/jpg

  objMath.Close  '关闭与释放本组件资源

  Set objMath = nothing  '清空组件对象
%>