日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
ASP教程之導(dǎo)出Excel數(shù)據(jù)的四種方法

我們有時候需要把數(shù)據(jù)導(dǎo)出來，作為參考等等。下面就為你介紹，ASP導(dǎo)出Excel書籍的四種方法。

一、使用OWC

什么是OWC？

OWC是office Web Compent的縮寫，即Microsoft的office Web組件，它為在Web中繪制圖形提供了靈活的同時也是最基本的機(jī)制。在一個intranet環(huán)境中，如果可以假設(shè)客戶機(jī)上存在特定的瀏覽器和一些功能強(qiáng)大的軟件（如IE5和office 2000），那么就有能力利用office Web組件提供一個交互式圖形開發(fā)環(huán)境。這種模式下，客戶端工作站將在整個任務(wù)中分擔(dān)很大的比重。

以下為引用的內(nèi)容：

 
 
 
    
  
  
  
  1. <%Option Explicit  
    2. 
  
  
  
  2. Class ExcelGen  
    3. 
  
  
  
  3. Private obJSPreadsheet  
    4. 
  
  
  
  4. Private iColOffset 
    5. 
  
  
  
  5. 
  
  
  
  6. Private iRowOffset  
    7. 
  
  
  
  7. Sub Class_Initialize()  
    8. 
  
  
  
  8. Set obJSPreadsheet = Server.CreateObject("OWC.Spreadsheet")  
    9. 
  
  
  
  9. iRowOffset = 2  
    10. 
  
  
  
  10. iColOffset = 2  
    11. 
  
  
  
  11. End Sub 
    12. 
  
  
  
  12. 
  
  
  
  13. Sub Class_Terminate()  
    14. 
  
  
  
  14. Set obJSPreadsheet = Nothing 'Clean up  
    15. 
  
  
  
  15. End Sub 
    16. 
  
  
  
  16. 
  
  
  
  17. Public Property Let ColumnOffset(iColOff)  
    18. 
  
  
  
  18. If iColOff > 0 then  
    19. 
  
  
  
  19. iColOffiColOffset = iColOff  
    20. 
  
  
  
  20. Else  
    21. 
  
  
  
  21. iColOffset = 2  
    22. 
  
  
  
  22. End If  
    23. 
  
  
  
  23. End Property 
    24. 
  
  
  
  24. 
  
  
  
  25. Public Property Let RowOffset(iRowOff)  
    26. 
  
  
  
  26. If iRowOff > 0 then  
    27. 
  
  
  
  27. iRowOffiRowOffset = iRowOff  
    28. 
  
  
  
  28. Else  
    29. 
  
  
  
  29. iRowOffset = 2  
    30. 
  
  
  
  30. End If  
    31. 
  
  
  
  31. End Property Sub GenerateWorksheet(objRS)  
    32. 
  
  
  
  32. 'Populates the Excel worksheet based on a Recordset's contents  
    33. 
  
  
  
  33. 'Start by displaying the titles  
    34. 
  
  
  
  34. If objRS.EOF then Exit Sub  
    35. 
  
  
  
  35. Dim objField, iCol, iRow  
    36. 
  
  
  
  36. iCol = iColOffset  
    37. 
  
  
  
  37. iRow = iRowOffset  
    38. 
  
  
  
  38. For Each objField in objRS.Fields  
    39. 
  
  
  
  39. obJSPreadsheet.Cells(iRow, iCol).Value = objField.Name  
    40. 
  
  
  
  40. obJSPreadsheet.Columns(iCol).AutoFitColumns  
    41. 
  
  
  
  41. '設(shè)置Excel表里的字體  
    42. 
  
  
  
  42. obJSPreadsheet.Cells(iRow, iCol).Font.Bold = True  
    43. 
  
  
  
  43. obJSPreadsheet.Cells(iRow, iCol).Font.Italic = False  
    44. 
  
  
  
  44. obJSPreadsheet.Cells(iRow, iCol).Font.Size = 10  
    45. 
  
  
  
  45. obJSPreadsheet.Cells(iRow, iCol).Halignment = 2 '居中  
    46. 
  
  
  
  46. iColiCol = iCol + 1  
    47. 
  
  
  
  47. Next 'objField  
    48. 
  
  
  
  48. 'Display all of the data  
    49. 
  
  
  
  49. Do While Not objRS.EOF  
    50. 
  
  
  
  50. iRowiRow = iRow + 1  
    51. 
  
  
  
  51. iCol = iColOffset  
    52. 
  
  
  
  52. For Each objField in objRS.Fields  
    53. 
  
  
  
  53. If IsNull(objField.Value) then  
    54. 
  
  
  
  54. obJSPreadsheet.Cells(iRow, iCol).Value = ""  
    55. 
  
  
  
  55. Else  
    56. 
  
  
  
  56. obJSPreadsheet.Cells(iRow, iCol).Value = objField.Value  
    57. 
  
  
  
  57. obJSPreadsheet.Columns(iCol).AutoFitColumns  
    58. 
  
  
  
  58. obJSPreadsheet.Cells(iRow, iCol).Font.Bold = False  
    59. 
  
  
  
  59. obJSPreadsheet.Cells(iRow, iCol).Font.Italic = False  
    60. 
  
  
  
  60. obJSPreadsheet.Cells(iRow, iCol).Font.Size = 10  
    61. 
  
  
  
  61. End If  
    62. 
  
  
  
  62. iColiCol = iCol + 1  
    63. 
  
  
  
  63. Next 'objField  
    64. 
  
  
  
  64. objRS.MoveNext  
    65. 
  
  
  
  65. Loop  
    66. 
  
  
  
  66. End Sub Function SaveWorksheet(strFileName) 
    67. 
  
  
  
  67. 
  
  
  
  68. 'Save the worksheet to a specified filename  
    69. 
  
  
  
  69. On Error Resume Next  
    70. 
  
  
  
  70. Call obJSPreadsheet.ActiveSheet.Export(strFileName, 0)  
    71. 
  
  
  
  71. SaveWorksheet = (Err.Number = 0)  
    72. 
  
  
  
  72. End Function  
    73. 
  
  
  
  73. End Class 
    74. 
  
  
  
  74. 
  
  
  
  75. Dim objRS  
    76. 
  
  
  
  76. Set objRS = Server.CreateObject("ADODB.Recordset")  
    77. 
  
  
  
  77. objRS.Open "SELECT * FROM xxxx", "Provider=SQLOLEDB.1;Persist Security 
    78. 
  
  
  
  78. 
  
  
  
  79. Info=True;User ID=xxxx;Password=xxxx;Initial Catalog=xxxx;Data source=xxxx;"  
    80. 
  
  
  
  80. Dim SaveName  
    81. 
  
  
  
  81. SaveName = Request.Cookies("savename")("name")  
    82. 
  
  
  
  82. Dim objExcel  
    83. 
  
  
  
  83. Dim ExcelPath  
    84. 
  
  
  
  84. ExcelPath = "Excel\" & SaveName & ".xls"  
    85. 
  
  
  
  85. Set objExcel = New ExcelGen  
    86. 
  
  
  
  86. objExcel.RowOffset = 1  
    87. 
  
  
  
  87. objExcel.ColumnOffset = 1  
    88. 
  
  
  
  88. objExcel.GenerateWorksheet(objRS)  
    89. 
  
  
  
  89. If objExcel.SaveWorksheet(Server.MapPath(ExcelPath)) then  
    90. 
  
  
  
  90. 'Response.Write "已保存為Excel文件. 
    91. 
  
  
  
  91. 下載"  
    92. 
  
  
  
  92. Else  
    93. 
  
  
  
  93. Response.Write "在保存過程中有錯誤!"  
    94. 
  
  
  
  94. End If  
    95. 
  
  
  
  95. Set objExcel = Nothing  
    96. 
  
  
  
  96. objRS.Close  
    97. 
  
  
  
  97. Set objRS = Nothing  
    98. 
  
  
  
  98. %> 
    99.

