主题:关于分页显示的问题
<table width="696" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="middle"><%
mdfl=request("mdfl")
set rs=server.createobject("adodb.recordset")
sql="select * from mingdian where mdfl='"&request("mdfl")&"' order by mdid desc"
rs.open sql,Conn,1,1
if rs.eof and rs.bof then
%>
<table width="90%" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="593" height="19" colspan="2" class="zhui">暂时还没有任何图片</td>
</tr>
</table>
<%rs.close%>
<%
else
%>
<!-- 分页代码开始 -->
<%
const MaxPerPage=5 '单独页最大记录数 const 用来申明常量
dim sql
dim rs
dim totalPut '总记录
dim CurrentPage ' currentpage = 1 '当前页次
dim TotalPages '总页数
dim i
dim id
if not rs.eof then
rs.MoveFirst '注意放到前面来,否则到任何页总是在第一个记录上
end if
rs.pagesize=MaxPerPage '设置每页最多显示多少条记录
If trim(Request("Page"))<>"" then '如果请求的页次不为空
If IsNumeric(trim(Request("Page"))) = False Then
GoError "分页参数错误,请不要试图破坏此系统。"
End If
CurrentPage= CLng(request("Page")) 'clng是转换成长整型数据类型,并赋值到当前页次上
If CurrentPage> rs.PageCount then '如果当前页次大于总页数,则将最大页次赋值到当前页次上
CurrentPage = rs.PageCount
End If
Else
CurrentPage= 1 '一切条件不成立,将当前页设为第一页
End If
totalPut=rs.recordcount '将总记录赋值于TOTALPUT
if CurrentPage<>1 then '如果当前页数不等于第一页
if (currentPage-1)*MaxPerPage<totalPut then '如果当前页减一乘以每页最大的记录数小于总记录的话
rs.move(currentPage-1)*MaxPerPage '相对当前记录数向后移动
dim bookmark '定义书签变量
bookmark=rs.bookmark '将当前记录的标签赋于变量BOOKMARK上
end if
end if
dim n,k
if (totalPut mod MaxPerPage)=0 then '总记录数与每页最大记录数求余的结果为零时,则N返回整数页次,否则再加一.
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
%>
<!-- 将RS记录指针指向第一个记录,然后开始判断移动记录时,记录结尾是否为空,如果不为空接着移动指针,把所有数据都读取出来。直到结尾为空时,退出循环 -->
<%
id=(totalPut-MaxPerPage*(currentPage-1))+1
i=0
Do While Not rs.EOF and i<MaxPerPage
id=id-1
%>
<%for j = 1 to 1
next
%>
<table width="696" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%for j = 1 to 1
if not rs.eof then%>
<td align="left" valign="top"><table width="696" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="472" height="30" align="center" valign="top" class="red"><table width="472" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30" align="center" valign="middle" class="red"> </td>
<td width="442" height="20" align="left" valign="middle"><span class="baise"><%=rs("mdname")%> <img src="images/card.gif" width="14" height="10"> 使用一本通享受 <span class="xiaoc"><%=rs("mdzeko")%></span></span></td>
</tr>
<tr align="left">
<td colspan="2" valign="middle"><table width="472" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="66" height="20" align="right" valign="middle" class="zhui">地址:</td>
<td colspan="3" align="left" valign="middle" class="xiaoc"><span class="zhui"><%=rs("mdld")%><%=rs("mdadd")%> </span><span class="chengse">→ 周边信息</span> </td>
</tr>
<tr>
<td height="20" align="right" valign="middle" class="zhui">电话:</td>
<td colspan="3" align="left" valign="middle" class="zhui"><%=rs("mdtel")%></td>
</tr>
<tr>
<td height="20" colspan="4"><table width="472" border="0" cellspacing="0" cellpadding="0">
<tr align="right" valign="middle">
<td width="66" height="20" class="zhui">服务:</td>
<td width="40" align="left" class="xiaoc">[color=FF0000]<%
set rs = conn.execute("select sum(fuwu) from dianping where mdid="&request("mdid")&"")
%>
<% = rs(0)%>[/color] </td>
<td width="66" class="zhui">口味:</td>
<td width="40" align="left" class="xiaoc">[color=ff0000]<%
set rs = conn.execute("select sum(kouwai) from dianping where mdid="&request("mdid")&"")
%>
<% = rs(0)%>[/color]</td>
<td width="66" class="zhui">环境:</td>
<td width="40" align="left" class="xiaoc">[color=ff0000]<%
set rs = conn.execute("select sum(huanjin) from dianping where mdid="&request("mdid")&"")
%>
<% = rs(0)%>[/color]</td>
<td width="66" class="zhui">性价比:</td>
<td width="88" align="left" class="xiaoc">[color=ff0000]<%
set rs = conn.execute("select sum(xingjiabi) from dianping where mdid="&request("mdid")&"")
%>
<% = rs(0)%>[/color]</td>
</tr>
</table></td>
</tr>
<tr>
<td height="20"> </td>
<td width="80" height="20" align="center" valign="middle" class="red">查看点评</td>
<td width="80" align="center" valign="middle" class="red">我要点评</td>
<td width="246"> </td>
</tr>
</table></td>
</tr>
</table></td>
<td width="80" align="center" valign="middle" class="chengse"><%=rs("mdxiaofei")%></td>
<td width="150" align="center" valign="middle"><table width="99" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="76" align="center" valign="middle" background="images/mdtubg.gif"><a href="mdtext.asp?mdid=<%=rs("mdid")%>&mdname=<%=rs("mdname")%>&mdld=<%=rs("mdld")%>"><img src="../<%=rs("mdpic")%>" alt="<%=rs("ctname")%>" width="95" height="72" border="0" /></a></td>
</tr>
</table></td>
</tr>
<tr bgcolor="4C4C4C">
<td height="1" colspan="3" align="left" valign="top"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td height="4" colspan="3" align="left" valign="top"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td height="1" colspan="3" align="left" valign="top" background="image/dian.gif"><img src="../image/spacer.gif" width="1" height="1" /></td>
</tr>
</table>
<%
i=i+1
rs.movenext
end if
next%>
</td>
</tr>
<%
loop
%>
</table>
<!--页码显示代码开始-->
<table width="92" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20"> </td>
</tr>
</table>
<table border="0" align="center" >
<tr>
<td align="center" class="mhui"> 第 <%=currentpage%>/<%=n%> 页 共 <%=rs.recordcount%>个信息
<%k=currentPage'判断当前是第几页
if k<>1 then'如果不是第一页的话就显示如下
response.write "[<b>"+"<a href='?action=show&page=1&mdfl="&request("mdfl")&"'>首页</a></b>] "
response.write "[<b>"+"<a href='?action=show&page="&cstr(k-1)&"&mdfl="&request("mdfl")&"'>上一页</a></b>] "
else
Response.Write "[首页] [上一页]"
end if
if k<>n then'如果不是最后一页的话就显示如下
response.write "[<b>"+"<a href='?action=show&page="&cstr(k+1)&"&mdfl="&request("mdfl")&"'>下一页</a></b>] "
response.write "[<b>"+"<a href='?action=show&page="&cstr(n)&"&mdfl="&request("mdfl")&"'>尾页</a></b>] "
else
Response.Write "[下一页] [尾页]"
end if
rs.close
%>
</td>
</tr>
</table>
<% end if %></td>
</tr>
</table>
大家帮小弟弟看,这个分页显示是没有问题的,问题是里面红色字的问题,我想把网友评价的分数总分,显示在每个相关店的信息里面。店的信息和评价是两不同的表里面的。可是显示出来的是店信息表中的ID号。怪怪,小弟弟不知道哪里写错,大哥大姐帮忙看看,谢谢了
<tr>
<td align="left" valign="middle"><%
mdfl=request("mdfl")
set rs=server.createobject("adodb.recordset")
sql="select * from mingdian where mdfl='"&request("mdfl")&"' order by mdid desc"
rs.open sql,Conn,1,1
if rs.eof and rs.bof then
%>
<table width="90%" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="593" height="19" colspan="2" class="zhui">暂时还没有任何图片</td>
</tr>
</table>
<%rs.close%>
<%
else
%>
<!-- 分页代码开始 -->
<%
const MaxPerPage=5 '单独页最大记录数 const 用来申明常量
dim sql
dim rs
dim totalPut '总记录
dim CurrentPage ' currentpage = 1 '当前页次
dim TotalPages '总页数
dim i
dim id
if not rs.eof then
rs.MoveFirst '注意放到前面来,否则到任何页总是在第一个记录上
end if
rs.pagesize=MaxPerPage '设置每页最多显示多少条记录
If trim(Request("Page"))<>"" then '如果请求的页次不为空
If IsNumeric(trim(Request("Page"))) = False Then
GoError "分页参数错误,请不要试图破坏此系统。"
End If
CurrentPage= CLng(request("Page")) 'clng是转换成长整型数据类型,并赋值到当前页次上
If CurrentPage> rs.PageCount then '如果当前页次大于总页数,则将最大页次赋值到当前页次上
CurrentPage = rs.PageCount
End If
Else
CurrentPage= 1 '一切条件不成立,将当前页设为第一页
End If
totalPut=rs.recordcount '将总记录赋值于TOTALPUT
if CurrentPage<>1 then '如果当前页数不等于第一页
if (currentPage-1)*MaxPerPage<totalPut then '如果当前页减一乘以每页最大的记录数小于总记录的话
rs.move(currentPage-1)*MaxPerPage '相对当前记录数向后移动
dim bookmark '定义书签变量
bookmark=rs.bookmark '将当前记录的标签赋于变量BOOKMARK上
end if
end if
dim n,k
if (totalPut mod MaxPerPage)=0 then '总记录数与每页最大记录数求余的结果为零时,则N返回整数页次,否则再加一.
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
%>
<!-- 将RS记录指针指向第一个记录,然后开始判断移动记录时,记录结尾是否为空,如果不为空接着移动指针,把所有数据都读取出来。直到结尾为空时,退出循环 -->
<%
id=(totalPut-MaxPerPage*(currentPage-1))+1
i=0
Do While Not rs.EOF and i<MaxPerPage
id=id-1
%>
<%for j = 1 to 1
next
%>
<table width="696" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%for j = 1 to 1
if not rs.eof then%>
<td align="left" valign="top"><table width="696" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="472" height="30" align="center" valign="top" class="red"><table width="472" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30" align="center" valign="middle" class="red"> </td>
<td width="442" height="20" align="left" valign="middle"><span class="baise"><%=rs("mdname")%> <img src="images/card.gif" width="14" height="10"> 使用一本通享受 <span class="xiaoc"><%=rs("mdzeko")%></span></span></td>
</tr>
<tr align="left">
<td colspan="2" valign="middle"><table width="472" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="66" height="20" align="right" valign="middle" class="zhui">地址:</td>
<td colspan="3" align="left" valign="middle" class="xiaoc"><span class="zhui"><%=rs("mdld")%><%=rs("mdadd")%> </span><span class="chengse">→ 周边信息</span> </td>
</tr>
<tr>
<td height="20" align="right" valign="middle" class="zhui">电话:</td>
<td colspan="3" align="left" valign="middle" class="zhui"><%=rs("mdtel")%></td>
</tr>
<tr>
<td height="20" colspan="4"><table width="472" border="0" cellspacing="0" cellpadding="0">
<tr align="right" valign="middle">
<td width="66" height="20" class="zhui">服务:</td>
<td width="40" align="left" class="xiaoc">[color=FF0000]<%
set rs = conn.execute("select sum(fuwu) from dianping where mdid="&request("mdid")&"")
%>
<% = rs(0)%>[/color] </td>
<td width="66" class="zhui">口味:</td>
<td width="40" align="left" class="xiaoc">[color=ff0000]<%
set rs = conn.execute("select sum(kouwai) from dianping where mdid="&request("mdid")&"")
%>
<% = rs(0)%>[/color]</td>
<td width="66" class="zhui">环境:</td>
<td width="40" align="left" class="xiaoc">[color=ff0000]<%
set rs = conn.execute("select sum(huanjin) from dianping where mdid="&request("mdid")&"")
%>
<% = rs(0)%>[/color]</td>
<td width="66" class="zhui">性价比:</td>
<td width="88" align="left" class="xiaoc">[color=ff0000]<%
set rs = conn.execute("select sum(xingjiabi) from dianping where mdid="&request("mdid")&"")
%>
<% = rs(0)%>[/color]</td>
</tr>
</table></td>
</tr>
<tr>
<td height="20"> </td>
<td width="80" height="20" align="center" valign="middle" class="red">查看点评</td>
<td width="80" align="center" valign="middle" class="red">我要点评</td>
<td width="246"> </td>
</tr>
</table></td>
</tr>
</table></td>
<td width="80" align="center" valign="middle" class="chengse"><%=rs("mdxiaofei")%></td>
<td width="150" align="center" valign="middle"><table width="99" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="76" align="center" valign="middle" background="images/mdtubg.gif"><a href="mdtext.asp?mdid=<%=rs("mdid")%>&mdname=<%=rs("mdname")%>&mdld=<%=rs("mdld")%>"><img src="../<%=rs("mdpic")%>" alt="<%=rs("ctname")%>" width="95" height="72" border="0" /></a></td>
</tr>
</table></td>
</tr>
<tr bgcolor="4C4C4C">
<td height="1" colspan="3" align="left" valign="top"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td height="4" colspan="3" align="left" valign="top"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td height="1" colspan="3" align="left" valign="top" background="image/dian.gif"><img src="../image/spacer.gif" width="1" height="1" /></td>
</tr>
</table>
<%
i=i+1
rs.movenext
end if
next%>
</td>
</tr>
<%
loop
%>
</table>
<!--页码显示代码开始-->
<table width="92" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20"> </td>
</tr>
</table>
<table border="0" align="center" >
<tr>
<td align="center" class="mhui"> 第 <%=currentpage%>/<%=n%> 页 共 <%=rs.recordcount%>个信息
<%k=currentPage'判断当前是第几页
if k<>1 then'如果不是第一页的话就显示如下
response.write "[<b>"+"<a href='?action=show&page=1&mdfl="&request("mdfl")&"'>首页</a></b>] "
response.write "[<b>"+"<a href='?action=show&page="&cstr(k-1)&"&mdfl="&request("mdfl")&"'>上一页</a></b>] "
else
Response.Write "[首页] [上一页]"
end if
if k<>n then'如果不是最后一页的话就显示如下
response.write "[<b>"+"<a href='?action=show&page="&cstr(k+1)&"&mdfl="&request("mdfl")&"'>下一页</a></b>] "
response.write "[<b>"+"<a href='?action=show&page="&cstr(n)&"&mdfl="&request("mdfl")&"'>尾页</a></b>] "
else
Response.Write "[下一页] [尾页]"
end if
rs.close
%>
</td>
</tr>
</table>
<% end if %></td>
</tr>
</table>
大家帮小弟弟看,这个分页显示是没有问题的,问题是里面红色字的问题,我想把网友评价的分数总分,显示在每个相关店的信息里面。店的信息和评价是两不同的表里面的。可是显示出来的是店信息表中的ID号。怪怪,小弟弟不知道哪里写错,大哥大姐帮忙看看,谢谢了