用ASP读取/写入文件 自定义编码格式
2010-03-24 22:19
323 查看
<%
'-------------------------------------------------
'函数名称:ReadTextFile
'作用:利用AdoDb.Stream对象来读取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
'-------------------------------------------------
'函数名称:WriteToTextFile
'作用:利用AdoDb.Stream对象来写入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
%>
WriteToTextFile server.MapPath("zspk/jxsz.html"),request.Form("jxsz"),"UTF-8")
hdxz=ReadTxtFile(server.MapPath("zspk/hdxz.html"),"UTF-8")
jxsz=ReadTxtFile(server.MapPath("zspk/jxsz.html"),"UTF-8")
'-------------------------------------------------
'函数名称:ReadTextFile
'作用:利用AdoDb.Stream对象来读取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
'-------------------------------------------------
'函数名称:WriteToTextFile
'作用:利用AdoDb.Stream对象来写入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
%>
WriteToTextFile server.MapPath("zspk/jxsz.html"),request.Form("jxsz"),"UTF-8")
hdxz=ReadTxtFile(server.MapPath("zspk/hdxz.html"),"UTF-8")
jxsz=ReadTxtFile(server.MapPath("zspk/jxsz.html"),"UTF-8")
相关文章推荐
- 用ASP读取/写入UTF-8编码格式的文件
- 用ASP读取/写入UTF-8编码格式的文件
- c#读取并异步写入文件,简单版,指定编码,保持原格式。
- 关于ASP中按指定编码写入读取文件
- Delphi读取和写入utf-8编码格式的文件
- 读取和写入不同编码格式的文件
- ASP生成静态文件编码为UTF-8格式的HTML文件
- iphone阅读器,如果要读取一个文本文件,请问你是如何处理编码问题的?另外像pdf格式的文件,你如何读取。?
- java按指定编码写入和读取文件内容的类
- c++某种文件格式的读取与写入范例[stl]
- python读取文件写入数据库中编码问题
- FileReader读取文件,由于不确定源文件的编码格式不同,导致读出的文件乱码的问题
- (有码)读取和写入自定义对象 plist文件解析
- java按指定编码写入和读取文件内容的类
- ASP.NET中文件流的使用——下载Excle文件、文件的读取和写入
- java按指定编码写入和读取文件内容的类
- 解决python with 在写入文件是因编码格式不同而造成乱码问题
- java实现以某种格式按行读取写入文件
- ASP读取文件 ASP写入/保存文件
- python指定写入文件时的编码格式