Persits.Jpeg 应用示例

作者:vkvi 来源:ITPOW(原创) 日期:2007-10-14

Persits.Jpeg 是一款操作 JPEG 图片的组件,虽然 ASP.NET 中已经可以很方便地处理图片,但该组件在 ASP 及其它一些开发语言中还是比较流行的。

dim jpeg
set jpeg = server.CreateObject("Persits.Jpeg")
jpeg.Open server.MapPath("src.jpg")
jpeg.Canvas.Font.Family = "楷体_GB2312"
jpeg.Canvas.Font.Size = 10
jpeg.Canvas.Font.Color = &H000000
jpeg.Canvas.Font.Bold = true
jpeg.Canvas.Print 5, 25, "访问量:" & cnt
jpeg.Save server.MapPath("dest.jpg")
set jpeg = nothing
相关文章