超酷的通用分頁顯示控制 (四) 統一記錄顯示

來源:互聯網
上載者:User
分頁|控制|顯示 追求是永無止境的。

我們現在有時間來考慮一個更深層次的問題,就是記錄的顯示。
記錄的顯示是一個古老的話題,通常的做法是:
1、在需要顯示記錄的 ASP 檔案中,用 Dreamweaver 或者 Frontpage 畫出表格,以及欄位標題
2、在 ASP 檔案中用迴圈顯示記錄
3、由於網站風格調整,因此在 ASP 檔案中需要作相應修改


假定我們有20個需要分頁的 ASP 頁面(對於一個較大的網站來說,這不算什麼),都要這樣做,實在麻煩,特別是遇到網站改版--而這種改版僅僅只是網站風格改變,內容並沒有改變,這種情況大約 3-6 個月會有一次。

顯然應該有更好的方法。


現在我們來作這樣的考慮:
對於一個網站來說,它的風格是一定的,記錄顯示的頁面也是一定的。我們可以先設定好頁面的風格(用 Dreamweaver 或者 Frontpage 畫出表格),然後放入函數中,用語句來產生表格。至於列表題,以及要顯示的欄位、欄位的長度、對齊、是否顯示連結等,全部用參數傳入該函數,用該函數來產生資料表格。


請看 sample4.asp




<一> 需要分頁的 ASP 檔案

sample4.asp


<!--#include file="../inc/functions.inc"-->
<%
    '//////////////////////////////////////////////////////////
    '
    ' 定義表名
    '
    '//////////////////////////////////////////////////////////

    theTableName= "addressbook"

    '//////////////////////////////////////////////////////////
    '
    ' 查詢條件
    '
    '//////////////////////////////////////////////////////////

    theQueryField    = "fld" & theTableName & "_nickname"' 查詢欄位,完整名字
    theQueryTitle    = "暱稱"                            ' 欄位顯示標題
    theQueryTable    = "vw" & theTableName                ' 欄位所在的表,完整名字

    theQueryClass    = theTableName & "_class"            ' 類別表名,去掉 tbl、vw 首碼
    theClassId        = c2int(request("classid"))            ' 當前類別號

    ' 如果是查詢模式,則構造模糊查詢語句
    if request("mode") = "query" then
        %><!--#include file="../inc/control/query_result.inc"--><%
    else
    ' 否則忽略
        theQueryCon = "1>0"
    end if

    '//////////////////////////////////////////////////////////
    '
    ' 限制條件
    '
    '//////////////////////////////////////////////////////////

    theLimitCon    = "fld" & theTableName & "_userid=" & Session("userid")

    if theClassId > 0 then
        theLimitCon = theLimitCon & " and fld" & theQueryClass & "id=" & theClassId
    end if

    '//////////////////////////////////////////////////////////
    '
    ' 構造 SQL 陳述式
    '
    '//////////////////////////////////////////////////////////

    uSQL = "select * from " & theQueryTable & " where ( " & theQueryCon & " ) and ( " & theLimitCon & " ) "

%>
<!--#include file="../inc/control/navigator_init.inc"-->

<html>
<head>
<title>test</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../default.css" type="text/css">
</head>

                      <!-- 你的 HTML 程式碼//-->

                      <table width="100%" border="0" cellspacing="0" cellpadding="0&quo



相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

11.11 Big Sale for Cloud

Get Unbeatable Offers with up to 90% Off,Oct.24-Nov.13 (UTC+8)

Get It Now >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。