前两天有人问怎么取得一个目录下的文件，下面就是例子

<%@ language=vbscript %>
<%
================================================================
函数名称：filelist
函数功能：列出目录下所有文件
主要参数说明：
1——folderurl     虚拟路径  不可为空
2—-fileexname    文件扩展名
函数返回值：收文记录
================================================================
function filelist(folderurl,fileexname)
    set fso=server.createobject("scripting.filesystemobject")
    set folder=fso.getfolder(server.mappath(trim(folderurl)))
    set file=folder.files
    filelist=""
    for each filename in file
        if trim(fileexname)<>"" then
            if instr(trim(fileexname),trim(mid(filename.name,instr(filename.name,".")+1,len(filename.name))))>0 then
                filelist=filelist&filename.name&"<br>"
            end if
        else
            filelist=filelist&filename.name&"<br>"
        end if
    next
    set file=nothing
    set folder=nothing
    set fso=nothing
end function
response.write filelist("/你的虚拟路径","gif,gif,jpg,jpg")
%>