图片缩略图是通过直接读取文件夹中的图片生成的，代码如下：现想让图片在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%>

asp二进制模式输出图片隐藏图片真实地址，并防盗链图片
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Const SysUrl=http://bbs.bccn.net'设置自己网站的URL
'以二进制形式读取图片
'fileName图片物理地址比如"C:\abc\abc.jpg"
Function ReadBinFile(fileName)
 Dim objStream,bin
 Set objStream = Server.CreateObject("ADODB.Stream")'使用adodb.stream读取图片
 objStream.Open'打开stream流
 objStream.Type = 1'以二进制方式读取
 objStream.LoadFromFile fileName'读取图片文件
 bin = objStream.Read'获得图片的二进制代码
 objStream.Close'关闭文件流
 ReadBinFile = bin'返回二进制代码
End Function
'判断图片是否被盗链
Function isSelfRefer()
 Dim sHttp_Referer, sServer_Name
 sServer_Name = CStr(Request.ServerVariables("HTTP_REFERER"))'获得当前URL地址
 if instr(sServer_Name,"bccn.net")<>0 then'判断地址的域名是否属于自己的网站
    IsSelfRefer = True
 Else
    IsSelfRefer = False
 End If
End Function
'是否显示图片
if request.QueryString("Mark")="getPic" then
   Dim RealUrl,fso
   Dim uFileName
   uFileName=Request.QueryString("x")'获得图片url地址比如https://bbs.bccn.net/abc/jpg
   RealUrl=Server.MapPath(uFileName)'获得图片的真实物理地址比如"C:\abc\abc.jpg
   Set fso = Server.CreateObject("Scripting.FileSystemObject")'创建FSO对象
   if Not(fso.FileExists(RealUrl)) then RealUrl=Server.MapPath("logo.gif")'判断图片是否在服务器上,不在则显示默认的出错图片
   '判断图片是否被盗链,盗链显示默认图片
   if Not(isSelfRefer) then
      RealUrl=Server.MapPath("logo.gif")
   end if
   '显示图片
   response.contenttype = "image/jpeg"
   response.BinaryWrite ReadBinFile(RealUrl)
   response.end
end if
%>

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

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

图片名称进数据库撒

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

我给的代码就是直接显示原始图片大小，并且防盗链
用法你可以把路径改为参数
比如把我写的那个存为abc.asp文件
缩略图新窗口打开
<a href="abc.asp?x=abc.jpg" target="_blank">新窗口打开原始图片</a>