首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > ASP >

菜单查询结果怎么分页

2012-03-09 
菜单查询结果如何分页前边是全部的分页内容,后边的产品分类是后来加上去的菜单选项,点菜单里的选项,上边的

菜单查询结果如何分页
前边是全部的分页内容,后边的产品分类是后来加上去的菜单选项,点菜单里的选项,上边的分页内容就会根据选项对应改变,菜单的script语句怎么写哪位知道啊?

<form   name= "form1 "   method= "post "   style= "text-align:   center ">
  <%
        sql= "SELECT   *   FROM   pro   ORDER   BY   pid   asc "
set   rscyc=server.CreateObject( "adodb.recordset ")
rscyc.open   sql,conn,1,1  
  i=0
if     rscyc.eof   then
response.write( "没有记录!! ")
else
rscyc.pagesize=20

if   request( "page ")= " "   then
session( "page ")=1
else
session( "page ")=eval(session( "page ")   &   request( "page "))
if   session( "page ") <1   then
session( "page ")=1
end   if
if   session( "page ")> rscyc.PageCount   then
session( "page ")=rscyc.PageCount  
end   if
end   if
rscyc.AbsolutePage=session( "page ")

j=0
  do   while   not   rscyc.eof   and   j <rscyc.pagesize
j=j+1
i=rscyc.pagesize*(session( "page ")-1)+j
    %>             <tr>
                <td> <%=Server.HtmlEncode(rscyc( "pid "))%> </td>
                <td   > <%=Server.HtmlEncode(rscyc( "pnumber "))%> </td>
                <td   > <%=Server.HtmlEncode(rscyc( "ptypename "))%> > </td>
                <td   > <%=Server.HtmlEncode(rscyc( "ppic "))%> </font> </td>
                <td   > </td>
                <td   > </td>
                <td   > </td>
            </tr>
    <%
    rscyc.movenext
    loop
    %>
</table> <table   >
    <tr>
        <td> <div   align= "center "> <font   size= "-1 "> 总记录数 <%=rscyc.recordcount%> </font> <font   size= "-1 "> &nbsp;&nbsp;当前页 <%=session( "page ")%> /总页数 <font   color= "#FF0000 "> <%=rscyc.pagecount%> </font> &nbsp;&nbsp;&nbsp;
                            <%if   session( "page ")> 1   then%>
                            <a   href= "proshow.asp?page=-1&Person_bm_id= <%=request( "Person_bm_id ")%> "> 上一页 </a>
                            <%else%>
            上一页
            <%end   if%>
            <%
                      if   cint(session( "page ")) <cint(rscyc.PageCount)     then%>


            <a   href= "proshow.asp?page=%2B1&Person_bm_id= <%=request( "Person_bm_id ")%> "> 下一页 </a>
            <%else%>
            下一页
            <%
end   if

end   if
    %>
        </font> </div> </td>
    </tr>
    <tr>
    <td>         <tr>
            <td   align= "right "> 产品分类: </td>
            <td> <select     name= "prid "   onChange= "javascript:changeclass2(); "   >  
<option   value= " "   selected> 选择类别 </option>
<%
Sql= "Select   *   From   dig1 "
Set   Rs=Server.CreateObject( "ADODB.RecordSet ")
Rs.Open   Sql,dbConn,1,1
do   while   not   rs.eof
Response.write   " <option   value= ' "&rs( "tpid ")& " '> "&rs( "ptypename ")& " </option> "
rs.movenext
loop
Response.write   " </select> "
Rs.Close
Set   Rs   =   Nothing
%>
</table>
</form>

[解决办法]
选菜单时,多加一个参数.onchange= "location.href= '?...你的相关参数&xx= ' + this.value "
然后去处理这个参数即可.

热点排行