ASP將數據庫中的數據導出到EXCEL表中_ASP教程

      編輯Tag賺U幣
      教程Tag:暫無Tag,歡迎添加,賺取U幣!

      推薦:ASP把電話號碼生成圖片的代碼
      作用:將頁面中的電話號碼生成圖片格式。 % Call Com_CreatValidCode(Request.QueryString(tel)) Public Sub Com_CreatValidCode(pTel) '----------禁止緩存 Response.Expires = 0 Response.AddHeader Pragma,no-cache Response.AddHeader cache-ctro

      ASP實例代碼,直接將數據庫中的數據導出到EXCEL電子表中。

      <!--#include file="../conn.asp"-->
      <%

      dim s,sql,filename,fs,myfile,x

      Set fs = server.CreateObject("scripting.filesystemobject")
      '--假設你想讓生成的EXCEL文件做如下的存放
      filename = Server.MapPath("users.xls")
      '--如果原來的EXCEL文件存在的話刪除它
      if fs.FileExists(filename) then
      fs.DeleteFile(filename)
      end if
      '--創建EXCEL文件
      set myfile = fs.CreateTextFile(filename,true)

      'Set rs = Server.CreateObject("ADODB.Recordset")
      '--從數據庫中把你想放到EXCEL中的數據查出來
      'sql = "select * from Tb_Execl order by id desc"
      'rs.Open sql,conn
      StartTime = Request("StartTime")
      EndTime = Request("EndTime")
      StartEndTime = "AddTime between #"& StartTime &" 00:00:00# and #"& EndTime &" 23:59:59#"

      strSql = "select * from myeky_myusr "
      Set rstData =conn.execute(strSql)
      if not rstData.EOF and not rstData.BOF then

      dim trLine,responsestr
      strLine=""
      For each x in rstData.fields
      strLine = strLine & x.name & chr(9)
      Next

      '--將表的列名先寫入EXCEL
      myfile.writeline strLine

      Do while Not rstData.EOF
      strLine=""

      for each x in rstData.Fields
      strLine = strLine & x.value & chr(9)
      next
      myfile.writeline strLine

      rstData.MoveNext
      loop

      end if

      Response.Write "生成EXCEL文件成功,點擊<a href=""users.xls"" target=""_blank"">下載</a>!"

      rstData.Close
      set rstData = nothing
      Conn.Close
      Set Conn = nothing
      %>

      分享:Asp中代碼與頁面的分離
      為了避免ASP程序和HTML代碼混寫造成維護困難的情況,本文介紹了一種方法,利用模板來分離程序和頁面,使程序設計更加輕松。 在使用ASP制作一個站點的時候,常常會出現一個ASP文件中,程序代碼和HTML代碼混合的情況。這樣子做有許多缺點: 1.且不說編程時就要

      來源:模板無憂//所屬分類:ASP教程/更新時間:2012-06-13
      相關ASP教程