用ASP读取/写入文件 自定义编码格式

<% 
'------------------------------------------------- 
'函数名称: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")

你可能感兴趣的:(编码格式)