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)
 %>