超酷的通用分页显示控制（二）加入查询控制_自动测试脚本语言

超酷的通用分页显示控制（二）加入查询控制

发表于：2007-06-30来源：作者：点击数：标签：

在上一篇中，我们分析了一个简单的通用分页代码控制。但是通常我们在分页的 ASP 页面中要使用到查询功能，那么怎样将查询也“封装”起来呢？同样需要用到 include 方式。我们可以把查询看作两部分， 1、输入，即接收用户输入的查询字符串，我们把它放在 qu

在上一篇中，我们分析了一个简单的通用分页代码控制。
但是通常我们在分页的 ASP 页面中要使用到查询功能，那么怎样将查询也“封装”起来呢？
同样需要用到 include 方式。

我们可以把查询看作两部分，
1、输入，即接收用户输入的查询字符串，我们把它放在 query.inc 中
2、输出，即根据用户输入的内容构造查询条件，我们把它放在 query_result.inc 中

这样一来，我们的思路就很清晰了，
1、将 query_result.inc 放在 SQL 语句之前，构造查询条件，然后将查询条件嵌入 SQL 语句中
2、将 query.inc 放在 ASP 页面适当的地方（通常和 navigator.inc 在同一行）。

在接下来的文章中，要稍微复杂一点，因此我们先来看看一个示范的数据库：mytest

表1            tbluserinfo                    ‘’ 用户信息表

    字段        flduserinfo_id                    ‘’ 用户 ID
                flduserinfo_username
                flduserinfo_nickname
                flduserinfo_password

表2            tbladdressbook                ‘’ 通讯录表

    字段        fldaddressbook_id
                fldaddressbook_classid            ‘’ 类别 ID
                fldaddressbook_userid            ‘’ 用户 ID
                fldaddressbook_nickname

表3            tbladdressbook_class        ‘’ 通讯录类别表

    字段        fldaddressbook_class_id            ‘’ 类别 ID
                fldaddressbook_class_title        ‘’ 例如：朋友、客户、亲人、网友
                fldaddressbook_class_explain    ‘’ 类别说明

视图        vwaddressbook

    SELECT tbladdressbook_class.fldaddressbook_class_title,
          tbladdressbook_class.fldaddressbook_class_explain,
          tbladdressbook.fldaddressbook_id, tbladdressbook.fldaddressbook_userid,
          tbladdressbook.fldaddressbook_classid, tbladdressbook.fldaddressbook_nickname,
    FROM tbladdressbook INNER JOIN
          tbladdressbook_class ON
          tbladdressbook.fldaddressbook_classid = tbladdressbook_class.fldaddressbook_class_id

［注意：我在每个字段中加上了表的名字，这是为了生成视图方便，以及其他隐含的麻烦。经过我的长期尝试，发现这种方法的确很好。因此向大家推荐这种命名方式。］

当我们在 tbladdressbook 中查询时，要用 flduserid 来区分每个用户的通讯录内容，因此要加上 " flduserid=" & Session("userid") 的限制。现在我们把这个限制加到我们的 SQL 语句中。

请看 sample2.asp

<一> 需要分页的 ASP 文件

sample2.asp

<%
    ‘’ 取得当前 ASP 页面的完整路径，重要技巧
    theScript    = Request.ServerVariables("SCRIPT_NAME")
    myconnstr    = "driver={SQL Server};server=yourserver;uid=sa;pwd=;database=mytest"
    thePageSize    = 20    ‘’ 每页显示的记录数

    ‘’//////////////////////////////////////////////////////////
    ‘’
    ‘’ 定义表名
    ‘’
    ‘’//////////////////////////////////////////////////////////

    theTableName= "addressbook"

    ‘’//////////////////////////////////////////////////////////
    ‘’
    ‘’ 查询条件
    ‘’
    ‘’//////////////////////////////////////////////////////////

    theQueryField    = "fld" & theTableName & "_nickname"‘’ 查询字段，完整名字
    theQueryTitle    = "昵称"                            ‘’ 字段显示标题
    theQueryTable    = "vw" & theTableName                ‘’ 字段所在的表，完整名字

    ‘’ 如果是查询模式，则构造模糊查询语句
    if request("mode") = "query" then
        %><%
    else
    ‘’ 否则忽略
        theQueryCon = "1>0"
    end if

    ‘’//////////////////////////////////////////////////////////
    ‘’
    ‘’ 限制条件
    ‘’
    ‘’//////////////////////////////////////////////////////////

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

    ‘’//////////////////////////////////////////////////////////
    ‘’
    ‘’ 构造 SQL 语句
    ‘’
    ‘’//////////////////////////////////////////////////////////

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

%>


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

                      

                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td>


                          </td>
                          <td>


                          </td>
                        </tr>
                      </table>

                      

                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td>


    <% For i = 1 To rs.pagesize %>
                      
    <%
        rs.MoveNext
        If rs.EOF Then
            Exit For
            rs.close
            conn.close
        End If
    next
    %>

                          </td>
                        </tr>
                      </table>

                      

</body>
</html>

<二> 查询控制代码：

query.inc

注意 form 表单一定要有自己的名字，例如 form_query ，以和其他表单区分

<table width="100%" border="0" cellspacing="0" cellpadding="0" height="25">
<form method="post" action="<%=theScript%>?mode=query" name=form_query onsubmit="javascript:return checkquery(this);">
  <tr>
    <td>
    <%=theQueryTitle%>
    <input type="text" name="<%=theQueryField%>" value="<%=request(theQueryField)%>" class="form_text" <%=uTextSize%>>
    <input type="submit" name="form_query_submit" value="查询" class="form_button">
    </td>
  </tr>
</form>
</table>
    <script language="javascript">
    function checkquery(form)
    {
        if(form.<%=theQueryField%>.value==‘’‘’)
        {
            alert(‘’请输入<%=theQueryTitle%>信息。\n提示：输入 * 可以查询所有内容。‘’);
            form.<%=theQueryField%>.focus();
            return false;
        }
        return true;
    }
    </script>

<三> 构造模糊查询语句

query_result.inc

<%
    ‘’//////////////////////////////////////////////////////////
    ‘’
    ‘’ 构造模糊查询语句
    ‘’
    ‘’//////////////////////////////////////////////////////////

    ‘’ 模糊查询只支持字符串
    theQueryValue = trim(request(theQueryField))

    if theQueryValue = "*" or theQueryValue = "" then
        theQueryCon = "1>0"
    else
        theQueryCon = theQueryField & " like ‘’%" & theQueryValue & "%‘’ "
    end if

%>

原文转自：http://www.ltesting.net

软件测试 > 测试开发技术 > 软件测试开发语言 > 自动测试脚本语言 >