'文件内容读取.

复制代码 代码如下:

FunctionLoadFile(ByValFile)

DimobjStream

OnErrorResumeNext

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

IfErr.Number=-2147221005Then

Response.Write"<divalign='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"

Err.Clear

Response.End

EndIf

WithobjStream

.Type=2

.Mode=3

.Open

.LoadFromFileServer.MapPath(File)

IfErr.Number<>0Then

Response.Write"<divalign='center'>文件<fontcolor='#ff0000'>"&File&"</font>无法被打开，请检查是否存在!</font></div>"

Err.Clear

Response.End

EndIf

.Charset="GB2312"

.Position=2

LoadFile=.ReadText

.Close

EndWith

SetobjStream=Nothing

EndFunction

'存储内容到文件

复制代码 代码如下:

SubSaveToFile(ByValstrBody,ByValFile)

DimobjStream

OnErrorResumeNext

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

IfErr.Number=-2147221005Then

Response.Write"<divalign='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"

Err.Clear

Response.End

EndIf

WithobjStream

.Type=2

.Open

.Charset="GB2312"

.Position=objStream.Size

.WriteText=strBody

.SaveToFileServer.MapPath(File),2

.Close

EndWith

SetobjStream=Nothing

EndSub

调用示例

复制代码 代码如下:

<%

WriteFile "aaa.txt", "www.jb51.net", "utf-8"

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

%>