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

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      怎么用asp把sqlserver數據轉換為execl文件
                
                  發表時間：2023-08-11             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]1、ASP文件：<%@ LANGUAGE="VBSCRIPT" %><%option explicit%><%'EXAMPLE AS：把數據...
      1、ASP文件：

      <%@ LANGUAGE="VBSCRIPT" %>
      <%option explicit%>
      <%
      'EXAMPLE AS：把數據庫中一個每天24小時在線人數放到一個EXCEL文件中去
      'AUTHOR    ：鋼鐵工人
      'EMAIL     ：hello_hhb@21cn.com
      'DATE      ：2001-3-25
      'TEST      ：在NT4，SP6，SQL SERVER 7.0，EXCEL2000中測試通過
      %>
      <HTML>
      <HEAD>
      <meta content="text/html; charset=gb2312" http-equiv="Content-Type">
      <TITLE>生成EXCEL文件</TITLE>
      </HEAD>
      <body>
      <a href="dbtoexcel.asp?act=make">生成在線人口的EXCEL</a>
      <hr size=1 align=left width=300px>
      <%
      if Request("act") = "" then
      else

        dim conn
        set conn=server.CreateObject("adodb.connection")
        conn.Open "test","sa",""
        'conn.Open Application("connstr")

        dim rs,sql,filename,fs,myfile,x,link
        
        Set fs = server.CreateObject("scripting.filesystemobject")
        '--假設你想讓生成的EXCEL文件做如下的存放
        filename = "c:\online.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 population,hourpos,datepos from populationperhour order by datepos,hourpos asc"
        rs.Open sql,conn
        if rs.EOF and rs.BOF then
        
        else
        
          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
            
        end if

      rs.Close
      set rs = nothing
      conn.close
      set conn = nothing
      set myfile = nothing
      Set fs=Nothing

      link="<A HREF=" & filename & ">Open The Excel File</a>"
      Response.write link
      end if
      %>
      </BODY>
      </HTML>


      2、數據庫相關：

      CREATE TABLE [populationperhour] (
          [population] [int] NOT NULL ,
          [hourpos] [int] NOT NULL ,
          [datepos] [datetime] NOT NULL 
      );
      insert into populationperhour values('936','1','2001-1-11');
      insert into populationperhour values('636','2','2001-1-11');
      insert into populationperhour values('106','3','2001-1-11');
      insert into populationperhour values('177','4','2001-1-11');
      insert into populationperhour values('140','5','2001-1-11');
      insert into populationperhour values('114','6','2001-1-11');
      insert into populationperhour values('94','7','2001-1-11');
      insert into populationperhour values('49','8','2001-1-11');
      insert into populationperhour values('88','9','2001-1-11');
      insert into populationperhour values('215','10','2001-1-11');
      insert into populationperhour values('370','11','2001-1-11');
      insert into populationperhour values('550','12','2001-1-11');
      insert into populationperhour values('629','13','2001-1-11');
      insert into populationperhour values('756','14','2001-1-11');
      insert into populationperhour values('833','15','2001-1-11');
      insert into populationperhour values('923','16','2001-1-11');
      insert into populationperhour values('980','17','2001-1-11');
      insert into populationperhour values('957','18','2001-1-11');
      insert into populationperhour values('812','19','2001-1-11');
      insert into populationperhour values('952','20','2001-1-11');
      insert into populationperhour values('1379','21','2001-1-11');
      insert into populationperhour values('1516','22','2001-1-11');
      insert into populationperhour values('1476','23','2001-1-11');
      insert into populationperhour values('1291','24','2001-1-11');
      insert into populationperhour values('1028','1','2001-1-12');
      insert into populationperhour values('687','2','2001-1-12');
      insert into populationperhour values('462','3','2001-1-12');
      insert into populationperhour values('317','4','2001-1-12');
      insert into populationperhour values('221','5','2001-1-12');
      insert into populationperhour values('158','6','2001-1-12');
      insert into populationperhour values('127','7','2001-1-12');
      insert into populationperhour values('81','8','2001-1-12');
      insert into populationperhour values('96','9','2001-1-12');
      insert into populationperhour values('192','10','2001-1-12');
      insert into populationperhour values('380','11','2001-1-12');
      insert into populationperhour values('629','12','2001-1-12');
      insert into populationperhour values('745','13','2001-1-12');
      insert into populationperhour values('964','14','2001-1-12');
      insert into populationperhour values('1012','15','2001-1-12');
      insert into populationperhour values('1050','16','2001-1-12');
      insert into populationperhour values('1135','17','2001-1-12');
      insert into populationperhour values('1130','18','2001-1-12');
      insert into populationperhour values('894','19','2001-1-12');
      insert into populationperhour values('1026','20','2001-1-12');
      insert into populationperhour values('1430','21','2001-1-12');
      insert into populationperhour values('1777','22','2001-1-12');
      insert into populationperhour values('1759','23','2001-1-12');
      insert into populationperhour values('1697','24','2001-1-12'); 




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