Question

asp+access多条件查询分页

我设置的多条件查询，且各个条件是可以选择性输入的。现在能正常实现查询，但是分页出现了问题。我按条件检索后，比如说有2页，在第一页上，我点下一页，能正常跳转到第2页，但还是能一直往后跳转，但我检索的结果，仅仅只有两页的，“下一页”的连接我该怎么设置呢？
代码如下：
<%
function GetValidateInt(i, max, min)
if i < min then
GetValidateInt = CInt(min)
elseif i > max then
GetValidateInt = CInt(max)
else
GetValidateInt = CInt(i)
end if
end function
%>
<%
filename = "2.asp"
Dim conn, param, rs,kind, ThisPageNum,bh,searcheSql
Set conn = Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)};"
conn.Open param & ";dbq=" & Server.MapPath("db/zwgk.mdb")
syh=Request("syh")
xxmc=Request("xxmc")
csrq=Request("csrq")
wjbh=Request("wjbh")
wjbh = replace (wjbh,"[","[[]")
wjbh = replace (wjbh,"*]","*[]]")
fbjg=Request("fbjg")
Sql= "Select * from zwgk where 1=1 "
if syh <>"" then
Sql= Sql & "and syh like '%"& syh &"%'"
end if
if xxmc <>"" then
Sql= Sql & "and xxmc like '%"& xxmc &"%'"
end if
if csrq <>"" then
Sql= Sql & "and csrq like '%"& csrq &"%'"
end if
if wjbh <>"" then
Sql= Sql & "and wjbh like '%"& wjbh &"%'"
end if
if fbjg <>"" then
Sql= Sql & "and fbjg like '%"& fbjg &"%'"
end if
session("searcheSql") = Sql
Sql = session("searcheSql")
set rs = Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 1,1
rs.pagesize = 1
if rs.eof then
response.write "<h1>没有查询到相关记录</h1><br>"
response.end
end if
if request.querystring("pg") = "" then
ThisPageNum = GetValidateInt(CInt(i), CInt(rs.pageCount), 1)
end if
ThisPageNum = ThisPageNum - 1
%>
<%
if not rs.eof then
i = ThisPageNum * rs.PageSize
j = i + rs.PageSize
rs.move i, adBookmarkFirst
else
end if
do while not rs.eof and not rs.bof and i < j
%>
<%
i = i + 1
rs.movenext
loop
%>
第<%=ThisPageNum+1%>页/共<%=rs.PageCount%>页-
<%if (ThisPageNum+1) <= 1 then %>
上一页
<%else%>
<a href="<%=filename%>?pg=<%=((ThisPageNum+1)-1)%>">上一页</a>
<%end if%>
<%if (ThisPageNum+1) >= rs.PageCount then %>
下一页
<%else%>
<a href="<%=filename%>?pg=<%=((ThisPageNum + 1)+1)%>">下一页</a>
<%end if%>
gh

Answer 1

syh=Request("syh")
xxmc=Request("xxmc")
csrq=Request("csrq")
wjbh=Request("wjbh")
wjbh = replace (wjbh,"[","[[]")
wjbh = replace (wjbh,"*]","*[]]")
fbjg=Request("fbjg")
url=""
Sql= "Select * from zwgk where 1=1 "
if syh <>"" then
url=url&"&syh="&syh
Sql= Sql & "and syh like '%"& syh &"%'"
end if
if xxmc <>"" then
url=url&"&xxmc ="&xxmc
Sql= Sql & "and xxmc like '%"& xxmc &"%'"
end if
if csrq <>"" then
url=url&"&csrq ="&csrq
Sql= Sql & "and csrq like '%"& csrq &"%'"
end if
if wjbh <>"" then
url=url&"&wjbh ="&wjbh
Sql= Sql & "and wjbh like '%"& wjbh &"%'"
end if
if fbjg <>"" then
url=url&"&fbjg ="&fbjg
Sql= Sql & "and fbjg like '%"& fbjg &"%'"
end if
session("urls")=url
url=session("urls")
;;;;;;
第<%=ThisPageNum+1%>页/共<%=rs.PageCount%>页-
<%if (ThisPageNum+1) <= 1 then %>
上一页
<%else%>
<a href="<%=filename%>?pg=<%=((ThisPageNum+1)-1)%><%=url%>">上一页</a>
<%end if%>
<%if (ThisPageNum+1) >= rs.PageCount then %>
下一页
<%else%>
<a href="<%=filename%>?pg=<%=((ThisPageNum + 1)+1)%><%=url%>">下一页</a>
<%end if%>

Answer 2

你这个应该是 DW图形化做的吧。。

DW做的好小想就是有问题。。

自己写吧。。这个代码看起来好象没有错误啊。。