asp實現在web中顯示電子表格數據（二）生成HTML表格

2019-11-18 22:32:58

字體：大中小

來源：轉載

供稿：網友

過程的最后一步是格式化數據并顯示，就是建立一個HTML輸出，步驟如下：

依次循環記錄集（Recordset）中每一個字段（Field），寫標題
依次循環記錄集和每一個字段，寫數值
　　例程代碼將整個的HTML表格組合為一個長字符串，最后輸出到HTML頁面。字符串初始化為如下值：

DataTable = "< table >< tr >"

　　電子數據表的列的必要信息由記錄集對象的Field集合產生，它包括了一系列字段對象，可以使用它們的Name屬性建立標題行。

For Each oField in oRs.Fields
    DataTable = DataTable & "< th >" & oField.Name & "< /th >"
Next
DataTable = DataTable & "< /tr >"

　　最新打開的記錄集（recordset）自動將初始位置指向第一行，使用MoveNext方法移動記錄指針，順序存取每一行，直到整個記錄集的末尾。當到記錄集末尾時，屬性Eof的值變成True，循環結束。在循環中，通過字段集合的列舉以及對應的Value屬性，從而達到單元格數據的存取。

Do While Not oRs.EOF
    DataTable = DataTable & "< tr >"

    For Each oField in oRs.Fields
        DataTable = DataTable & "< td >" & oField.Value & "< /td >"
    Next

    DataTable = DataTable & "< /tr >"
    oRs.MoveNext
Loop

　　最后，加上HTML的表格結束標記，輸出整個字符串到頁面，形成了動態產生的表格。由于記錄集對象不再需要，所以要釋放它。

DataTable = DataTable & "< /table >"
Set oRs = Nothing

Response.Write DataTable

　　在總結前，有必要說明一個小的定義在電子數據表是如何解釋的。

　　通常，在ADO中將一定范圍內的第一行解釋為一套列標題，盡管在ODBC中有明文定義的選項可以禁止這種解釋，但我也不愿意在ADO中這么做。如果第一行包含數字信息，那么ADO中將返回通用的字段名，比如：F1,F2，等等...，這樣就不能看到數字的值。而且，ADO也會將第一行中的“非字母、非數字”字符替換為符號＃。

上一篇：asp實現在web中顯示電子表格數據（三）創建數據表列表和名字范圍

下一篇：asp實現在web中顯示電子表格數據（一）顯示數據表格的應用