关于防止盗连打开图片的问题

[areslong]

我用
<%Function ReadBinaryFile(FileName)
Const adTypeBinary = 1
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Type = adTypeBinary
BinaryStream.Open
BinaryStream.LoadFromFile FileName
ReadBinaryFile = BinaryStream.Read
End Function

Response.AddHeader "Content-Disposition", "attachment;filename=file.gif"'文件名
Response.ContentType = "image/*"
Response.ContentType = "image/JPEG" '设置（1） image/JPEG,GIF
response.Binarywrite ReadBinaryFile(server.mappath("91.jpg"))'就是你读取存在本地的文件，防止被别人知道真实路径盗连的。
%>
一运行结果不是在浏览器里打开图片，而是跳出个框让你选择打开/保存/取消，选择打开后再运行就能在浏览器打开了。
我想直接在浏览器里打开啊。

[什么都不能]

Response.AddHeader "Content-Disposition", "attachment;filename=file.gif"'文件名
这句本来就是用做附件下载的attachment就是附件的意思，肯定会弹出下载对话框。

[jbj001]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
Option Explicit

Const SysUrl="http://www.5k38.com"
Function ReadBinFile(fileName)
Dim objStream,bin
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
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"))
if instr(sServer_Name,"5k38.com")<>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")
RealUrl=Server.MapPath("images/"&uFileName)



Set fso = Server.CreateObject("Scripting.FileSystemObject")

if Not(fso.FileExists(RealUrl)) then RealUrl=Server.MapPath("ximages/logo.jpg")

'if Not(isSelfRefer) then
'RealUrl=Server.MapPath("logo.gif")
'end if



response.contenttype = "image/jpeg"
response.BinaryWrite ReadBinFile(RealUrl)
response.end



'end if
%>

试下。

[areslong]

可以了，谢谢了