Cách gửi dữ liệu nhị phân từ ASP

[hoangphuong2003]

Phần lớn thao tác của chúng ta thường chỉ đến một tập tin đã tồn tại và thường dùng phương thức Response.Redirect. Về phía client, phần lớn các loại tập tin nhận được là loại thường gặp như Adobe Acrobat (.pdf), Microsoft Word (.doc) và PKZip (.zip).
Tuy nhiên để bảo mật chúng ta cần một cách khác để gửi các loại tập tin đến cho client. Chúng ta thử xem cách này
Tạo một hàm để đọc tập tin
Code:
?
Function ReadBinaryFile(ByVal sFileName As String) As Variant
Dim FileLength As Long
Dim FileNo As Long
Dim aBytes() As Byte
On Error GoTo ErrHandler
FileNo = FreeFile()
Open sFileName For Binary Access Read As #FileNo
FileLength = FileLen(sFileName)
ReDim aBytes(FileLength)
Get #FileNo, , aBytes
Close #FileNo
ReadFile = aBytes
End Function
Bây giờ chúng ta có một mảng dữ liệu trong ASP
Code:
?
<%
Response.Buffer = True
Response.Clear
Response.AddHeader ''content-disposition'', ''attachment; filename='' & FileName
Response.ContentType = ''application/pdf''
vStream = oUtility.ReadBinaryFile(Server.MapPath(PathName))
Response.BinaryWrite(vStream)
Set oUtility = Nothing
Response.End
%>
Sưu tầm
Nguồn: Cách gửi dữ liệu nhị phân từ ASP
________________________
Thuận vợ thuận chồng , con đông mệt quá!!!
https://thegioi-congnghe.blogspot.com/
Kiến thức tự học lập trình ASP
Học lập trình dot net