【高分求助，随时结贴】ASP现可以历遍文件夹下的所有图片，但我现在只想显示第一张图片

[ps800]

以下代码，是显示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
%>

[Go 旅城通票]

filelist是字符串，只是组合了你所有的图片，只循环一次就退出for语句就好了 For each objFile in objFiles '循环输出文件夹path下的文件的文件名 filelist = filelist&"<img src='../pic/"&request("Pro_number")&"/"&objFile.name&"' width=250>" exit for Next

[tan_ming]

filelist = filelist&"<img src= 输出的当然是全部，你既然要获取第一张，何必循环全部图片？