<% @LANGUAGE = VBScript codepage=936 %>
<%
'Create a stream object
Dim objStream
Set objStream = CreateObject("Adodb.Stream")
'Open a GIF file
objStream.Type = 1
objStream.Open
objStream.LoadFromFile "e:/web/读取文件目录/ADOSTREAM/DSC_6260.jpg "
'Output the contents of the stream object
Response.ContentType = "image/gif "
Response.BinaryWrite objStream.Read
'Clean up....
objStream.Close
Set objStream = Nothing
%>