超酷的通用分页显示控制 (四) 统一记录显示

80酷酷网    80kuku.com

  分页|控制|显示追求是永无止境的。

我们现在有时间来考虑一个更深层次的问题,就是记录的显示。
记录的显示是一个古老的话题,通常的做法是:
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

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: