|
#2
djz1682008-06-29 07:48
求助! 向高手请教asp分页问题
求助! 向高手请教
我的asp分页,始终显示的是一页,点上一页,下一页,首页,最后一页,全都是显示的那一页. 在地址栏上的地址是:http://localhost/123/product.asp?page=2&classid=&nclassid=&skey= 如果我在地址栏的"="号后页输入2或3则可以显示另外的内容.skey的值没有到到.以下是分页代码,请高手指点 <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <% set frs=server.CreateObject("adodb.recordset") ' if request("skey")<>"" then ' sql="select * from product where typeid="& request("menu1")&" and product like'%"& request("skey") & "%' order by paixu desc" ' else ' classid=request("classid") ' if classid<>"" or request("nclassid")<>"" then ' if classid<>"" and request("nclassid")<>"" then ' sql="select * from product where typeid="& classid & " and ntypeid=" & request("nclassid") & " order by paixu desc" ' elseif classid<>"" and request("nclassid")="" then ' sql="select * from product where typeid=" & classid&" order by paixu desc" ' elseif classid="" and request("nclassid")<>"" then ' sql="select * from product where ntypeid="& request("nclassid")&" order by paixu desc" ' end if ' else ' sql="select * from product order by paixu desc" ' end if ' end if if request("classid")<>"" then ji=" and typeid="&request("classid") else if request("nclassid")<>"" then ji=" and ntypeid="&request("nclassid") else ji=" and typeid<>37 " end if end if if trim(request("skey"))<>"" then ji1=" and product like '%"&request("skey")&"%'" else ji1="" end if sql="select * from product where id is not null " sql=sql+ji+ji1+" order by paixu desc" 'response.Write(sql) 'response.End() frs.open sql,con,1,1 %> <td valign="top"><% if frs.bof or frs.eof then response.write"<font color=red>娌℃湁鍙戝竷浜у搧锛?/font>" 'response.end else if request("page")="" then page=1 else page=request("page") end if%> <% if Trim(Request.Form("skey"))<>"" then set frs=server.CreateObject("adodb.recordset") sql = "select * from product where product like '%"&Trim(Request.Form("skey"))&"%' order by id desc" 'response.write sql 'response.end() frs.open sql,con,1,1 end if if frs.eof then response.Write("没有记录！") response.End() end if%> <% '=request("text")%> <% if trim(request("text"))<>"" then 'response.Write(request("text")) if cint(request("text"))<1 then page=1 elseif cint(request("text"))>cint(request("rsmax")) then page=int(request("rsmax")) else page=request("text") end if end if 'response.Write(page) frs.pagesize=12 frs.AbsolutePage=page%> <table width="100%" border="0" align="center" cellpadding="00" cellspacing="0"> <tr> <td width="494" height="261" align="center" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="top" background="images/ban_29.jpg"><span class="STYLE12">New Product </span></td> </tr> </table> <table width="51%" border="0" cellspacing="10" cellpadding="0"> <tr> <td height="210" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <% set frs=server.CreateObject("adodb.recordset") ' if request("skey")<>"" then ' sql="select * from product where typeid="& request("menu1")&" and product like'%"& request("skey") & "%' order by paixu desc" ' else ' classid=request("classid") ' if classid<>"" or request("nclassid")<>"" then ' if classid<>"" and request("nclassid")<>"" then ' sql="select * from product where typeid="& classid & " and ntypeid=" & request("nclassid") & " order by paixu desc" ' elseif classid<>"" and request("nclassid")="" then ' sql="select * from product where typeid=" & classid&" order by paixu desc" ' elseif classid="" and request("nclassid")<>"" then ' sql="select * from product where ntypeid="& request("nclassid")&" order by paixu desc" ' end if ' else ' sql="select * from product order by paixu desc" ' end if ' end if if request("classid")<>"" then ji=" and typeid="&request("classid") else if request("nclassid")<>"" then ji=" and ntypeid="&request("nclassid") else ji=" and typeid<>37 " end if end if if trim(request("skey"))<>"" then ji1=" and product like '%"&request("skey")&"%'" else ji1="" end if sql="select * from product where id is not null " sql=sql+ji+ji1+" order by paixu desc" 'response.Write(sql) 'response.End() frs.open sql,con,1,1 %> <td valign="top"><table width="441" height="189" border="0" cellpadding="0" cellspacing="0"> <% n=1 do while n<=5 and not frs.eof%> <tr> <td height="189" colspan="4"><img src="images/bk_b_04.jpg" width="1" height="1" /> <table width="51%" height="169" border="0" align="center" cellpadding="0" cellspacing="0"> <tbody> <tr> <td width="177" valign="middle"><table width="165" border="0" align="center" cellpadding="0" cellspacing="0"> <tbody> <tr> <td width="6"><img height="6" src="images/bk_j_01.jpg" width="6" /></td> <td width="150" background="images/bk_b_01.jpg"></td> <td width="10"><img height="6" src="images/bk_j_02.jpg" width="6" /></td> </tr> <tr> <td background="images/bk_b_02.jpg" height="155"></td> <td align="center"><a href="m_ViewImage.asp?ProductID=<%=frs("id")%>&user=<%=session("user")%>" target="_blank"><img src="./cx/upImg/<%=frs("img1")%>" alt="" width="150" height="150" border="0" style="border-color:#57A093 " /></a></td> <td background="images/bk_b_03.jpg"></td> </tr> <tr> <td><img height="6" src="images/bk_j_03.jpg" width="6" /></td> <td background="images/bk_b_04.jpg"></td> <td><img height="6" src="images/bk_j_04.jpg" width="6" /></td> </tr> </tbody> </table></td> <td valign="top" width="306"><table cellspacing="0" cellpadding="0" width="300" border="0"> <tbody> <tr> <td width="6"><img height="6" src="images/bk_j_01.jpg" width="6" /></td> <td background="images/bk_b_01.jpg" colspan="2"></td> <td width="11"><img height="6" src="images/bk_j_02.jpg" width="6" /></td> </tr> <tr> <td background="images/bk_b_02.jpg"></td> <td class="main" width="258" bgcolor="#f8f8f8" height="20"><a href="M_ViewImage.asp?ProductID=<%=frs("id")%>&user=<%=session("user")%>" target="_blank"><%=frs("product")%></a></td> <td width="32" bgcolor="#f8f8f8"><table cellspacing="0" cellpadding="0" width="100%" border="0"> <tbody> <tr> <td align="right" width="42%"><img height="16" src="images/an_more.jpg" width="32" border="0" /></td> </tr> </tbody> </table></td> <td background="images/bk_b_03.jpg"></td> </tr> <tr> <td><img height="6" src="images/bk_j_03.jpg" width="6" /></td> <td background="images/bk_b_04.jpg" colspan="2"></td> <td><img height="6" src="images/bk_j_04.jpg" width="6" /></td> </tr> </tbody> </table> <table cellspacing="0" cellpadding="0" width="169" border="0"> <tbody> <tr> <td width="169" height="5"></td> </tr> </tbody> </table> <table width="300" border="0" cellpadding="0" cellspacing="0"> <tbody> <tr> <td width="6" height="6"><img height="6" src="images/bk_j_01.jpg" width="6" /></td> <td width="378" background="images/bk_b_01.jpg"></td> <td width="10"><img height="6" src="images/bk_j_02.jpg" width="6" /></td> </tr> <tr> <td background="images/bk_b_02.jpg"></td> <td width="378" height="95" valign="top"><a href="M_ViewImage.asp?ProductID=<%=frs("id")%>&user=<%=session("user")%>" target="_blank"><%=left(ltrim(frs("remark")),400)%></a></td> <td background="images/bk_b_03.jpg"></td> </tr> <tr> <td height="6"><img height="6" src="images/bk_j_03.jpg" width="6" /></td> <td background="images/bk_b_04.jpg"></td> <td><img height="6" src="images/bk_j_04.jpg" width="6" /></td> </tr> </tbody> </table></td> </tr> </tbody> </table></td> </tr> <%frs.movenext n=n+1 loop %> </table></td> </tr> </table></td> </tr> </table></td> </tr> </table> <table width="100%" border="0" cellspacing="3" cellpadding="0"> <tr> <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="5"><img src="../images/dian.gif" width="1" height="1" /></td> </tr> <tr> <td height="2" bgcolor="#CCCCCC"><img src="../images/dian.gif" width="1" height="1" /></td> </tr> </table> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" > <tr> <td width="10%" height="36" align="left"><% d="&skey="&request("skey")%> <div align="center"><a href="product.asp?page=1&classid=<%=request("classid")%>&nclassid=<%=request("nclassid")%><%=d%>"><font color="#000000">首页</font></a></div></td> <td width="13%" align="left"><div align="center"> <% if page>1 then%> <a href="product.asp?page=<%=page-1%>&classid=<%=request("classid")%>&nclassid=<%=request("nclassid")%><%=d%>"> <font color="#000000">上一页</font></a> <% else %> <%="----"%> <% end if%> </div></td> <td width="12%" align="left"><div align="center"> <%if cint(page)<cint(frs.pagecount) then%> <a href="product.asp?page=<%=page+1%>&classid=<%=request("classid")%>&nclassid=<%=request("nclassid")%><%=d%>"> <font color="#000000">下一页</font></a> <% else %> <%="----"%> <% end if%> </div></td> <td width="10%" align="left"><div align="center"> <a href="product.asp?page=<%=frs.pagecount%>&classid=<%=request("classid")%>&nclassid=<%=request("nclassid")%><%=d%>"> <font color="#000000">末页</font></a></div></td> <td width="13%" align="left"><div align="center">共:<span class="newform"><%=frs.pagecount%></span>页</div></td> <td width="17%" align="left"><div align="center">当前第<span class="newform"><%=page%></span>页</div></td> <form action="product.asp" method="post" name="form3" id="form3"> <td width="13%" align="left" valign="middle"><div align="center"> <input name="text" type="text" class="i1" id="text" size="3" maxlength="3" /> 页 </div></td> <td width="12%" align="left" valign="middle"><div align="center"> <input name="nclassid" type="hidden" id="nclassid" value="<%=request("nclassid")%>" /> <input name="classid" type="hidden" id="classid" value="<%=request("classid")%>" /> <input name="rsmax" type="hidden" id="rsmax" value="<%=frs.pagecount%>" /> <input name="Submit6" type="submit" class="input2" id="Submit6" value="GO" /> </div></td> </form> </tr> </table></td> </tr> </table> <% End If %> </td> </tr> </table> |
我的asp分页,始终显示的是一页,点上一页,下一页,首页,最后一页,全都是显示的那一页.
在地址栏上的地址是:http://localhost/123/product.asp?page=2&classid=&nclassid=&skey=
如果我在地址栏的"="号后页输入2或3则可以显示另外的内容.skey的值没有到到.以下是分页代码,请高手指点
