17年专业上海网页设计公司—上海彭塔网络技术有限公司

手机端 网站地图
当前位置:首页 > 建站常识 > 列表

ASP 批量生成文件夹图片水印代码

点击:时间:2017/12/19关键词:上海网站设计 上海网站制作 上海网站备案 上海网站维护
用asp实现的批量生成大量规律性内容的实现代码,脚本程序就是为了简化用户输入,代替人手操作的,大家一定要好好利用,以下是上海网站制作公司 www.021jz.com.cn提供技术支持<%Dim StarTimeStarTime = Timer()Dim

ASP 批量生成文件夹图片水印代码

用asp实现的批量生成大量规律性内容的实现代码,脚本程序就是为了简化用户输入,代替人手操作的,大家一定要好好利用,以下是上海网站制作公司 www.021jz.com.cn 提供技术支持

<%

Dim StarTime

StarTime = Timer()

Dim objFSO,objFolder,objFile,FF

FF = Server.MapPath("UploadFile/image/")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(ff) Then

Set objFolder = objFSO.GetFolder(ff)

For Each subFolder in objFolder.SubFolders

For Each objFile in subFolder.Files

strFile=right(objFile,len(objFile)-instr(objFile,"\UploadFile\image\")-0)

Set Photo = Server.CreateObject("Persits.Jpeg")

PhotoPath = Server.MapPath("\img\logosy.png")       '水印图片路径

Photo.Open PhotoPath                              

Set Logo = Server.CreateObject("Persits.Jpeg")

LogoPath = Server.MapPath(strFile)                  '获取图片路径

Logo.Open LogoPath

Logo.DrawImage Logo.Width-170, Logo.Height-30, Photo  '获取图片长与宽,然后减去对应logo图片宽与高,固定在图片右下角位置

Logo.Quality=100 '不要图片失真处理

Logo.Save Server.mappath(strFile)   '替换原始图片并保存

Set Logo = Nothing  

Next

Next

Else

Response.Write "文件夹"&ff&"不存在,无法读取相关信息!"

End If

Set objFolder = Nothing

Set objFSO = Nothing

Dim EndTime

EndTime = Timer()

%>

当前页面执行的时间:<%=FormatNumber((EndTime - StarTime) * 1000, 3)%>毫秒

asp程序开发

预约建站
免费提供网站优化
领取关键词