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