ASP生成静态UTF-8文件
二月 6, 2007, Posted by cike at 10:28 上午
<%@ 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认识,浏览到时正常
