今天做一个发布站的小程序,出了发不出来的html编码不对,其它都低,而且更怪的是ie显示都正常,就google浏览器显示不正常,没有挂上css样式的结果,经过找原因,发现问题处在fso的上面,现在找到另外一种方法给遇到同样问题的朋友们解决
fso不能生成utf-8编码页面的,请改成用,下面的函数
Call WriteFileTo(“../index.html”,content,”utf-8″)
<%
‘********************************
‘fc:文件内容
‘f:文件路径
‘cset:文件编码
‘********************************
Function WriteFileTo(f,fc,cset)
Dim objStream
Set objStream = Server.CreateObject(“ADODB.Stream”)
With objStream
.Open
.Charset = cset
.Position = objStream.Size
.WriteText = fc
.SaveToFile Server.Mappath(f), 2
.Close
End With
Set objStream = Nothing
End Function
‘********************************
‘f:文件路径
‘cset:文件编码
‘********************************
Function ReadFileFrom(f,cset)
Dim fc,objStream
Set objStream = Server.CreateObject(“ADODB.Stream”)
With objStream
.Type = 2
.Mode = 3
.Charset = cset
.Open
.LoadFromFile Server.MapPath(f)
fc = .ReadText
End With
Set objStream = Nothing
ReadFileFrom = fc
End Function
%>
评论
评论已关闭!