程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> asp代碼實現access數據導出到excel文件

asp代碼實現access數據導出到excel文件

日期:2017/1/9 13:40:09      編輯:關於ASP編程

       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 
    %>
    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved