亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

asp將數據導入excel后，中文出現亂碼？？怎么解決

2019-11-17 04:30:04
字體：大 中 小
來源：轉載
供稿：網友
問：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("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)     '這是一個根據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"服務器名"   -U"用戶名"   -P"密碼"'  
   
  我用這種方法導出到excel沒有出現亂碼，你試下吧，sql數據庫

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
在线视频欧美性高潮| 久久综合亚洲社区| 亚洲第一视频网| 在线不卡国产精品| 一区二区日韩精品| 国产a∨精品一区二区三区不卡| 疯狂蹂躏欧美一区二区精品| 亲子乱一区二区三区电影| 日韩av网站大全| 亚洲人成啪啪网站| 亚洲欧洲黄色网| 国产精品日韩欧美综合| 国产成人精品久久二区二区91| 色综合91久久精品中文字幕| 日韩电影中文字幕av| 在线观看成人黄色| 国产主播喷水一区二区| 亚洲无av在线中文字幕| 国精产品一区一区三区有限在线| 成人黄色免费在线观看| 久久亚洲影音av资源网| 精品视频—区二区三区免费| 伊人精品在线观看| 激情av一区二区| 国产精品wwww| 亚洲第一中文字幕在线观看| 午夜精品久久久99热福利| 亚洲欧美国内爽妇网| 日韩动漫免费观看电视剧高清| 日韩欧美a级成人黄色| 亚洲精品久久久一区二区三区| 日韩av在线精品| 欧美日韩国产影院| 日韩女优人人人人射在线视频| 最近2019年日本中文免费字幕| 91精品国产色综合| 日韩va亚洲va欧洲va国产| yw.139尤物在线精品视频| 中文字幕日韩专区| 51ⅴ精品国产91久久久久久| 亚洲精品久久久久中文字幕欢迎你| 欧美自拍视频在线| 日韩成人中文字幕在线观看| 日韩激情第一页| 国自在线精品视频| 欧美激情国产精品| 日韩在线精品一区| 亚洲欧美一区二区三区久久| 午夜精品一区二区三区在线播放| 91国产视频在线播放| 国产午夜精品美女视频明星a级| 97涩涩爰在线观看亚洲| 91成人在线视频| www国产精品com| 欧美午夜视频在线观看| 亚洲久久久久久久久久久| 欧美在线一区二区视频| 欧美成人免费小视频| 亚洲精品成人久久久| 欧美疯狂做受xxxx高潮| 国产精品第三页| 国产mv久久久| 亚洲一区二区久久久久久久| 欧美日韩另类视频| 一区二区三区无码高清视频| 色yeye香蕉凹凸一区二区av| 久久人人97超碰精品888| 岛国视频午夜一区免费在线观看| 精品久久久免费| 久久视频在线免费观看| 成人精品久久一区二区三区| 国产精品91久久久久久| 欧美在线不卡区| 91tv亚洲精品香蕉国产一区7ujn| 欧美成人免费全部观看天天性色| 国内精品在线一区| 国产日本欧美一区| 亚洲国产另类 国产精品国产免费| 日韩中文字幕视频在线| 国产成人精品最新| 亚洲第一页中文字幕| 日韩久久精品电影| 亚洲精品永久免费| 亚洲一区二区三区在线免费观看| 福利一区福利二区微拍刺激| 日韩国产在线播放| 亚洲性生活视频| 97在线观看免费高清| 国产精品三级久久久久久电影| 久久精品国产视频| 色妞一区二区三区| 日韩暖暖在线视频| 欧美性xxxxxx| 国产精品一香蕉国产线看观看| 尤物精品国产第一福利三区| 欧美日产国产成人免费图片| 亚洲新声在线观看| 久久久国产精品视频| 欧美国产精品va在线观看| 欧美精品激情在线| 欧美激情亚洲综合一区| 日本精品一区二区三区在线播放视频| 国产手机视频精品| 欧美韩日一区二区| 亚洲精品综合精品自拍| 国产又爽又黄的激情精品视频| 成人黄色午夜影院| 欧美疯狂性受xxxxx另类| 精品国产乱码久久久久久天美| 日韩a**中文字幕| 日韩免费在线视频| 日韩中文字幕国产精品| 欧美福利小视频| 欧美精品中文字幕一区| 久久国产视频网站| 欧美在线视频网| 欧美精品久久一区二区| 国产精品户外野外| 日韩在线观看免费网站| 欧美丰满少妇xxxxx做受| 青青久久aⅴ北条麻妃| 色先锋资源久久综合5566| 欧美日韩激情网| 亚洲国产高潮在线观看| 97精品视频在线| 日韩风俗一区 二区| 欧美视频一二三| 久久精品国产99国产精品澳门| 国产精品视频网| 国产又爽又黄的激情精品视频| 成人免费午夜电影| 高清欧美电影在线| 国产精品尤物福利片在线观看| 亚洲一区二区三区在线视频| 国产成人自拍视频在线观看| 2020国产精品视频| 欧美午夜精品久久久久久人妖| 国产一区二区免费| 91在线高清视频| 国产精品大陆在线观看| 久久久精品日本| 在线电影中文日韩| 在线播放国产一区二区三区| 综合欧美国产视频二区| 欧美最猛性xxxx| 在线播放国产精品| 热草久综合在线| 日韩精品免费在线视频| 91国产美女在线观看| 亚洲欧美日韩一区二区三区在线| 色婷婷综合成人av| 九九热这里只有在线精品视| 国产不卡精品视男人的天堂| …久久精品99久久香蕉国产| 精品亚洲一区二区三区在线播放| 久久精品中文字幕电影| 国产精品视频区| 国产精品亚洲一区二区三区| 亚洲欧美国产va在线影院| 欧美性极品xxxx娇小| 7m第一福利500精品视频| 亚洲天堂av网| 日韩欧美国产一区二区| 免费99精品国产自在在线|