谁能帮我改下这个代码，让他只显示图片，而不是所有的文件

<%
Option Explicit
dim infopath '当前路径
dim serverpath '服务器路径
dim objfso '文件组件
dim objfile '文件
dim objfolder '目录
dim objfoldercontents '所有文件
dim objfoldercount '临时数组变量-文件夹
dim objfileitem '临时数组变量-文件

infopath=request.servervariables("path_info") '得到文件相对路径
serverpath=server.mappath(infopath) '得到文件绝对路径

set objfso=createobject("scripting.filesystemobject") '实例文件组件
set objfile=objfso.GetFile(serverpath) '读取文件所在路径
set objfolder=objfile.parentfolder '根据文件所在路径得到上级目录

谁能帮我改下这个VB代码。 他改怎么办，我不想让他这个样子！！ 谁能帮我改一下这个代码先谢谢了 我应该怎么改一下这个代码 请帮我改一下这个代码 我的男朋友很要面子,他死活改不了.怎样才能让他改掉这个坏习惯?? 帮我改下C++代码 谁帮我改下Script代码 这个代码怎么改？ ~~~~~~哪位高手可以帮忙改下这个上传代码?~~~~~~