采用File控件 dim FileLength as int32 Dim FileByteArray(FileLength) As Byte '//图象文件临时储存Byte数组 Dim StreamObject As Stream = UpFile.InputStream '//建立数据流对像 '//读取文件数据,FileByteArray为数据储存体,0为数据指针位置、FileLnegth为数据长度 StreamObject.Read(FileByteArray, 0, FileLength) Response.ContentType = Convert.ToString(UpFile.ContentType) '//设定输出文件类型 '//输出图象文件二进制数制 Response.OutputStream.Write(PriTable.Rows(0).Item(2),0, FileLength) Response.End()
采用File控件 dim FileLength as int32 Dim FileByteArray(FileLength) As Byte '//图象文件临时储存Byte数组 Dim StreamObject As Stream = UpFile.InputStream '//建立数据流对像 '//读取文件数据,FileByteArray为数据储存体,0为数据指针位置、FileLnegth为数据长度 StreamObject.Read(FileByteArray, 0, FileLength) Response.ContentType = Convert.ToString(UpFile.ContentType) '//设定输出文件类型 '//输出图象文件二进制数制 Response.OutputStream.Write(FileByteArray,0, FileLength) Response.End()
dim FileLength as int32
Dim FileByteArray(FileLength) As Byte '//图象文件临时储存Byte数组
Dim StreamObject As Stream = UpFile.InputStream '//建立数据流对像
'//读取文件数据,FileByteArray为数据储存体,0为数据指针位置、FileLnegth为数据长度
StreamObject.Read(FileByteArray, 0, FileLength)
Response.ContentType = Convert.ToString(UpFile.ContentType)
'//设定输出文件类型
'//输出图象文件二进制数制
Response.OutputStream.Write(PriTable.Rows(0).Item(2),0, FileLength)
Response.End()
dim FileLength as int32
Dim FileByteArray(FileLength) As Byte '//图象文件临时储存Byte数组
Dim StreamObject As Stream = UpFile.InputStream '//建立数据流对像
'//读取文件数据,FileByteArray为数据储存体,0为数据指针位置、FileLnegth为数据长度
StreamObject.Read(FileByteArray, 0, FileLength)
Response.ContentType = Convert.ToString(UpFile.ContentType)
'//设定输出文件类型
'//输出图象文件二进制数制
Response.OutputStream.Write(FileByteArray,0, FileLength)
Response.End()