使用asp代码将一个文件夹下所有图片加水印

发布网友发布时间：2022-08-20 06:08

共2个回答

热心网友时间：2023-05-05 13:31

这个要服务器支持的,,ASPJPGE,,使用FSO遍历路径下所有图片,然后再加水印追问我知道，服务器也支持ASPJPGE，但是不知道代码

追答'确认服务器支持这个组件
Set AspJpeg = Server.Createobject("Persits.Jpeg")
Set LogoPic = Server.Createobject("Persits.Jpeg")
Dim PicName,LogoName
PicName="./图片路径/图片名称.jpg"
LogoName="./pic/shuiyin.png"
AspJpeg.Open Server.mappath(PicName) '打开原图片
LogoFont=server.MapPath(LogoName) 'Logo图片
LogoPic.open LogoFont '打开LOGO图片
AspJpeg.Canvas.DrawImage 10,PctHeight-37, LogoPic,0.6,&HFFFFFF '合并图片,即打水印
Set LogoPic = Nothing
AspJpeg.Save Server.mappath("./合并后存放位置/存放图片名.jpg")
Set AspJpeg = Nothing
DelTempImg(Server.mappath(PicName)) '删除打水印前的图片

Function DelTempImg(DPFID)
    On Error Resume Next
    DIM DelFso
    IF DPFID<>"" THEN
        Set DelFso = CreateObject("Scripting.FileSystemObject")
        If DelFso.FileExists(DPFID) Then
            DelFso.DeleteFile(DPFID)
        END IF
        Set DelFso=Nothing
    END IF
End Function

热心网友时间：2023-05-05 13:32

可以去天天ASP家园问问