<%
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
If -2147221005=Err then
Response.write "没有这个组件，请安装!"
Response.End()
End If
Jpeg.Open Server.MapPath (filename) '图片路径
If err.number then
Response.write"打开图片失败,请检查路径！"
Response.End()
End if
Dim aa
aa=Jpeg.Binary
Jpeg.Canvas.Font.Color = &Hfffffff
Jpeg.Canvas.Font.Family ="宋体"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Font.Size = 27
Jpeg.Canvas.Font.ShadowColor = &H000000
Jpeg.Canvas.Font.ShadowYOffset = 1
Jpeg.Canvas.Font.ShadowXOffset = 1
Jpeg.Canvas.Brush.Solid = True
Jpeg.Canvas.Font.Quality = 4
Jpeg.Canvas.PrintText Jpeg.OriginalWidth/2-60,Jpeg.OriginalHeight/2+20,"指点购物"
bb=Jpeg.Binary
Set MyJpeg = Server.CreateObject("Persits.Jpeg")
MyJpeg.OpenBinary aa
Set Logo = Server.CreateObject("Persits.Jpeg")
Logo.OpenBinary bb
MyJpeg.DrawImage 0,0, Logo, 0.2
cc=MyJpeg.Binary
'response.BinaryWrite cc
MyJpeg.Save Server.MapPath (filename)
set aa=nothing
set bb=nothing
set cc=nothing
Jpeg.close
MyJpeg.Close
Logo.Close
%> |
