asp下用ADODB.Stream代替FSO读取文本文件
2018-09-06 11:29
文件内容读取.
复制代码 代码如下:
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,
Response.Write ReadFile(aaa.txt, utf-8)
%>
上一篇：无组件上传图片之文件采用方案
文章标题：asp下用ADODB.Stream代替FSO读取文本文件
文章链接：http://soscw.com/index.php/essay/9423.html