最近把这个网站改为utf-8编码，因为FSO组件不支持utf-8，所以改为使用ADODB.Stream组件保存缓存文件
现在问题出现了，只要批量生成缓存文件的，就频繁丢失session
虽然该网站所在服务器配置不高，是vps，但网站访问量更低，每天才100IP左右，不存在在线用户太多的可能
我尝试着修改程序池的各种设置方式，均没解决问题
到最后我把注意力集中在ADODB.Stream组件上，我发现只要不运行
objStream.SaveToFile myserver.MapPath(path), 2
这一句，就不会出现session丢失的现象，而只要频繁运行它，很快session就丢了
session丢失是个老话题，这几天我查了大量资料，往往最后只有一句：无法解决，或者使用cookies
但问题是我遇到的这个问题明显不是session的原因，原因出在ADODB.Stream组件上
请大家帮帮我，说不定这次能解决这个老大难问题
我使用的是dll
-------------------------dll内容如下------------------------------
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
-------------------------网页内容如下，test.wr是组件名称------------------------------
<%@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
%>
使用for循环是模拟批量生成缓存文件
