28,409
社区成员




Function wrf(ByVal path, ByVal content, ByVal CharSet)
Dim objStream
Set objStream = myserver.CreateObject("ADODB.Stream")
'objStream.open
'objStream.CharSet = CharSet
'objStream.Position = objStream.Size
'objStream.WriteText = content
'objStream.SaveToFile myserver.MapPath(path), 2
'objStream.Close
'Set objStream = Nothing
With objStream
.Type = 2
.Mode = 3
.CharSet = "utf-8"
.Open
.WriteText content
.SaveToFile myserver.MapPath(path), 2
End With
wrf = True
If Err Then
wrf = False
End If
End Function
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<% Response.CodePage=65001%>
<% Response.Charset="UTF-8" %>
<%
Dim test, filepath, data
set test = server.createobject("test.wr")
data = "中华人民共和国"
dim i
for i = 1 to 10
filepath = "\" & i & ".asp"
Call test.wrf(filepath, data, "utf-8")
next
set test = nothing
%>