利用VC＋＋开发ASP图像处理组件（二）(3)

添加时间:2007-09-01 原文发表:2007-08-31 人气:32 来源：vckbase.com

本文章共4978字，分3页，当前第3页，快速翻页：

q) END IF

r) IF Page <= 0 THEN
i. Page = 1
s) END IF

t) sPageText = mid(TeachingBody, (Page-1) * PageTextLen 1, PageTextLen)

u) Dim sFont
逆风编程精品
v) sFont = Request("FontFace")

w) Dim FileName

x) FileName = GetTempFileName(Server.MapPath("tmp"), "XTImg_", "jpg")

y) On Error Resume Next
z) Set Obj = Server.CreateObject("XTAspImage.AspImage")
aa) Response.Clear
bb) If Err.Number <> 0 Then
i. Response.Write "请先在服务器安装信天ASPIMAGE组件!"
ii. Response.End
cc) End If

dd) Obj.bstrFilePath = FileName
ee) Obj.lHeight = INT(Request("Height"))
ff) Obj.lWidth = INT(Request("Width"))
gg) Obj.bstrFont = sFont
hh) Obj.lLeft = INT(Request("ImgLeft"))
ii) Obj.lTop = INT(Request("ImgTop"))
jj) Obj.llfHeight = INT(Request("llfHeight"))
kk) Obj.lWeight = INT(Request("Weight"))
ll) Obj.l3D = INT(Request("l3D"))
mm) Obj.lCSet = INT(Request("CSet"))
nn) Obj.bstrText = sPageText

oo) IF Obj.OutTextImg = 0 THEN
i. Dim lDelFile ''是否删除临时文件，0为不删除，非0为删除
ii. lDelFile = 1
iii. ret = Obj.OutImg(FileName, lDelFile)
iv. ''Response.Write "输出文件成功！"
pp) ELSE
i. Response.Write "输出文件失败！"
qq) END IF

rr) Set Obj = nothing
5. %>
6. <body>
7. </body>
8. </html>

1，2，3 行为包含一数据库连接文件及网站配置信息
4.a 至 4.x 从通过传入ID号从数据库里读取文本，并通过字数计算输出页要输出的文本并保存到sPageText里。
4.y 至 4.nn创建信天asp 图像处理组件并设置输出文件名，图像长宽，字符集，字体等。
4.oo以后输出文件及把图像数据转发给用户浏览器。

在普通网页里的调用方法为：

<img src="outteachimg.asp?TeachID=67&PageTextLen=500&Height=300&Width=600&Page=1&

FontFace=华文新魏&l3D=0&FontColor=0&CSet=134&BGImgPath=&ImgLeft=10&

ImgTop=20&ImgBottom=10&ImgRight=10&llfHeight=24&Weight=300" width="580" >

五、结束语
　　图片处理组件在互联网程序开发中使用很常见，例如我们注册论坛会员或商城会员里，总会有提示输入验证码的提示，而此验证码为了防软件自动识别，是以图像数据输出的。当我们掌握了图片处理组件开发方法时，开发基于asp的图片验证数字输出及字符输出将是轻而易举。

参考资料：

设计演示站点：http://www.nwnu.net

作者信息：