NDF国际

百科学堂 | 实用工具

function add_char_mark(imgpath,savepath,character)
if not mid(imgpath,2,1)=":" then
phypath=server.MapPath(imgpath)
else
phypath=imgpath
end if
if not mid(savepath,2,1)=":" then
physavepath=server.MapPath(savepath)
else
physavepath=savepath
end if
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open phypath
aa=Jpeg.Binary
Jpeg.Canvas.Font.Color = &Hfffffff
Jpeg.Canvas.Font.Family = Arial
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Font.Size = 35
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-100,Jpeg.OriginalHeight/2+20,character

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
MyJpeg.Save physavepath
MyJpeg.close
set MyJpeg=nothing
Jpeg.close
set Jpeg=nothing
end function