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

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

点击: 次时候:2017/12/19关头词:上海网站开辟 网页设想 网站扶植公司
‘代码起头局部 ---------法式由上海网页设想供给手艺撑持 3djiangyin.comDim StarTimeStarTime = Timer()Dim objFSO,objFolder,objFile,FFFF = Server.MapPath(

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

‘代码起头局部 ---------  法式由上海网页设想  供给手艺撑持 3djiangyin.com

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

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