<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      asp代碼完成access數據備份到excel文件_ASP圖文說明教程
                
                  發表時間：2023-08-12             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]asp代碼實現access數據導出到excel文件：一，下面是導出XLS格式<% dim referer referer = Request.ServerVariables("HTT...
       　　asp代碼實現access數據導出到excel文件：
      

      　　一，下面是導出XLS格式
      

      
    
        
      
            <% 
      
            dim referer 
      
            referer = Request.ServerVariables("HTTP_REFERER") 
      
            Dim CName,action 
      
            action=request.Form("action") 
      
            CName="../../Excel/" 
      
            dim daytime 
      
            ’daytime=year(now())&"-"&month(now())&"-"&day(now())&"-"&hour(now())&"-"&Minute(now()) 
      
            daytime=year(now())&"年"&month(now())&"月"&day(now())&"日"&hour(now())&"時" 
      
            Set rs = Server.CreateObject("ADODB.Recordset") 
      
            ’--從數據庫中把你想放到EXCEL中的數據查出來 
      
            sql="select * from gbook order by id desc" 
      
            rs.Open sql,conn 
      
            if rs.EOF and rs.BOF then 
      
               response.write "<script>alert(’操作出錯，下面是產生錯誤的可能原因：nn庫里暫時沒有數據，所以不能導出EXCEL文件!’);location.href = ’"&referer&"’;</script>" 
      
              response.end 
      
            else 
      
            dim filename,fs,myfile,x 
      
            Set fs = server.CreateObject("scripting.filesystemobject") 
      
            ’--假設你想讓生成的EXCEL文件做如下的存放 
      
            filename = Server.MapPath(""&CName&""&daytime&".xls") 
      
            ’--如果原來的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 
      
            Do while Not rs.EOF 
      
            strLine="" 
      
            for each x in rs.Fields 
      
            strLine= strLine & x.value & chr(9) 
      
            next 
      
            ’--將表的數據寫入EXCEL 
      
            myfile.writeline strLine 
      
            rs.MoveNext 
      
            loop 
      
            rs.Close 
      
            set rs = nothing 
      
            conn.close 
      
            set conn = nothing 
      
            set myfile = nothing 
      
            Set fs=Nothing 
      
            Response.Write "<BR><BR><center><b>導出成功,請選擇繼續操作</b></center>" 
      
            Response.Write "<br>" 
      
            response.Write "<table width=90% cellspacing=1 cellpadding=3 align=center>" 
      
            Response.Write "<tr align=center> <td>" 
      
            response.write ("<font color=green>√</font><a href=’"&CName&""&ENames&".xls’>下載</a>") & "&nbsp;&nbsp;<font color= green>√</font><a href=’"&referer&"’>返回</a>" 
      
            Response.Write "</td></tr></table>" 
      
            end if 
      
            %>      		
        
      
    

      

      　　二，下面是導出CSV格式
      

      
    
        
      
            <% 
      
            dim referer 
      
            referer = Request.ServerVariables("HTTP_REFERER") 
      
            Dim CName,action 
      
            action=request.Form("action") 
      
            CName="../../Excel/" 
      
            dim daytime 
      
            ’daytime=year(now())&"-"&month(now())&"-"&day(now())&"-"&hour(now())&"-"&Minute(now()) 
      
            daytime=year(now())&"年"&month(now())&"月"&day(now())&"日"&hour(now())&"時" 
      
            Set rs = Server.CreateObject("ADODB.Recordset") 
      
            ’--從數據庫中把你想放到EXCEL中的數據查出來 
      
            sql="select * from gbook order by id desc" 
      
            rs.Open sql,conn 
      
            if rs.EOF and rs.BOF then 
      
               response.write "<script>alert(’操作出錯，下面是產生錯誤的可能原因：nn庫里暫時沒有數據，所以不能導出EXCEL文件!’);location.href = ’"&referer&"’;</script>" 
      
              response.end 
      
            else 
      
                Dim Fs,Exc 
      
                Dim Excelstring,ExcelHead,Excelstr,Excelstr2 
      
                Dim Scou_FileNamen,Scou_FieldList 
      
                Dim Dest_FileName,Dest_FieldList 
      
                 
      
                Dest_FileName=""&CName&""&daytime&".csv" 
      
                Excelstring = "" 
      
                ExcelHead = "識別號" & "," & "主題類型" & "," & "公司名稱"& "," & "姓名"& "," & "性別"& "," & "職位"& "," & "城市省份" & "," & "城市" & "," & "公司地址"& "," & "郵編"& "," & "郵件"& "," & "電話"& "," & "傳真" & "," & "手機"& "," & "公司網址"& "," & "詳細內容"& "," & "IP地址"& "," & "留言時間" 
      
                Set Rs = Server.CreateObject ("ADODB.Recordset") 
      
                Sql = "Select * From gbook" 
      
                Rs.Open Sql,Conn,1,3 
      
                Do While Not Rs.Eof  
      
                    Excelstr = Rs("ID") & "," & Rs("zhutiname") & "," & Rs("gsname") & "," & Rs("gsname") & "," & Rs("sex") & "," & Rs("zhiwei")& "," & Rs("Province")& "," & Rs("City") & "," & Rs("dizhi") & "," & Rs("youbian") & "," & Rs("email") & "," & Rs("tel")& "," & Rs("fax")& "," & Rs("tel2") & "," & Rs("homeurl") & "," & Rs("body") & "," & Rs("ip") & "," & Rs("addtime") 
      
                    Excelstr2 = Excelstr2 & Chr(13) & Excelstr  
      
                    Rs.Movenext 
      
                Loop 
      
                Excelstring = ExcelHead & Excelstr2 
      
                Rs.Close 
      
                Set Rs=Nothing 
      
                 
      
                 
      
                Set Fs = CreateObject("Scripting.FileSystemObject") 
      
                Set Exc = Fs.OpenTextFile(Server.MapPath(Dest_FileName),2,True) 
      
                Exc.Write(Excelstring) 
      
                If Fs.FileExists(Server.MapPath(Dest_FileName)) Then 
      
                    Response.Write("<a href=’"&Dest_FileName&"’>報表已經生成，點擊查看</a><hr>") 
      
                    Response.Write("<a href=’"&referer&"’>返回</a>") 
      
                    ’Response.write(Excelstring) 
      
                Else  
      
                    Response.Write("生成報表失��！") 
      
                End If 
      
            end if 
      
            %>      		
        
      
    


      Microsoft Access在很多地方得到廣泛使用，例如小型企業，大公司的部門。




              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清