<%
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
%>
本文提供了一个使用ASP实现图片动态加载的示例代码。通过创建ADODB.Stream对象并设置其模式为读写及类型为二进制,可以将指定路径下的JPEG文件加载到内存中,并通过HTTP响应直接输出图片数据。

1813

被折叠的 条评论
为什么被折叠?



