图片自动保存到本地并利用aspjpeg为图片加水印
自动 利用 图片 本地 保存 加水 aspJpeg
2023-06-13 09:13:41 时间
<%
"函数功能:远程图片自动保存到本地服务器,并利用aspjpeg为图片加上水印
"(注意:请先在目录下创建images目录,用来保存临时图片)
"本程序需要在服务器上安装"aspjpeg组件"否则无法正常使用
"也可以只取"""""22222222"""""""以上的部分,这部分可以保存图片,第二部分是进行水印增加
"使用方法,请保存为saveimg.asp
"saveimg.asp?url=http://siyizhu.com/logo.gif 即可以取下图片啦,HOHO. 其他需要加的功能,大家自己扩展好啦
"如何获取其他后缀名的文件呢? 当然也可以啦
"(jpg|gif|png|bmp)改成(mp3)明白吧? 就是取mp3后缀的文件名.以此类推. 嘻嘻
Server.ScriptTimeOut=99999
const savepath="images" "图片保存路径
url=request("url")
function myreplace(str)
newstr=str
set objregEx = new RegExp
objregEx.IgnoreCase = true
objregEx.Global = true
objregEx.Pattern = "http://(.+?)\.(jpg|gif|png|bmp)" "定义文件后缀
set matches = objregEx.execute(str)
for each match in matches
newstr=replace(newstr,match.value,saveimg(match.value))
next
myreplace=newstr
end function
function saveimg(url)
temp=split(url,".")
"以下是用时间与随机数重命名文件名
randomize
ranNum=int(90000*rnd)+10000
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&temp(ubound(temp))
"文件名重命名结束
set xmlhttp=server.createobject("Microsoft.XMLHTTP")
xmlhttp.open "get",url,false
xmlhttp.send
img=xmlhttp.ResponseBody
set xmlhttp=nothing
set objAdostream=server.createobject("ADODB.Stream")
objAdostream.Open()
objAdostream.type=1
objAdostream.Write(img)
objAdostream.SaveToFile(server.mappath(savepath&filename))
objAdostream.SetEOS
set objAdostream=nothing
"""""""222222222"""""""""""
saveimg=savepath&filename "获取保存路径
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath(saveimg) "打开保存图片的路径
" 添加文字水印
Jpeg.Canvas.Font.Color = &HFF0000" 红色
Jpeg.Canvas.Font.Family = "宋体"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print Jpeg.OriginalWidth-200,Jpeg.OriginalHeight-50, "siyizhu.com" "水印离左边的距离,离顶端的距离,这个是放在右下脚了
"保存文件
Jpeg.Save Server.MapPath(saveimg) "保存添加水印后的图片
" 注销对象
Set Jpeg = Nothing
end function
%>
注意你的服务器组件支持哦.
"函数功能:远程图片自动保存到本地服务器,并利用aspjpeg为图片加上水印
"(注意:请先在目录下创建images目录,用来保存临时图片)
"本程序需要在服务器上安装"aspjpeg组件"否则无法正常使用
"也可以只取"""""22222222"""""""以上的部分,这部分可以保存图片,第二部分是进行水印增加
"使用方法,请保存为saveimg.asp
"saveimg.asp?url=http://siyizhu.com/logo.gif 即可以取下图片啦,HOHO. 其他需要加的功能,大家自己扩展好啦
"如何获取其他后缀名的文件呢? 当然也可以啦
"(jpg|gif|png|bmp)改成(mp3)明白吧? 就是取mp3后缀的文件名.以此类推. 嘻嘻
Server.ScriptTimeOut=99999
const savepath="images" "图片保存路径
url=request("url")
function myreplace(str)
newstr=str
set objregEx = new RegExp
objregEx.IgnoreCase = true
objregEx.Global = true
objregEx.Pattern = "http://(.+?)\.(jpg|gif|png|bmp)" "定义文件后缀
set matches = objregEx.execute(str)
for each match in matches
newstr=replace(newstr,match.value,saveimg(match.value))
next
myreplace=newstr
end function
function saveimg(url)
temp=split(url,".")
"以下是用时间与随机数重命名文件名
randomize
ranNum=int(90000*rnd)+10000
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&temp(ubound(temp))
"文件名重命名结束
set xmlhttp=server.createobject("Microsoft.XMLHTTP")
xmlhttp.open "get",url,false
xmlhttp.send
img=xmlhttp.ResponseBody
set xmlhttp=nothing
set objAdostream=server.createobject("ADODB.Stream")
objAdostream.Open()
objAdostream.type=1
objAdostream.Write(img)
objAdostream.SaveToFile(server.mappath(savepath&filename))
objAdostream.SetEOS
set objAdostream=nothing
"""""""222222222"""""""""""
saveimg=savepath&filename "获取保存路径
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath(saveimg) "打开保存图片的路径
" 添加文字水印
Jpeg.Canvas.Font.Color = &HFF0000" 红色
Jpeg.Canvas.Font.Family = "宋体"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print Jpeg.OriginalWidth-200,Jpeg.OriginalHeight-50, "siyizhu.com" "水印离左边的距离,离顶端的距离,这个是放在右下脚了
"保存文件
Jpeg.Save Server.MapPath(saveimg) "保存添加水印后的图片
" 注销对象
Set Jpeg = Nothing
end function
%>
注意你的服务器组件支持哦.
相关文章
- 如何将CoDesign中设计稿变更自动同步至企微
- 卷烟全品规自动分拣解决方案分析
- python自动关闭文件
- 宝塔利用 Git + WebHook 实现与码云同步【自动部署】
- CentOS7网络自动连接详解程序员
- 利用Oracle自动巡检提升数据库性能(oracle自动巡检)
- 利用 Oracle 建立自动 Job(oracle建job)
- Linux下实现定时自动任务的核心文件 (linux计划任务文件)
- Oracle列自动增长:优化存储运行效率(oracle列自动增长)
- 数据利用Oracle实现定时自动删除数据(oracle定时删除)
- 利用Oracle触发器实现数据库自动任务处理(oracle触发器类型)
- 利用Oracle触发器实现数据库自动管理(oracle触发器类型)
- 利用Oracle自动扩展分区管理大数据(oracle自动扩展分区)
- 不玩游戏的工程师做不好自动驾驶
- Oracle自动同步的新突破(oracle自动同步)
- Oracle自动排序:实现无缝的组织数据(oracle自动排序)
- MSSQL自动增长:利用它简化数据库管理(mssql自动增长)
- MSSQL 如何利用自增约束实现自动计数(mssql 自增约束)
- Oracle主键自增实现自动递增的方法(oracle主键自增实现)
- Oracle序列号 自动编号化你的记录(oracle seqno)
- 利用Redis轻松实现自动备份(redis设置自动备份)
- 线路分流自动跳转代码;希望对大家有用!
- jqueryautocomplete自动完成插件的的使用方法