<%
function openJpeg(filename)
dim stream
set stream = Server.CreateObject("ADODB.Stream")
stream.mode = 3 '1-读,2-写,3-读写
stream.type = 1 '1-二进制,2-文本
stream.Open
stream.LoadFromFile FileName
openJpeg = stream.Read()
stream.Close
end function
filename = "photo/"+request.queryString("filename")+".jpg"
Dim path,jpegdata
path = server.mappath(filename)
response.write(path)
jpegdata = openJpeg(path)
Response.ContentType = "image/jpeg"
Response.Buffer = True
Response.Clear
Response.BinaryWrite jpegdata
Response.Flush
%>