超酷的通用分頁顯示控制 (三) 顯示類別表

來源:互聯網
上載者:User
分頁|控制|顯示 現在,我們可以更進一步,把類別表顯示出來,讓使用者可以通過選擇不同的類別來查看不同的內容。該怎樣解決呢?

我們可以這樣來考慮:
1、把類別的選擇也看作一種查詢
2、為了節省頁面空間,把類別放在下拉式清單方塊中,同時提供“所有類別”項,讓使用者可以瀏覽全部資訊

因此,我們把類別放在 query.inc 中

另外,我們把 theScript 和 myconnstr 、thePageSize 都放入 function.inc 中,這樣頁面結構看起來更加合理。

注意 getScriptName() 函數,它從檔案名稱取得 ASP 的名字,檔案名稱後面的 add、delete、edit、view 作為系統的關鍵字,被過濾,例如:

    theActionScript = getScriptName("sample_edit.asp")
    theActionScript 值為 "sample"


這樣我們可以對某個表的增刪改操作用不同的檔案來實現,例如:

    list_add.asp        添加記錄
    list_delete.asp        刪除
    list_edite.asp        修改
    list_view.asp        查看

在以後的篇章中,我們就會用到 theActionScript,您會發現有了它,很多功能都可以總結、合并。


請看 sample3.asp




<一> 需要分頁的 ASP 檔案

sample3.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



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

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 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。