当前位置:首页 > 网站维护 > 列表

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

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

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)%>毫秒

服务项目

网站建设

网站建设

通过SEO优化技术,提供更多的展示机会,带来大量精准流量和询盘,每月意向客户增长20%。

手机网站建设

手机网站建设

手机网站的时代强势来袭,赢在全网营销时代,手机+电脑双剑合璧,把握商机滴水不漏。

网站维护

网站维护

一个好的网站需要定期或不定期地更新内容,才能不断地吸引更多的浏览者,增加访问量。

整合网络营销

整合营销

为了建立、维护和传播品牌,以及加强客户关系,而对品牌进行计划、实施和监督的一系列营销

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