'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")
%>