用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
%>
<% 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
%>
- 最新文章
- 十天学会ASP之第十天[04-14]
- 十天学会ASP之第九天[04-14]
- 十天学会ASP之第八天[04-14]
- 十天学会ASP之第七天[04-14]
- 十天学会ASP之第六天[04-14]
- 十天学会ASP之第五天[04-14]
- 相关文章
- 十天学会ASP之第十天[04-14]
- 十天学会ASP之第九天[04-14]
- 十天学会ASP之第八天[04-14]
- 十天学会ASP之第七天[04-14]
- 十天学会ASP之第六天[04-14]
- 十天学会ASP之第五天[04-14]
