ASP生成静态UTF-8文件失败经历

<%@ CODEPAGE=65001 %>
<% Option Explicit %>
<% Response.Charset=”UTF-8″ %>
<% Response.Buffer=True %>
<%
dim strFullName,strContent,strCharset,objStream
strFullName=”d:\asp\blog\admin\3.asp”
strContent=”test”
strCharset=”utf-8″
On Error Resume Next

Set objStream = Server.CreateObject(“ADODB.Stream”)
With objStream
.Type = 2
.Mode = 3
.Open
.Charset = strCharset
.Position = objStream.Size
.WriteText = strContent
.SaveToFile strFullName,2
.Close
End With
Set objStream = Nothing

%>

之前用FSO生成UNI编码,+UTF-8,结果不被GOOGLE认识,浏览到时正常，排名一夜回到解放前