超酷的通用分页显示控制（3）显示类别表1

现在，我们可以更进一步，把类别表显示出来，让用户可以通过选择不同的类别来查看不同的内容。该怎样解决呢？

我们可以这样来考虑：
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


<%
'//////////////////////////////////////////////////////////
'
' 定义表名
'
'//////////////////////////////////////////////////////////

theTableName= "addressbook"

'//////////////////////////////////////////////////////////
'
' 查询条件
'
'//////////////////////////////////////////////////////////

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

theQueryClass= theTableName & "_class"' 类别表名，去掉 tbl、vw 前缀
theClassId= c2int(request("classid"))' 当前类别号

' 如果是查询模式，则构造模糊查询语句
if request("mode") = "query" then
%><%
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 & " ) "

%>


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



</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>
<%
if theQueryClass = "" then
uTextSize = ""
%>
<td>
<%
else
'显示类别列表
uTextSize = "size=""8"""
%>
<td width=120>
类别
<select class=form_select name="classid" onchange="javascript:this.form.submit();">
<% ListClass theQueryClass, theClassId, 1 %>
</select>
<% end if %>
</td>
<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>

<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

' 如果有分类表，则需要加上分类限制
if theQueryClass <> "" then
if theClassId > 0 then
theQueryCon = theQueryCon & " and fldclassid=" & theClassId
end if
end if
%>

<四> 函数集

function.inc

<%
'--------------------------------------------------------
'
'
'初始化变量
'
'
'--------------------------------------------------------

' 取得当前 ASP 页面的完整路径，重要技巧
theScript= Request.ServerVariables("SCRIPT_NAME")

'从文件名取得 ASP 的名字
theActionScript= getScriptName(theScript)

myconnstr= "driver={SQL Server};server=yourserver;uid=sa;pwd=;database=yourdatabase"
thePageSize= 20' 每页显示的记录数
theLength_Listclass= 8' 类别列表中类别宽度

'--------------------------------------------------------
'Name:C2int
'Argument:
'Return:
'Description:转换为 Int 型
'--------------------------------------------------------

Function C2int(byval uStr)

' 11, boolean
if vartype(uStr) = 11 then
if uStr = false then
C2int = 0
else
C2int = 1
end if
else

uStr = trim(uStr)

if uSTr = "" then
C2int = 0
else
C2int = Cint(uStr)
end if

end if

End Function

'--------------------------------------------------------
'Name:ListClass
'Argument:uTableClass类别表名字
'uSelClassId当前选择的 Classid
'uAllClass是否显示“所有类别”：1 显示 / 0 显示一个空的选项
'Return:
'Description:显示类别表
'--------------------------------------------------------

Sub listClass(uTableClass,uSelClassId,uAllClass)

dim uListLength, uStr, uConn, uRs, uClassId, uClass_sel, uClassTitle, uSQL

uClass_sel= ""

if uAllClass = 1 then
if uSelClassId = 0 then
uClass_sel = "selected"
end if
uStr = uStr & "<option value=0 " & uClass_sel & ">所有类别</option>"
else
uStr = uStr & "<option>" & string(theLength_Listclass/2 - 1,"　") & "</option>"
end if

set uConn= Server.Createobject("adodb.connection")
uConn.open myconnstr

set uRs = server.createobject("adodb.recordset")
uSQL = "select * from tbl" & uTableClass & " order by fld" & uTableClass & "_title"
uRs.open uSQL,uConn,1,3

do while not uRs.eof
uClass_sel= ""
uClassId= uRs("fld" & uTableClass & "_id")
uClassTitle= leftX(uRs("fld" & uTableClass & "_title"),theLength_listClass)

if uClassId = uSelClassId then
uClass_sel = "selected"
end if

uStr = uStr & "<option value=""" & uClassId & """ " & uClass_sel & ">" & uClassTitle & "</option>"
uRs.movenext
loop

response.write uStr

rsClose uRs
cnClose uconn

End Sub

'--------------------------------------------------------
'Name:getScriptName
'Argument:
'Return:
'Description: 从文件名取得 ASP 的名字
'文件名后面的 add、delete、edit、view 作为系统的关键字，被过滤，例如：
'getScriptName("list_add.asp") 返回 "list" 。
'
'这样我们可以对某个表的增删改操作用不同的文件来实现，例如：
'
'list_add.asp添加记录
'list_delete.asp删除
'list_edite.asp修改
'list_view.asp查看

'--------------------------------------------------------

Function getScriptName(byval str)
dim uStr0,uStr1,uStr2,uMax,uTestStr,i,uKeyWords

uKeyWords = "add,delete,edit,view"
uKeyWords = split(uKeyWords,",")

uStr0 = Split(str, ".")
uStr1 = Split(uStr0(0), "/")
uStr2 = Split(uStr1(ubound(uStr1)), "_")
uMax = ubound(uStr2)
uTestStr = uStr2(uMax)

getScriptName = uStr2(0)

for each element in uKeyWords
if uTestStr = element then
uMax = uMax - 1
exit for
end if
next

For i = 1 To uMax
getScriptName = getScriptName + "_" + uStr2(i)
Next

End Function

%>

……

标签:超酷的通用分页显示控制（3）显示类别表

超酷的通用分页显示控制 （3） 显示类别表

超酷的通用分页显示控制（3）显示类别表