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

ASP 图片文件夹批量生成缩略图代码

来源:浦一科技点击:时间:2017-12-19 关键词:上海网站开发 网页设计 网站建设公司
‘代码开始部分---------程序由上海网页设计提供技术支持www.021jz.com.cnDimStarTimeStarTime=Timer()DimobjFSO,objFolder,objFile,FFFF=Server.MapPath("UploadF

ASP 图片文件夹生成缩略图小图代码

‘代码开始部分 ---------  程序由上海网页设计  提供技术支持 www.021jz.com.cn

Dim StarTime

StarTime = Timer()

Dim objFSO,objFolder,objFile,FF

FF = Server.MapPath("UploadFile/image/")      ' 读取/UploadFile/image文件夹下的所有文件夹当中的图片文件

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

If objFSO.FolderExists(ff) Then

Set objFolder = objFSO.GetFolder(ff)               ' 遍历upfile/下的所有文件夹

For Each subFolder in objFolder.SubFolders      ' 遍历所有文件

For Each objFile in subFolder.Files

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

Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 调用组件

Path = Server.MapPath(strFile)                        ' 待处理图片路径

Jpeg.Open Path                                             ' 打开图片

' 这里进行了判断,如果图片宽度大于400像素,就进行缩小原来的0.65倍

if Jpeg.OriginalWidth > 400 then

Jpeg.Width = Jpeg.OriginalWidth * 0.65

Jpeg.Height = Jpeg.OriginalHeight * 0.65

end if

Jpeg.Save Server.MapPath(strFile)

Set Jpeg = 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%。

手机网站建设

手机网站建设

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

网站维护

网站维护

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

整合网络营销

整合营销

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

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