二、用Excel的Application組件在客戶端導(dǎo)出到Excel或word

以下為引用的內(nèi)容：

注意：兩個函數(shù)中的“data“是網(wǎng)頁中要導(dǎo)出的table的 id

 
 
 
    
  
  
  
  1.   
    2. 
  
  
  
    3.

導(dǎo)出到Excel代碼

 
 
 
    
  
  
  
  1.  
    2. 
  
  
  
  2. 
  
  
  
  3. 　　導(dǎo)出到word代碼 
    4. 
  
  
  
  4. 
  
  
  
  5.  
    6.

三、直接在IE中打開，再存為Excel文件

以下為引用的內(nèi)容：

把讀出的數(shù)據(jù)用

格式，在網(wǎng)頁中顯示出來，同時，加上下一句即可把Excel表在客客戶端顯示。

<%response.ContentType ="application/vnd.ms-Excel"%>

注意：顯示的頁面中，只把

輸出，***不要輸出其他表格以外的信息。

四、導(dǎo)出以半角逗號隔開的csv

用fso方法生成文本文件的方法，生成一個擴(kuò)展名為csv文件。此文件，一行即為數(shù)據(jù)表的一行。生成數(shù)據(jù)表字段用半角逗號隔開。（有關(guān)fso生成文本文件的方法，在此就不做介紹了）

CSV文件介紹 （逗號分隔文件）

選擇該項(xiàng)系統(tǒng)將創(chuàng)建一個可供下載的CSV 文件； CSV是最通用的一種文件格式，它可以非常容易地被導(dǎo)入各種PC表格及數(shù)據(jù)庫中。

請注意即使選擇表格作為輸出格式，仍然可以將結(jié)果下載CSV文件。在表格輸出屏幕的底部，顯示有 "CSV 文件"選項(xiàng)，點(diǎn)擊它即可下載該文件。

希望本文介紹的三種方法，能夠幫助到你。


文章標(biāo)題：ASP教程之導(dǎo)出Excel數(shù)據(jù)的四種方法
當(dāng)前地址：http://www.5511xx.com/article/dhcihes.html
  •