求给asp产品页增加分页代码
一个asp代码没有分页功能，求大虾给增加上，感激不尽。<!--#includefile="cninclude/conn.asp"--><!--#includefile="...
一个asp代码没有分页功能，求大虾给增加上，感激不尽。
<!--#include file = "cninclude/conn.asp"-->
<!--#include file = "cninclude/function.asp"-->
<!--#include file="Inc/syscode.asp"-->
<%
'请勿改动下面这三行代码
ShowSmallClassType=ShowSmallClassType_Default
MaxPerPage=MaxPerPage_Default
strFileName="Product.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName
%>
<%
strKeyWord=Request("KeyWord") & ""
strKeyWrod=Replace(strKeyWord,"'","")
strKeyWord=Trim(strKeyWord)
categoryID=Request.QueryString("categoryID")
If categoryid="" Then categoryID=0
If Not (IsNumeric(ID)) Then categoryID=0
categoryID=CLng(categoryID)
strCategoryName=Request.QueryString("categoryName") & ""
strCategoryName=Trim(strCategoryName)
%>
<HTML><HEAD><TITLE>ZhaoHang</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="cncss/css.css" type=text/css rel=stylesheet>
<META content="cnMSHTML 6.00.2800.1595" name=GENERATOR>
<SCRIPT src="cnxindenflash.js" type=text/javascript></SCRIPT>
<BODY bgColor=#415972>
<center>
<style type="text/css">
</style>
<table><tr><td><!--#include file="cntop.asp"--></td></tr>
</table><TABLE cellSpacing=0 cellPadding=0 width=988 align=center border=0>
<TBODY>
<TR>
<TD width=195 vAlign=top bgcolor="#DBDBDB">
<table><tr><td><!--#include file="cnleft.asp"--></td>
</tr></table>
<map name="Map" id="Map"><area shape="rect" coords="117,122,175,137" href="cncontacts.asp" />
</map>
</TD>
<TD vAlign=top width=793 bgColor=#ffffff>
<TABLE cellSpacing=5 cellPadding=0 width="100%" bgColor=#ffffff border=0><TBODY>
<TR>
<TD width="100%" align="left" valign="top">
<TABLE width="100%" height="26" border=0 cellPadding=0 cellSpacing=0 background="cnimages/55_20.jpg">
<TBODY>
<TR>
<TD align=center width=3%><IMG height=11 src="cnimages/dot.gif" width=12></TD>
<TD width="97%" align="left" valign="middle" style="font-size:12px;color:#333333"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="middle" style="font-size:12px;color:#333333">
产品展示</td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE> 展开
<!--#include file = "cninclude/conn.asp"-->
<!--#include file = "cninclude/function.asp"-->
<!--#include file="Inc/syscode.asp"-->
<%
'请勿改动下面这三行代码
ShowSmallClassType=ShowSmallClassType_Default
MaxPerPage=MaxPerPage_Default
strFileName="Product.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName
%>
<%
strKeyWord=Request("KeyWord") & ""
strKeyWrod=Replace(strKeyWord,"'","")
strKeyWord=Trim(strKeyWord)
categoryID=Request.QueryString("categoryID")
If categoryid="" Then categoryID=0
If Not (IsNumeric(ID)) Then categoryID=0
categoryID=CLng(categoryID)
strCategoryName=Request.QueryString("categoryName") & ""
strCategoryName=Trim(strCategoryName)
%>
<HTML><HEAD><TITLE>ZhaoHang</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="cncss/css.css" type=text/css rel=stylesheet>
<META content="cnMSHTML 6.00.2800.1595" name=GENERATOR>
<SCRIPT src="cnxindenflash.js" type=text/javascript></SCRIPT>
<BODY bgColor=#415972>
<center>
<style type="text/css">
</style>
<table><tr><td><!--#include file="cntop.asp"--></td></tr>
</table><TABLE cellSpacing=0 cellPadding=0 width=988 align=center border=0>
<TBODY>
<TR>
<TD width=195 vAlign=top bgcolor="#DBDBDB">
<table><tr><td><!--#include file="cnleft.asp"--></td>
</tr></table>
<map name="Map" id="Map"><area shape="rect" coords="117,122,175,137" href="cncontacts.asp" />
</map>
</TD>
<TD vAlign=top width=793 bgColor=#ffffff>
<TABLE cellSpacing=5 cellPadding=0 width="100%" bgColor=#ffffff border=0><TBODY>
<TR>
<TD width="100%" align="left" valign="top">
<TABLE width="100%" height="26" border=0 cellPadding=0 cellSpacing=0 background="cnimages/55_20.jpg">
<TBODY>
<TR>
<TD align=center width=3%><IMG height=11 src="cnimages/dot.gif" width=12></TD>
<TD width="97%" align="left" valign="middle" style="font-size:12px;color:#333333"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="middle" style="font-size:12px;color:#333333">
产品展示</td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE> 展开
2个回答
展开全部
<%
Set rs=Server.CreateObject("Adodb.recordset")
sql="select * from 表 order by ID desc"
rs.open sql,conn,1,1
rs.PageSize=18 '每页显示
page=Clng(request.QueryString("page"))
If page<1 then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if
rs.Absolutepage=page
for i=1 to rs.pagesize
%>
在此加入分面内容！！！
<%
rs.movenext
if rs.eof then
exit for
end if
next
%>
第 <font color=#990000><%=page%></font> 页 共 <font color=#990000><%=rs.pagecount%></font> 页
<%
if page=1 then
response.write "首页 "
else
response.write "<a href='此文件名.asp?page=1'>首页</a> "
end if
if page=1 then
response.write "上一页 "
else
response.write "<a href=此文件名.aspp?page=" & page-1 & ">上一页</a> "
end if
if page=rs.pagecount then
response.write "下一页 "
else
response.write "<a href=此文件名.asp?page=" & page+1 & ">下一页</a> "
end if
if page=rs.pagecount then
response.write "尾页 "
else
response.write "<a href=此文件名.asp?page=" & rs.pagecount & ">尾页</a> "
end if
%>
Set rs=Server.CreateObject("Adodb.recordset")
sql="select * from 表 order by ID desc"
rs.open sql,conn,1,1
rs.PageSize=18 '每页显示
page=Clng(request.QueryString("page"))
If page<1 then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if
rs.Absolutepage=page
for i=1 to rs.pagesize
%>
在此加入分面内容！！！
<%
rs.movenext
if rs.eof then
exit for
end if
next
%>
第 <font color=#990000><%=page%></font> 页 共 <font color=#990000><%=rs.pagecount%></font> 页
<%
if page=1 then
response.write "首页 "
else
response.write "<a href='此文件名.asp?page=1'>首页</a> "
end if
if page=1 then
response.write "上一页 "
else
response.write "<a href=此文件名.aspp?page=" & page-1 & ">上一页</a> "
end if
if page=rs.pagecount then
response.write "下一页 "
else
response.write "<a href=此文件名.asp?page=" & page+1 & ">下一页</a> "
end if
if page=rs.pagecount then
response.write "尾页 "
else
response.write "<a href=此文件名.asp?page=" & rs.pagecount & ">尾页</a> "
end if
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
其他的代码我就不写了,我写上关键代码:
rs.pagesize = 20 '定义每页显示20条记录
dim pagenumber ' 这是当前页
pagenumber = request.QueryString("pagenumber") '得到当前页
if pagenumber = "" then ' 如果是第一次浏览(当前页为空)
pagenumber = 1 ' 设置当前页为第一页
elseif (not isnumeric(pagenumber)) then ' 如果当前页不是数字
pagenumber = 1 ' 设置当前页为第一夜=页
else ' 否则
pagenumber = int(pagenumber) ' 当前页为提交的页数
end if
if pagenumber < 1 then ' 如果当前页比1小
pagenumber = 1 ' 设置位第一页
elseif pagenumber > rs.pagecount then ' 如果当前页比最后一页大
pagenumber = rs.pagecount ' 设置为最后一页
end if
rs.absolutePage = pagenumber ' 这句是最重要的:将记录集 定位到当前设置的页数
希望对你有帮助!
rs.pagesize = 20 '定义每页显示20条记录
dim pagenumber ' 这是当前页
pagenumber = request.QueryString("pagenumber") '得到当前页
if pagenumber = "" then ' 如果是第一次浏览(当前页为空)
pagenumber = 1 ' 设置当前页为第一页
elseif (not isnumeric(pagenumber)) then ' 如果当前页不是数字
pagenumber = 1 ' 设置当前页为第一夜=页
else ' 否则
pagenumber = int(pagenumber) ' 当前页为提交的页数
end if
if pagenumber < 1 then ' 如果当前页比1小
pagenumber = 1 ' 设置位第一页
elseif pagenumber > rs.pagecount then ' 如果当前页比最后一页大
pagenumber = rs.pagecount ' 设置为最后一页
end if
rs.absolutePage = pagenumber ' 这句是最重要的:将记录集 定位到当前设置的页数
希望对你有帮助!
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
