小光网络技术博客

在网站后台编辑中,为了更方便地操作图片,很多编程的都不知怎么办,今天写点怎么样用FSO来读图片文件!如果不了解可以用一研究下,如果那里写得不好,请大虾多多指点!

<%
Dim    oFSO,    oUploadFolder,    oUploadFiles,    oUploadFile,    sFileName
f_path=Server.MapPath("images/")'要读取的路径

Set    oFSO    =    Server.CreateObject("Scripting.FileSystemObject")
On    Error    Resume    Next
Set    oUploadFolder    =    oFSO.GetFolder(f_path)

Dim    oSubFolder

Set    oUploadFiles    =    oUploadFolder.Files
For    Each    oUploadFile    In    oUploadFiles
    sFileName    =    oUploadFile.Name
    
sExt    =right(sFileName,3)
if    sExt="gif"    or    sExt="jpg"    or    sExt="png"    or    sExt="bmp"    then    '条件选择显示图片
    response.Write    sFileName&"<br>"
    end    if    
next
%>