Leia os arquivos de texto com Adodb.stream em vez de FSO em ASP

'Arquivo Conteúdo da leitura.

A cópia do código é a seguinte:

FunctionLoadFile (BYVALFILE)

DIMOBJSTREAM

OnErrorReSumenext

Setobjstream = server.createObject ("adodb.stream")

Iferr.Number = -2147221005THEN

Response.Write "<Divalign = 'Center'> Infelizmente, seu host não suporta Adodb.stream e você não pode usar este programa </div>"

Err.clear

Resposta.END

Endif

Sembjstream

.Type = 2

.Mode = 3

.Abrir

.LoadfromfileServer.mappath (arquivo)

Iferr.number <> 0then

Response.Write "<Divalign = 'Center'> arquivo <FontColor = '#ff0000'>" & File & "</font> não pode ser aberto, verifique se existe! </font> </div>"

Err.clear

Resposta.END

Endif

.Charset = "GB2312"

.Position = 2

Loadfile = .readText

.Fechar

ENDWITH

Setobjstream = nada

Função final

'Conteúdo de armazenamento para arquivar

A cópia do código é a seguinte:

Subsavetofile (byvaltrbody, byvalfile)

DIMOBJSTREAM

OnErrorReSumenext

Setobjstream = server.createObject ("adodb.stream")

Iferr.Number = -2147221005THEN

Response.Write "<Divalign = 'Center'> Infelizmente, seu host não suporta Adodb.stream e você não pode usar este programa </div>"

Err.clear

Resposta.END

Endif

Sembjstream

.Type = 2

.Abrir

.Charset = "GB2312"

.Position = objStream.size

.WriteText = strbody

.SavetoFileServer.mappath (arquivo), 2

.Fechar

ENDWITH

Setobjstream = nada

Endsub

Ligue para o exemplo

A cópia do código é a seguinte:

<%

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

Response.Write readfile ("aaa.txt", "utf-8")

%>

Artigos que podem ser de interesse para você:

Adodb.stream lê arquivos para o código de matriz. O JScript usa Adodb.stream para julgar o código de codificação de arquivos. Use Msxml2.xmlHttp e Adodb.stream para coletar imagens usando adodb.stream em ASP para baixar arquivos em vez de abrir métodos/atributos ASP do Adodb.Stream Objeto Adodb.Stream Componente ANDOVENSET ATRIBUIÇÃO DO ATRAMET VALOR DO FORDOMEN208 ADBIONSTRAMENTATRAMENTATRAMENTO DOENTRAMENTO DO FILHOT.TRAMEN8 ADBIONSTRAMENTATRAMENTATRAMENTATRAMENTATEMENTATRAMENTATEMENTATRAMENTATEMENTRAMENTO ADBIMENSTEN8 ADBION808 ADBIONSTRAMENTOMENTRAMENTO DOMENS208080) Problema de 800a0bbc