if read<> "" then
set stm=server.CreateObject(“adodb.stream”)
stm.Type=2
stm.mode=3
stm.charset="UTF-8" '以UTF-8编码写入
stm.open
stm.WriteText read
stm.SaveToFile server.MapPath("../index.html"),2
stm.flush
stm.Close
set stm=nothing
Response.Write("")
end if