| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 405 人关注过本帖
标题:按菜单内容分页
取消只看楼主 加入收藏
solon
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2007-4-18
收藏
 问题点数:0 回复次数:2 
按菜单内容分页

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

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

搜索更多相关主题的帖子: 菜单 
2007-04-30 14:31
solon
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2007-4-18
收藏
得分:0 
没人看吗,自己顶起
2007-04-30 15:23
solon
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2007-4-18
收藏
得分:0 
这里的人都哪去了,放假回家了吗?
2007-04-30 16:16
快速回复:按菜单内容分页
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031617 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved