敬业的IT人 >> 网站建设 >> Web编程 >> Asp >> 用ASP生成静态UTF-8文件(代码)

用ASP生成静态UTF-8文件(代码)

敬业的IT人 互联网 佚名 2008-4-14 19:31:36
<%@ 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

%>
粤ICP备06119539号
Copyright CiscoSky.Org,Some Rights Reserved.
Email:me1228#tom.com