ado.stream
Function LoadFile(ByVal File)
Dim objStream
On Error Resume Next
Set objStream = Server.CreateObject( "ADODB.Stream ")
With objStream
.Type = 2
.Mode = 3
.Open
.LoadFromFile Server.MapPath(File)
.Charset = "GB2312 "
.Position =.size
.writetext "xulei ",adwriteline
.Position =2
response.write( .ReadText)
response.write( .size)
.SaveToFile Server.MapPath(File),2
.Close
End With
Set objStream = Nothing
End Function
保存的全是乱码请问如何处理
[解决办法]
.charset=
[解决办法]
With objStream
.Type = 2
.Open
.Charset = "GB2312 "
.Position = objStream.Size
.WriteText = “啊啊啊”
.SaveToFile Server.MapPath(File),2
.Close
End With
Set objStream = Nothing
