‘代碼開始部分(fēn) ---------程序由上海網頁設計提供技術支持 www.021jz.com.cnDim StarTimeStarTime = Timer()Dim objFSO,objFolder,objFile,FFFF = Server.MapPath(

‘代碼開始部分(fēn) ---------  程序由上海網頁設計  提供技術支持 www.021jz.com.cn

Dim StarTime

StarTime = Timer()

Dim objFSO,objFolder,objFile,FF

FF = Server.MapPath("UploadFile/image/")      ' 讀取/UploadFile/image文件夾下(xià)的(de)所有文件夾當中的(de)圖片文件

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

If objFSO.FolderExists(ff) Then

Set objFolder = objFSO.GetFolder(ff)               ' 遍曆upfile/下(xià)的(de)所有文件夾

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") ' 調用(yòng)組件

Path = Server.MapPath(strFile)                        ' 待處理(lǐ)圖片路徑

Jpeg.Open Path                                             ' 打開圖片

' 這(zhè)裏進行了(le)判斷，如果圖片寬度大(dà)于400像素，就進行縮小原來(lái)的(de)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()

%>

當前頁面執行的(de)時(shí)間：<%=FormatNumber((EndTime - StarTime) * 1000, 3)%>毫秒

上一篇：ASP 批量生成文件夾圖片水(shuǐ)印代碼 下(xià)一篇：asp删除數據庫中沒有記錄的(de)圖片程序代碼