您所在的位置:小祥子 » 编程 » ASP » 正文

ASP读取与写入文件函数

时间:2015-01-30 编辑:佚名 来源:互联网

ASP写入文件、读取文件的例子,操作对象可以是TXT/HTML等文本格式的文件,以adodb.stream的方式操作文件,被读取的文件对象是UTF8。为了方便,我们写成函数,后附函数使用说明:

<%
'读取UTF-8格式的文本文件
function ReadFromTextFile (FileUrl,CharSet)
dim str
set stm=server.CreateObject("adodb.stream")
stm.Type=2 '以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.loadfromfile server.MapPath(FileUrl)
str=stm.readtext
stm.Close
set stm=nothing
ReadFromTextFile=str
end function

'作用:写入UTF-8格式的文本文件
Sub WriteToTextFile (FileUrl,byval Str,CharSet)
set stm=server.CreateObject("adodb.stream")
stm.Type=2 '以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.WriteText str
stm.SaveToFile server.MapPath(FileUrl),2
stm.flush
stm.Close
set stm=nothing
end Sub
%>
以上两个函数的用法,先来看写入UTF8编码的HTML文件:我们直接调用函数:

WriteToTextFile server.MapPath("utf8file.html"),request.Form("utf8file"),"UTF-8")读取UTF8编码的文件,这个更简单些:可以将其的操作结果保存到变量里,比如:

myutf8file=ReadTxtFile(server.MapPath("utf8file.html"),"UTF-8")

关键词:ASP 读取 写入 函数