Baca file teks dengan adodb.stream alih -alih FSO di bawah ASP

'File konten dibaca.

Salinan kode adalah sebagai berikut:

FunctionLoadFile (byvalfile)

Dimobjstream

OnerrorresumeNext

SetoBjStream = server.CreateObject ("adodb.stream")

Iferr.number = -2147221005then

Response.write "<divalign = 'center'> Sayangnya, tuan rumah Anda tidak mendukung adodb.stream, dan Anda tidak dapat menggunakan program ini </div>"

Err.clear

Respons.end

Endif

TanpaBJStream

.Type = 2

.Mode = 3

.Membuka

.LoadFromFileServer.mappath (file)

Iferr.number <> 0then

Response.write "<divalign = 'center'> file <fontColor = '#ff0000'>" & file & "</font> tidak dapat dibuka, silakan periksa apakah ada! </font> </div>"

Err.clear

Respons.end

Endif

.Charset = "GB2312"

.Posisi = 2

LoadFile = .readtext

.Menutup

Endwith

Setobjstream = tidak ada

Fungsi endfungsi

'Konten penyimpanan untuk mengajukan

Salinan kode adalah sebagai berikut:

Subsavetofile (byvalstrbody, byvalfile)

Dimobjstream

OnerrorresumeNext

SetoBjStream = server.CreateObject ("adodb.stream")

Iferr.number = -2147221005then

Response.write "<divalign = 'center'> Sayangnya, tuan rumah Anda tidak mendukung adodb.stream, dan Anda tidak dapat menggunakan program ini </div>"

Err.clear

Respons.end

Endif

TanpaBJStream

.Type = 2

.Membuka

.Charset = "GB2312"

.Posisi = objstream.size

.Writetext = strbody

.Savetofileerver.mappath (file), 2

.Menutup

Endwith

Setobjstream = tidak ada

Endsub

Contoh panggilan

Salinan kode adalah sebagai berikut:

<%

WriteFile "aaa.txt", "www.vevb.com", "UTF-8"

Response.write readfile ("aaa.txt", "UTF-8")

%>

Artikel yang mungkin menarik bagi Anda:

ADODB.Stream membaca file ke kode array. JScript menggunakan adodb.stream untuk menilai kode pengkodean file. Gunakan msxml2.xmlhttp dan adodb.stream untuk mengumpulkan gambar menggunakan adodb.stream di bawah asp untuk mengunduh file alih -alih membuka metode/atribut ASP dari adodb.stream objek adodb.stream component charset value set. Masalah 800A0BBC