Anda sedang offline saat ini, menunggu internet Anda untuk menyambung kembali

Cara membaca dan menampilkan Data biner di ASP

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
RINGKASAN
Artikel ini menunjukkan bagaimana untuk membaca dan menampilkan data biner yang menggunakan Server aktifHalaman.

Banyak pengembang menghargai kemudahan menggunakan Scripting.FileSystemObjectuntuk membuka ASCII file dan kemudian menampilkan isi di Word atauMicrosoft Excel dari dalam Internet Explorer. Di awal saat ini,ASP tidak langsung memberikan benda yang sebanding untuk membaca file yangberisi data biner seperti lembar kerja Excel dengan macro, AdobeAcrobat (.pdf) file, gambar .gif, atau file lainnya yang mengandung gandadata. Namun, pengembang ASP dapat menulis objek kustom bisnis ataukomponen yang menambahkan fungsionalitas ini.
INFORMASI LEBIH LANJUT
Bagian saya menyediakan kode ASP yang menerima dan kemudian menampilkan binerfile menggunakan MIME sesuai jenis, dan bagian II menunjukkan cara membuatVisual Basic 5.0 (atau lambat) ActiveX DLL komponen yang memanjangkemampuan 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, lakukanlangkah-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 membuatkomponen, Anda perlu menyalin komponen ke Web server dan mendaftaritu menggunakan RegSvr32.

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

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 193998 - Tinjauan Terakhir: 09/20/2011 00:31:00 - Revisi: 2.0

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
Tanggapan
microsoft.com/c.gif?">