建站常识

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