asp将数据导入excel后，中文出现乱码？？怎么解决

问：asp将数据导入excel后，中文出现乱码？？怎么解决
<!--#include   file="function/connect.asp"     -->  
  <!--#include   file="function/function.asp"     -->  
  <%  
  Response.Charset   =   "UTF-8"  
  '前面包含的文件是和来链接到数据库,你要修改这个文件以链接到不同的库  
   
  sql1="select   *   from   apply   "     '这里是要输出EXCEL的查询语句，如   "SESECT   *   FORM   CAI   WHERE   性别='女'"  
  filename="excel4.xls"       '   要输出的EXCEL文件的文件名,   你只要改以上两句就行了,其它的都不要改.  
   
  call   toexcel(FILENAME,sql1)  
  set   conn=nothing  
   
  function   ReadText(FileName)     '这是一个用于读出文件的函数  
      'response.write   server.MapPath(FileName)  
      'response.end  
  set   adf=server.CreateObject("Adodb.Stream")  
  with   adf  
  .Type=2  
  .LineSeparator=10  
  .Open  
  .LoadFromFile   (server.MapPath(FileName))  
  .Charset="GB2312"  
  .Position=2  
  ReadText=.ReadText  
  .Cancel()  
  .Close()  
  end   with  
  set   ads=nothing  
  end   function  
   
  sub   SaveText(FileName,Data)     '这是一个用于写文件的函数  
  set   fs=   createobject("scripting.filesystemobject")    
          set   ts=fs.createtextfile(server.MapPath(FileName),true)  
          ts.writeline(data)  
          ts.close  
          set   ts=nothing  
          set   fs=nothing  
  end   sub  
   
  sub   toexcel(filename,sql)     '这是一个根据SQL语句和FILENAME生成EXCEL文件  
      Set   rs=Server.CreateObject("ADODB.RecordSet")    
        'Response.Write     sql  
   &nbs

上一页 下一页