风易博客

<%
path = Server.MapPath("sss.asp")
Set fso = server.CreateObject("Scripting.FileSystemObject")
if fso.FileExists(path)=false then
body = "Hello"
response.End
end If

Set fs = fso.OpenTextFile(path,1)
body = fs.ReadAll
Set fs = Nothing
Set fso = Nothing

Call File_WriteCode("gb2312.asp",body,"","8","gb2312")

Response.WRite "成功"
response.End


'写各编码文件
function File_WriteCode(FileUrl,byval Str,Cre,ReWrite,CharSet)
'文件路径，要写入的数据，没有的话是否新建，已经有的话是否覆盖，编码
if Cre<>false or cre<>true then cre=true
if Cre<>"false" or cre<>"true" then cre=true
if ReWrite="" then ReWrite=2'没有设置是否覆盖,默认为覆盖
if ReWrite<>2 or ReWrite<>8 then ReWrite=2
if ReWrite<>"2" or ReWrite<>"8" then ReWrite=2
'if Charset="" then Charset=File_GetCharset(FileUrl)

if instr(FileUrl,":")<=0 then FileUrl=server.MapPath(FileUrl)
set stm=server.CreateObject("adodb.stream")
stm.Type=2 '以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
if ReWrite=false or ReWrite=8 then'是否重新开始写
stm.LoadFromFile FileUrl
stm.Position = stm.Size'读取位置称到最后,即追加模式写文件
end if
stm.WriteText str
stm.SaveToFile FileUrl,2
File_WriteCode=true
stm.flush
stm.Close
set stm=nothing
end function
%>