UC知道ASP分页代码错误VB帮忙改下送50分答对再送分免的没人答让费了分
来源：百度知道 编辑：UC知道 时间：2024/06/02 11:41:20
<%
dim zongye,page,p
rs4.PageSize=2 '指定每页面所含的记录数
zongye=rs4.PageCount '指定总页数
page=int(request("page")) '取得发送过来的PAGE值并指定给PAGE为整数
%><%if request("page")="" then page=1
%><%
rs4.Absolutepage=page ！！！！ 这里错误显示记录集不支持标签 '指定当前页面所在页
%>
下面是输出过程
<%
For i =1 To rs4.PageSize%>
<tr>
<%for syd=1 to 7%>
<%if trim(rs4(33+syd))="00000000" then %>
<%elseif isnull(rs4(33+syd)) then%>
<%elseif (rs4(33+syd))="" then%>
<td></td>
<%else%>
<td height="21" bgcolor="#FFFFFF" class="td"><a href="seexx.asp?bh=<%=rs4(0)%>"><div align="center"><%=rs4(33+syd)%></div></a></td>
<%end if%>
&l
dim zongye,page,p
rs4.PageSize=2 '指定每页面所含的记录数
zongye=rs4.PageCount '指定总页数
page=int(request("page")) '取得发送过来的PAGE值并指定给PAGE为整数
%><%if request("page")="" then page=1
%><%
rs4.Absolutepage=page ！！！！ 这里错误显示记录集不支持标签 '指定当前页面所在页
%>
下面是输出过程
<%
For i =1 To rs4.PageSize%>
<tr>
<%for syd=1 to 7%>
<%if trim(rs4(33+syd))="00000000" then %>
<%elseif isnull(rs4(33+syd)) then%>
<%elseif (rs4(33+syd))="" then%>
<td></td>
<%else%>
<td height="21" bgcolor="#FFFFFF" class="td"><a href="seexx.asp?bh=<%=rs4(0)%>"><div align="center"><%=rs4(33+syd)%></div></a></td>
<%end if%>
&l
<table width="542" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#cccccc" bordercolordark="#FFFFFF" class="s2">
<tr>
<%
SET rs1=Server.CreateObject("Adodb.Recordset")
sql1="Select * From health"
rs1.Open sql1,conn,3
IF rs1.EOF AND rs1.BOF THEN
Response.Write("暂无信息！")
ELSE
rs1.PageSize=10
page=Clng(Request.QueryString("showpage"))
IF page<=1 THEN
page=1
END IF
IF page>=rs1.PageCount THEN
page=rs1.PageCount
END IF
rs1.AbsolutePage=page
maxcount=Cint(rs1.PageCount)
%>
<td width="120">产品名称</td>
<td>产品特点</td>
<td width="100">所属公司</td>
<td width="30">查看</td>
</tr>