'Archivo Contenido leído.
La copia del código es la siguiente:
FunctionloadFile (byvalfile)
Dimobjstream
OnerrorResumEnext
Setobjstream = server.createObject ("ADODB.Stream")
Iferr.number = -2147221005then
Response.write "<Divalign = 'Center'> Tristemente, su host no admite aDodb.stream, y no puede usar este programa </div>"
Err.Clear
Respuesta.
Endif
Sinbjstream
.Type = 2
.Mode = 3
.Abierto
.LoadFromFileserver.mappath (archivo)
Iferr.number <> 0then
Response.Write "<Divalign = 'Center'> file <fontcolor = '#ff0000'>" & file & "</font> no se puede abrir, verifique si existe! </font> </div>"
Err.Clear
Respuesta.
Endif
.Charset = "GB2312"
.Position = 2
LoadFile = .ReadText
.Cerca
Fin
Setobjstream = nada
Función final
'Contenido de almacenamiento para archivar
La copia del código es la siguiente:
Subsavetofile (Byvalstrbody, Byvalfile)
Dimobjstream
OnerrorResumEnext
Setobjstream = server.createObject ("ADODB.Stream")
Iferr.number = -2147221005then
Response.write "<Divalign = 'Center'> Tristemente, su host no admite aDodb.stream, y no puede usar este programa </div>"
Err.Clear
Respuesta.
Endif
Sinbjstream
.Type = 2
.Abierto
.Charset = "GB2312"
.Position = objstream.size
.WriteText = strbody
.Savetofileserver.mappath (archivo), 2
.Cerca
Fin
Setobjstream = nada
Endsub
Ejemplo de llamada
La copia del código es la siguiente:
<%
WriteFile "aaa.txt", "www.vevb.com", "UTF-8"
Response.Write ReadFile ("AAA.TXT", "UTF-8")
%>