以后地位:首页 > 建站常识 > 列表

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

点击: 次时候:2017/12/19关头词:上海网站设想 上海网站建造 上海网站备案 上海网站保护
用asp完成的批量天生大批纪律性内容的完成代码,剧本法式便是为了简化用户输出,取代人手操纵的,大师必然要好好操纵,以下是上海网站建造公司 3djiangyin.com供给手艺撑持<%Dim StarTimeStarTime = Timer()Dim

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

用asp完成的批量天生大批纪律性内容的完成代码,剧本法式便是为了简化用户输出,取代人手操纵的,大师必然要好好操纵,以下是上海网站建造公司 3djiangyin.com 供给手艺撑持

<%

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法式开辟

预定建站
收费供给网站优化
支付关头词