国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

asp將數(shù)據(jù)導(dǎo)入excel后，中文出現(xiàn)亂碼？？怎么解決

2019-11-17 04:30:04
字體：大 中 小
供稿：網(wǎng)友
問：asp將數(shù)據(jù)導(dǎo)入Excel后，中文出現(xiàn)亂碼？？怎么解決
<!--#include   file="function/connect.asp"     -->  
  <!--#include   file="function/function.asp"     -->  
  <%  
  Response.Charset   =   "UTF-8"  
  '前面包含的文件是和來鏈接到數(shù)據(jù)庫,你要修改這個文件以鏈接到不同的庫  
   
  sql1="select   *   from   apply   "     '這里是要輸出EXCEL的查詢語句，如   "SESECT   *   FORM   CAI   WHERE   性別='女'"  
  filename="excel4.xls"       '   要輸出的EXCEL文件的文件名,   你只要改以上兩句就行了,其它的都不要改.  
   
  call   toexcel(FILENAME,sql1)  
  set   conn=nothing  
   
  function   ReadText(FileName)     '這是一個用于讀出文件的函數(shù)  
      '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)     '這是一個用于寫文件的函數(shù)  
  set   fs=   createobject("scr          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)     '這是一個根據(jù)SQL語句和FILENAME生成EXCEL文件  
      Set   rs=Server.CreateObject("ADODB.RecordSet")    
        'Response.Write     sql  
      'response.end  
      rs.Open   sql,objconn,1,1  
      TOEXCELLR="<table   width='100%'><tr   >"  
      set   myfield=rs.fields  
      dim   fieldname(50)  
      for   i=0   to   myfield.count-1  
            toexcellr=toexcellr&"<td   class=xl24>"&MYFIELD(I).NAME&"</td>"  
            fieldname(i)=myfield(i).name  
            if   myfield(i).type=135   then   datename=datename&myfield(i).name&","  
      next  
      toexcellr=toexcellr&"</tr>"  
      do   while   not   rs.eof  
          toexcellr=toexcellr&"<tr>"  
          for   i=0   to   myfield.count-1    
              if   instr(datename,fieldname(i)&",")<>0   then  
                  if   not   isnull(rs(fieldname(i)))   then  
                        TOEXCELLR=TOEXCELLR&"<td   class=xl25   ><p   align='left'>"&formatdatetime(rs(fieldname(i)),2)&"</p></td>"  
                  else  
                        TOEXCELLR=TOEXCELLR&"<td     class=xl25   ><p   align='left'>　</p></td>"  
                  end   if  
              else  
                    TOEXCELLR=TOEXCELLR&"<td   class=xl24   >"&rs(fieldname(i))&"</td>"  
              end   if  
          next  
          toexcellr=toexcellr&"</tr>"  
          rs.movenext  
      loop  
      rs.close  
      toexcellr=toexcellr&"</table>"  
      tou=readtext("tou.txt")  
      di=readtext("di.txt")  
      toexcellr=tou&toexcellr&di  
      call   savetext(filename,toexcellr)  
  end   sub  
  %>  
  <html>  
  <head>  
  <meta   http-equiv="refresh"   content="3;URL=<%=filename%>">    
  <meta   http-equiv="Content-Language"   content="en-us">  
  <meta   http-equiv="Content-Type"   content="text/html;   charset=UTF-8">  
  <title>正在生成EXCEL文件</title>  
  </head>  
  <BODY>  
  正在生成EXCEL文件....  
  </BODY>  
  </HTML>
答：
EXEC   master..xp_cmdshell   'bcp   "SELECT   *   FROM   庫名.dbo.apply   where   性別=女"   queryout   "excel4.xls"   -c   -q   -S"服務(wù)器名"   -U"用戶名"   -P"密碼"'  
   
  我用這種方法導(dǎo)出到excel沒有出現(xiàn)亂碼，你試下吧，sql數(shù)據(jù)庫

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 丰都县| 丁青县| 梅州市| 庄河市| 边坝县| 罗江县| 南岸区| 光泽县| 浮山县| 太仓市| 塔城市| 盘山县| 广安市| 和静县| 无棣县| 昌黎县| 屯留县| 永年县| 温宿县| 新竹市| 凤山县| 海门市| 汉源县| 鹿邑县| 五大连池市| 扎赉特旗| 阿克苏市| 西华县| 壤塘县| 婺源县| 馆陶县| 陇西县| 交口县| 赣榆县| 东港市| 黎城县| 句容市| 札达县| 黑龙江省| 基隆市| 盘山县|