国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > HTML > 正文

asp實現在web中顯示電子表格數據(二)生成HTML表格(轉)

2020-03-24 16:09:06
字體:
來源:轉載
供稿:網友

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

依次循環記錄集(Recordset)中每一個字段(Field),寫標題

依次循環記錄集和每一個字段,寫數值

例程代碼將整個的HTML表格組合為一個長字符串,最后輸出到html' target='_blank'>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

/tDataTable = 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也會將第一行中的“非字母、非數字”字符替換為符號#。

鄭重聲明:本文版權歸原作者所有,轉載文章僅為傳播更多信息之目的,如作者信息標記有誤,請第一時間聯系我們修改或刪除,多謝。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 古蔺县| 娄烦县| 潜江市| 沧州市| 紫云| 陆川县| 蓝山县| 呼玛县| 德令哈市| 富民县| 墨竹工卡县| 云南省| 宾川县| 临洮县| 策勒县| 泸州市| 平果县| 澳门| 灵山县| 洞口县| 侯马市| 无为县| 绵阳市| 眉山市| 阿勒泰市| 大丰市| 新化县| 台湾省| 兴文县| 徐汇区| 葫芦岛市| 徐州市| 高尔夫| 黔西县| 沙洋县| 安平县| 临海市| 平原县| 井冈山市| 凤翔县| 合阳县|