图片缩略图是通过直接读取文件夹中的图片生成的，代码如下：现想让图片在img.asp的页面中显示则<a href=""lbbs_pic/"&objFile.name&""">超连接这部份应如何改，img.asp中的代码应如何写。
<% Dim fso,objFolder,objFiles
Dim filelist,filename
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'on error resume next   
Set objFolder=fso.GetFolder(server.MapPath("lbbs_pic"))
Set objFiles=objFolder.Files


'循环输出文件夹path下的文件的文件名
For each objFile in objFiles
filename=objFile.name

If getExt(objFile.name)="gif" or getExt(objFile.name)="jpg" or getExt(objFile.name)="jpeg" Then
filelist = filelist&"<a href=""lbbs_pic/"&objFile.name&""">"&" <img src=""lbbs_pic/"&objFile.name&""" width=""200"" height=""150"" >"&"<P>"&objFile.name&"</P>"

End If
Next

'释放对象  
Set objFolder=nothing
Set fso=nothing

'获取文件类型
Function getExt(str)
getExt = Lcase(Right(str,Len(str)-InstrRev(str,".")))
End Function
'输出图片
%>
<%=filelist%>

感谢楼上的回复，但不是我想要的答案，我想知道要如何把点击缩略图的信息<a href=....  超连接传递给另一个页面img.asp显示该图的原始大小，img.asp的代码要怎么写，才能接收到该传递的信息,因我想在img.asp中显示图片。

[ 本帖最后由 cxfaa 于 2011-9-17 12:59 编辑 ]

因没有用数据库，图片是直接读取的，文件名称为objFile.name那应如何通过超连接传递参数到img.asp