‘代码开始部分 --------- 程序由上海网页设计 提供技术支持 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)%>毫秒
