Read text files with ADODB.Stream instead of FSO under asp

'File content read.

The code copy is as follows:

FunctionLoadFile(ByValFile)

DimobjStream

OnErrorResumeNext

SetobjStream=Server.CreateObject("ADODB.Stream")

IfErr.Number=-2147221005Then

Response.Write"<divalign='center'>Sadly, your host does not support ADODB.Stream, and you cannot use this program</div>"

Err.Clear

Response.End

EndIf

WithoutbjStream

.Type=2

.Mode=3

.Open

.LoadFromFileServer.MapPath(File)

IfErr.Number<>0Then

Response.Write"<divalign='center'>file<fontcolor='#ff0000'>"&File&"</font> cannot be opened, please check if it exists!</font></div>"

Err.Clear

Response.End

EndIf

.Charset="GB2312"

.Position=2

LoadFile=.ReadText

.Close

EndWith

SetobjStream=Nothing

EndFunction

'Storage content to file

The code copy is as follows:

SubSaveToFile(ByValstrBody,ByValFile)

DimobjStream

OnErrorResumeNext

SetobjStream=Server.CreateObject("ADODB.Stream")

IfErr.Number=-2147221005Then

Response.Write"<divalign='center'>Sadly, your host does not support ADODB.Stream, and you cannot use this program</div>"

Err.Clear

Response.End

EndIf

WithoutbjStream

.Type=2

.Open

.Charset="GB2312"

.Position=objStream.Size

.WriteText=strBody

.SaveToFileServer.MapPath(File),2

.Close

EndWith

SetobjStream=Nothing

EndSub

Call Example

The code copy is as follows:

<%

WriteFile "aaa.txt", "www.Vevb.com", "utf-8"

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

%>

Articles that may be of interest to you:

Adodb.stream reads files to array code JScript Use ADODB.Stream to judge file encoding code. Use MSXML2.XmlHttp and Adodb.Stream to collect pictures using adodb.stream under asp to download files instead of opening asp methods/attributes of adodb.stream object ADODB.Stream component Charset attribute value set is converted with ADODB.Stream exe2swf tool (Adodb.Stream version) windows2008+iis7 component upload and write file failed ADODB.Stream error 800a0bbc problem