我用fs.CreateTextFile方法把数据库里面的内容打印出来了但是我怎么才能让字段变成中文显示
比如有个字段好似sex我想打印到excel是性别
里面的内容也是一样数据库是0保密1男2女我也是想到excel显示中文
'导出到excel
Set rs = Server.CreateObject("ADODB.RecordSet")
sqlstr="select "&numck&" from ["&tablename&"] where id in("&cklist&") " '这里是你的查询语句
'response.Write(""&sqlstr&"")
'response.End()
rs.open sqlstr,conn,1,3
%>
        <%Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename="log.xls"
temp=filename
'filename=Request.ServerVariables("APPL_PHYSICAL_PATH")&"\"+filename
filename=server.MapPath("excel/"&filename)

'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)

dim strLine,responsestr
strLine=""
For each x in rs.fields
strLine= strLine & x.name & chr(9)
Next
'--将表的列名先写入EXCEL
myfile.writeline strLine
while not rs.eof
strLine=""
for each x in rs.Fields
strLine= strLine & x.value & chr(9)
next
'--将表的数据写入EXCEL
myfile.writeline strLine
rs.movenext
wend
response.redirect "/admin/excel/log.xls"

for each x in rs.Fields
'在这里判断一下，如果需要就将x.value转换中文就行了
strLine= strLine & x.value & chr(9)
next

                   Select case sex
                          case "1" SClassID="男"
                          case "2" SClassID="女"
                          Case Else SClassID="保密"
                          End Select