asp中按条件查询后的分页问题 急死了 坐等~~谢谢
用asp+sql2000作的网页,运行正常。按条件查询后可以显示出相应的结果,但是在翻页时会翻到全部结果的下一页,而不能正确的翻到查询结果的下页,怎么解决呢?注意分页url里面是带了关键字的而且带关键字的url也是传到了下一页可是翻页的时候却翻到全部结果的下一页
代码如下:
首先是查询页面:2_1.asp(我就把form里面的贴出来)
<form id="form2" name="form2" method="post" action="1_2_search.asp">
<tr>
<td colspan="8" class="font14lan24px"><div align="center">情报信息检索</div></td>
</tr>
<tr>
<td width="75" align="right" valign="middle" class="font12hui18px">信息类型:</td>
<td width="144" align="left" class="font12lan22px">
<label>
<input name="kind" type="radio" value="网侦" />
</label>
网侦
<label>
<input name="kind" type="radio" value="政社情" />
</label>
政社情 </td>
<td width="63" align="right" valign="middle" class="font12hui18px">标题:</td>
<td width="155" align="left" class="font12lan22px"><label>
<input name="keyword1" type="text" size="18" />
</label></td>
<td width="60" align="right" class="font12hui18px">姓名:</td>
<td width="74" align="left"><label>
<input name="keyword2" type="text" size="8" />
</label></td>
<td width="65" align="right" valign="middle" class="font12hui18px">年龄:</td>
<td width="80"><label>
<input name="w3" type="text" size="8" />
</label></td>
</tr>
<tr>
<td align="right" valign="middle" class="font12hui18px">性 别:</td>
<td align="left" class="font12lan22px"><label>
<input type="radio" name="w2" value="男" />
男
<input type="radio" name="w2" value="女" />
女</label></td>
<td align="right" valign="middle" class="font12hui18px">住址:</td>
<td align="left" class="font12lan22px"><label>
<input name="keyword3" type="text" size="18" />
</label></td>
<td align="right" class="font12hui18px">职业:</td>
<td align="left"><input name="keyword4" type="text" size="8" /></td>
<td align="right" valign="middle" class="font12hui18px">填表单位:</td>
<td><input name="keyword5" type="text" size="8" /></td>
</tr>
<tr>
<td align="right" valign="middle" class="font12hui18px">填表人:</td>
<td align="left" class="font12lan22px"><input name="keyword6" type="text" size="8" /></td>
<td align="right" valign="middle" class="font12hui18px">主要内容:</td>
<td align="left" class="font12lan22px"><input name="keyword7" type="text" size="18" /></td>
<td align="right" class="font12hui18px">反映时间:</td>
<td align="left"><input name="w7" type="text" size="8" /></td>
<td align="right" valign="middle" class="font12hui18px">政治面貌:</td>
<td><input name="keyword8" type="text" size="8" /></td>
</tr>
<tr>
<td colspan="8" align="center" valign="middle" class="font12hui18px"><label>
<input type="submit" name="Submit2" value="查询" /> <input type="reset" value="重置" />
</label></td>
</tr>
</form>
执行页面(1_2_search.asp)这里是主要代码 查询是按条件查询
<%
n=session("u_name")
s=session("u_sector")
l=session("u_lv")
if n="" or s="" or l="" then
response.Redirect "../default.asp"
end if
kind=Trim(Request.Form("kind"))
keyword1=Trim(Request.Form("keyword1"))
keyword2=Trim(Request.Form("keyword2"))
w3=Trim(Request.Form("w3"))
w2=Trim(Request.Form("w2"))
keyword3=Trim(Request.Form("keyword3"))
keyword4=Trim(Request.Form("keyword4"))
keyword5=Trim(Request.Form("keyword5"))
keyword6=Trim(Request.Form("keyword6"))
keyword7=Trim(Request.Form("keyword7"))
keyword8=Trim(Request.Form("keyword8"))
w7=Trim(Request.Form("w7"))
%>
<table width="800" border="0" align="center" cellspacing="0">
<tr>
<td><img src="../banner2.jpg" width="800" height="93" /></td>
</tr>
</table>
<table width="747" border="0" align="center" cellspacing="0">
<tr>
<td align="right"><a href="../list.asp" target="_self" class="font12lan18px">返回目录</a> <span class="font12hui22px">|</span> <a href="javascript:window.history.back();" class="font12lan18px">返回上一页</a></td>
</tr>
</table>
<table width="800" border="0" align="center" cellspacing="0" class="xianh1">
<tr>
<td height="25" align="left" background="../pr15.gif" class="font12hui18px"> ::查询的情报信息列表</td>
</tr>
<tr>
<td height="359" align="center" valign="top"><table width="800" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="13"> </td>
</tr>
<tr>
<td height="52"><table width="797" border="0" cellspacing="0" class="bai_bk">
<tr>
<td align="center"><%
set rs=server.createobject("adodb.recordset")
sql="select * from qingbao where 1=1"
if kind<>"" then
url=url&"&kind="&kind
sql=sql&"and kind='"&kind&"'"
end if
if keyword1<>"" then
url=url&"&keyword1="&keyword1
sql=sql&"and w_tit like '%"&keyword1&"%'"
end if
if keyword2<>"" then
url=url&"&keyword2="&keyword2
sql=sql&"and w1 like '%"&keyword2&"%'"
end if
if w3<>"" then
url=url&"&w3="&w3
sql=sql&"and w3='"&w3&"'"
end if
if w2<>"" then
url=url&"&w2="&w2
sql=sql&"and w2='"&w2&"'"
end if
if keyword3<>"" then
url=url&"&keyword3="&keyword3
sql=sql&"and w6 like '%"&keyword3&"%'"
end if
if keyword4<>"" then
url=url&"&keyword4="&keyword4
sql=sql&"and w5 like '%"&keyword4&"%'"
end if
if keyword5<>"" then
url=url&"&keyword4="&keyword5
sql=sql&"and w9 like '%"&keyword5&"%'"
end if
if keyword6<>"" then
url=url&"&keyword6="&keyword6
sql=sql&"and w10 like '%"&keyword6&"%'"
end if
if keyword7<>"" then
url=url&"&keyword7="&keyword7
sql=sql&"and w8 like '%"&keyword7&"%'"
end if
if w7<>"" then
url=url&"&w7="&w7
sql=sql&"and w7='"&w7&"'"
end if
if keyword8<>"" then
url=url&"&keyword8="&keyword8
sql=sql&"and w4 like '%"&keyword8&"%'"
end if
sql=sql&" order by id desc"
Response.Write(sql)
rs.open sql,conn,3
rs.pagesize=15
if rs.RecordCount < 1 then
response.write "没有相关信息!"
response.End()
end if
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
%>
<table border="0" cellpadding="0" cellspacing="1" width="98%" align="center">
<%
all_id_list=""
for i=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for
all_id_list=all_id_list&","&rs("id")
%>
<tr align="center">
<td width="4%" align="left" ><img src="../b.gif" width="10" height="10"></td>
<td align="left" class="font14lan24px" ><%=rs("w_tit")%></td>
<td align="left" class="font14lan24px" ><%=rs("w11")%></td>
<td width="10%" align="left" class="font14lan24px" ><%=rs("wtime")%></td>
<td width="15%" align="left" class="font12hong22px" ><a href="qingbao/qb_show.asp?t=<%=rs("id")%>" target="_blank" class="font12lan20px">查看</a> |
<%if rs("gl")="ok" then%>
× | ×
<%else%><a href="qingbao/qb_edit.asp?d=<%=rs("id")%>" target="_self" class="font12lan20px">编辑</a>
|
<a href="qingbao/qb_del.asp?d=<%=rs("id")%>" target="_self" class="font12lan20px" onClick="return confirm('确定要删除吗?');">删除</a><%end if%></td>
</tr>
<tr align="center">
<td align="center" > </td>
<td width="54%" align="center" > </td>
<td width="17%" align="center" > </td>
<td align="center" > </td>
<td align="center" > </td>
</tr>
<%
rs.movenext()
next
all_id_list=mid(all_id_list,2)
%>
</table>
<br />
<table width="752" border="0" cellspacing="0">
<tr>
<td align="center" class="font12lan18px">
现在是第<%=epage%>页 一共有<%=rs.pagecount%>页[<a href="1_2_search.asp?page=1<%=url%>" class="font12lan18px">首页</a> <a href="1_2_search.asp?page=<%=(epage-1)%><%=url%>" class="font12lan18px">前一页</a> <a href="1_2_search.asp?page=<%=(epage+1)%><%=url%>" class="font12lan18px">后一页</a> <a href="1_2_search.asp?page=<%=rs.pagecount%><%=url%>" class="font12lan18px">末页</a> ]
</td>
</tr>
</table>
<%
conn.close()
%></td>
</tr>
<tr>
<td align="left"> </td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table>