Cara membaca dan menampilkan Data biner di ASP

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 193998 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

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.

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:
  1. Membuat proyek baru ActiveX DLL dalam Visual Basic 5.0 atau yang lebih baru.
  2. Mengubah nama proyek MyObject.
  3. Mengubah nama kelas modul BinRead.
  4. 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
    						
  5. Menyimpan proyek.
  6. 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.

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
Kata kunci: 
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

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com