文件！
各位我是服器的文件下取片文件的，我在想在ASP下些文件，不是片文件的就不示出，各位有什好招？

另外我有一：我想在ASP做出一像VB面的LISTBO控件一的效，不知道各位有什好招？我了一下始他是示一行，各位我看一下　段代出在哪：
s=request( "sel ")
smappath=serverpath& "\ "&s
'response.Write "文件下共有： "&i& "片文件 "
set objfolder=objfso.getfolder(smappath)
'response.Write " <table width= '100% '> <tr> "
response.Write( " <select name= " "select " " size= " "5 " " multiple style= " "max-height:inherit " "> " )
for each objFile in objfolder.files
i=i+1
imgname=sMapPath & "\ " & objFile.Name
response.Write ( " <option value= "&imgname& "> "&objfile.name& " </option> ")
next
response.Write( " </select> ")

！

[解决办法]
在for each objFile in objfolder.files后加入：

select case LCase(objFile.Ext) '取出扩展名
case "jpg ", "jpeg ", "png ", "gif ", "bmp "
case else
exit for
end select