ch13-05-01.aspx

来自「深入浅出ASP.NET程序设计-源代码 书籍语言： 简体中文 」· ASPX 代码 · 共 11 行

<%@ Page ContentType="Image/gif" %>
<%@ Import Namespace="System.IO" %>
<%
Dim FilePath As String = Server.MapPath("/ASP/Chap13/Picture2.jpg")
Dim OBJ As FileStream = New FileStream(FilePath, FileMode.Open, FileAccess.Read)
 Dim ImgBuf(OBJ.Length) As Byte
OBJ.Read(ImgBuf , 0 , OBJ.Length)
OBJ.Close()
Response.BinaryWrite(ImgBuf)
 %>