fso.CreateTextFile在英文系统下生成有中文字符的网页

Question

源代码如下(ASP代码):set rs=server.createobject("adodb.recordset")
rs.open ("select info_show from mb"),conn,1,1
pencat=rs("info_show")
rs.close
rs.open ("select * from examinfo where id="&request("id")&""),conn,1,1
if not rs.eof then
    id=rs("id")
GEXAM_Error="<a href='error.asp?ID="&id&"')>发现错误</a>"
end if
rs.close   pencat=replace(pencat,"S_TXTS_PIC",GEXAM_Error)Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../examinfo/"&id&".htm"))
fout.Write pencat问题如下:当rs("info_show")存在汉字时,执行到这个fout.Write pencat语句就会出错,报错如下:Microsoft VBScript runtime error '800a0005' Invalid procedure call or argument 但当rs("info_show")都是英文时,就能正常生成文件.初步确定是英文系统下fout.Write（）函数写入双字节时出错，请问有什么办法吗？

Answer 1

'TextStream对象使用UNICODE看看
Set fout = fso.CreateTextFile(server.mappath("../examinfo/"&id&".htm"),,True)