ASP分页显示问题，作用只对第一条记录有用？？

<%rs.pageSize=5//pagecount=rs.PageCountpage=int(Request.QueryString("page"))ifpage<1t... <%
rs.pageSize = 5 //
pagecount=rs.PageCount
page =int(Request.QueryString("page"))
if page<1 then page=1
if request.QueryString("page")="" then page=1
rs.Absolutepage = page
%>
<table border="1" bordercolor="#999999" width="640" cellpadding="0" cellspacing="0">
<tr>
<td width="55">用户名</td>
<td width="55">密码</td>
<td width="40">性别</td>
<td width="80">Email</td>
<td width="100">联系方式</td>
<td width="150">用户级别</td>
<td width="50">审核</td>
<% for ipage=1 to rs.pageSize %>
<tr>
<td width="55"><% =rs("yhname") %>
</td>
<td width="55"><% =rs("yhpassword") %>
</td>
<td width="40"><% =rs("yhsex") %>
</td>
<td width="80"><%=rs("yhmail")%> </td>
<td width="100"><%=rs("yhqq")%> </td>
<%
if rs("yhgl")=false then
if rs("yhdl")=true then %>
<td width="50"><a href="000ch1.asp?action=yhzx&id=<%=rs("id")%>">注消 </a></td>
<% else %>
<td width="50"><a href="000ch1.asp?action=zcsh&id=<%=rs("id")%>">同意 </a></td>
<% end if
else %>
<td width="50">管理员</td>
<% end if
rs.MoveNext
If rs.EOF Then Exit For
next
%>
我这边设置的“同意”“注消”只对第一条记录有用啊，后面的点了也没用？？什么问题呢

<%
exec="select * from yhbiao "
set rs=Server.CreateObject("adodb.recordset")
rs.Open exec,conn,1,3

sub zcsh()
rs("yhdl")=true
rs.update
end sub
sub yhzx()
rs("yhdl")=false
rs.update
end sub

Action = LCase(request("action")) '得到action值
Select Case Trim(Action) '调用过程
Case "zcsh"
Call zcsh
Case "yhzx"
Call yhzx
End Select
%>
我的程序的前面还有这一段的，不知哪有问题，可能是数据库调用出的问题吧！！哪位大侠帮帮忙吧展开

 我来答

1个回答

#热议# 生活中有哪些实用的心理学知识？

ahaoge6901
2009-04-30 · TA获得超过171个赞

知道小有建树答主

回答量：304

采纳率：0%

帮助的人：306万

我也去答题访问个人页

关注

展开全部

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<% 
rs.pageSize = 5 // 
pagecount=rs.PageCount 
 IF Request.QueryString("page")="" Then
 page=1
 Else
 page=Request.QueryString("page")
 end if
rs.Absolutepage = page 
%>
<%'在这里写查询数据库代码
if rs.eof then
response.Write("还没有记录")
else
%> 
<table border="1" bordercolor="#999999" width="640" cellpadding="0" cellspacing="0"> 
<tr> 
<td width="55">用户名</td> 
<td width="55">密 码</td> 
<td width="40">性 别</td> 
<td width="80">Email</td> 
<td width="100">联系方式</td> 
<td width="150">用户级别</td> 
<td align="center">审核</td> 
<% do while not rs.eof%> 
<tr> 
<td width="55"><% =rs("yhname")%></td> 
<td width="55"><% =rs("yhpassword")%></td> 
<td width="40"><% =rs("yhsex") %></td> 
<td width="80"><%=rs("yhmail")%></td> 
<td width="100"><%=rs("yhqq")%></td> 
<% 
if rs("yhgl")=false then 
  if rs("yhdl")=true then %> 
  <td width="50"><a href="000ch1.asp?action=yhzx&id=<%=rs("id")%>">注消 </a></td> 
  <% else %> 
  <td width="50"><a href="000ch1.asp?action=zcsh&id=<%=rs("id")%>">同意 </a></td> 
  <% end if 
else %>  
  <td width="50">管理员</td> 
<% end if 
rs.MoveNext 
Loop 
%> 

<tr>
  <td colspan="8"><%if page>1 then%><a href="?page=<%=page-1%>">上一页</a>|<a href="?page=<%=page+1%>">下一页</a><%end if%></td>
  </tr>
</table>
</body>
</html>


本回答被提问者采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

ASP分页显示问题，作用只对第一条记录有用？？

其他类似问题

为你推荐：