【高分求助，随时结贴】ASP现可以历遍文件夹下的所有图片，但我现在只想显示第一张图片
以下代码，是显示objFile.name文件夹下的所有图片文件的。请问，如何只显示第一张呢？
现在Response.write filelist 显示出来的是所有图片。。。。。是不是filelist是个数组啊？如何只显示第一张？

<% 
dim fso,objFolder,objFiles 
dim filelist 
Set fso=Server.CreateObject("scripting.FileSystemObject") 
If fso.folderexists(server.MapPath("../pic/"&request("Pro_number")&""))=true Then 
Set objFolder=fso.GetFolder(server.MapPath("../pic/"&request("Pro_number")&""))
Set objFiles=objFolder.Files 
For each objFile in objFiles '循环输出文件夹path下的文件的文件名 
filelist = filelist&"<img src='../pic/"&request("Pro_number")&"/"&objFile.name&"' width=250>" 
Next 

Set objFolder=nothing '释放对象 
Set fso=nothing 
Response.write filelist
Else
Response.write "商品"&request("Pro_number")&"的图片文件夹不存在！<br/>"
Response.end
End If 
%> 
------解决方案--------------------
filelist是字符串，只是组合了你所有的图片，只循环一次就退出for语句就好了

For each objFile in objFiles '循环输出文件夹path下的文件的文件名 
filelist = filelist&"<img src='../pic/"&request("Pro_number")&"/"&objFile.name&"' width=250>" 
exit for
Next