Cara membaca dan menampilkan Data biner di ASP

ID Artikel: 193998 - Melihat produk di mana artikel ini berlaku.

Peringatan: artikel ini adalah terjemahan oleh mesin

Klik disini untuk menampilkan sumber Inggris dan terjemahan oleh mesin secara berdampingan

Perbesar semua | Perkecil semua

Artikel ini menunjukkan bagaimana untuk membaca dan menampilkan data biner yang menggunakan Server aktif Halaman.

Banyak pengembang menghargai kemudahan menggunakan Scripting.FileSystemObject untuk membuka ASCII file dan kemudian menampilkan isi di Word atau Microsoft Excel dari dalam Internet Explorer. Di awal saat ini, ASP tidak langsung memberikan benda yang sebanding untuk membaca file yang berisi data biner seperti lembar kerja Excel dengan macro, Adobe Acrobat (.pdf) file, gambar .gif, atau file lainnya yang mengandung ganda data. Namun, pengembang ASP dapat menulis objek kustom bisnis atau komponen yang menambahkan fungsionalitas ini.

Kembali ke atas | Berikan Masukan

INFORMASI LEBIH LANJUT

Bagian saya menyediakan kode ASP yang menerima dan kemudian menampilkan biner file menggunakan MIME sesuai jenis, dan bagian II menunjukkan cara membuat Visual Basic 5.0 (atau lambat) ActiveX DLL komponen yang memanjang kemampuan ASP untuk membaca data biner.

Bagian I: ASP sampel yang terbuka lembar kerja Excel yang mengandung makro

   <%
   Response.buffer = TRUE
   Response.ContentType = "application/x-msexcel"

   Dim vntStream

   Set oMyObject = Server.CreateObject("MyObject.BinRead")
   vntStream = oMyObject.readBinFile("c:\temp\tempxls.xls")

   Response.BinaryWrite(vntStream)

   Set oMyObject = Nothing

   Response.End
   %>

CATATAN: Untuk Acrobat file, mengubah jenis MIME dengan menggunakan Response.ContentType = "aplikasi/pdf". Untuk gambar .gif, menggunakan Response.ContentType = "gambar/gif".

Bagian II: Visual Basic 5.0 ActiveX DLL (MyObject.BinRead)

Untuk membuat komponen yang melakukan ganda membaca, lakukan langkah-langkah berikut:

Membuat proyek baru ActiveX DLL dalam Visual Basic 5.0 atau yang lebih baru.
Mengubah nama proyek MyObject.
Mengubah nama kelas modul BinRead.

Memotong dan paste kode berikut ke bagian umum Deklarasi kelas modul:

   Function readBinFile(ByVal bfilename As String) As Variant
          Dim fl As Long
          Dim FileNum As Long
          Dim binbyte() As Byte
          Dim binfilestr As String

          On Error GoTo errHandler
          
          FileNum = FreeFile
          Open bfilename For Binary Access Read As #FileNum

          fl = FileLen(bfilename)
          ReDim binbyte(fl)

          Get #FileNum, , binbyte

          Close #FileNum

          readBinFile = binbyte
          Exit Function

      errHandler:
          Exit Function
      End Function

Menyimpan proyek.
Pada File menu klik membuat MyObject.dll.

Server Web Anda Apakah pada mesin terpisah dari tempat Anda membuat komponen, Anda perlu menyalin komponen ke Web server dan mendaftar itu menggunakan RegSvr32.

Untuk memasukkan file yang dibuat di bagian saya ke halaman ASP lain yang telah teks atau format lainnya, penggunaan server side termasuk pernyataan.

Kembali ke atas | Berikan Masukan

Properti

ID Artikel: 193998 - Kajian Terakhir: 20 September 2011 - Revisi: 2.0

Berlaku bagi:

Microsoft Visual Basic 5.0 Professional Edition
Microsoft Visual Basic 6.0 Professional Edition
Microsoft Visual Basic 5.0 Enterprise Edition
Microsoft Active Server Pages 4.0

kbcode kbfso kbhowto kbscript kbmt KB193998 KbMtid

Penerjemahan Mesin

PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.

Klik disini untuk melihat versi Inggris dari artikel ini:193998

(http://support.microsoft.com/kb/193998/en-us/ )

Kembali ke atas | Berikan Masukan