请大家帮助啊 我这里有一个asp的分页 只能显示第一页 点击第二页就没有了内容。 20
请大家帮助啊我这里有一个asp的分页只能显示第一页点击第二页就没有了内容。代码如下:此代码以上的代码为通过查询数据库得到了值-----rs.openexec,conn,1...
请大家帮助啊 我这里有一个asp的分页 只能显示第一页 点击第二页就没有了内容。 代码如下 : 此代码以上的代码为通过查询数据库得到了值 -----
rs.open exec,conn,1,1
if rs.eof then
response.Write " 没有搜索到相关内容!"
else
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
For i=1 To x%>
<table width="700" border="0" cellspacing="0" cellpadding="0" style="border:1px solid #ccc; margin-top:10px;" align="center">
<tr>
<td rowspan="3" align="center" width="120"><a href="showuser.asp?id=<%=rs("id")%>" target="_blank"><img src="<%=rs("img")%>" width="88" height="120" style=" margin:5px;" /></a></td>
<td height="30"><a href="showuser.asp?id=<%=rs("id")%>" target="_blank"><%=rs("username")%></a> <%=rs("sex")%></td>
<td>交友目的:<font color="red"><%=rs("kind")%></font></td>
<td>人气:<font color="red"><%=rs("llcs")%></font></td>
</tr>
<tr>
<td height="30">出生年月:<%=rs("year1")%>-<%=rs("month1")%>-<%=rs("day1")%></td>
<td>身高:<%=rs("height_")%>CM</td>
<td>所在地:<%=rs("ddlprovince")%>-<%=rs("ddlcity")%>-<%=rs("ddlarea")%></td>
</tr>
<tr>
<td height="70" colspan="3" valign="top">个人独白:<%=rs("dubai")%></td>
</tr>
</table>
<%rs.movenext
next
end if
%>
<%'以下显示分页
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
rs.close
set rs=nothing
%>
------------------------------------------
上面有调用一个ASP的分页类 参数传输也正确 另一个页面相同的代码 可以显示第二页 但是写到这个文件里 就不行。 展开
rs.open exec,conn,1,1
if rs.eof then
response.Write " 没有搜索到相关内容!"
else
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
For i=1 To x%>
<table width="700" border="0" cellspacing="0" cellpadding="0" style="border:1px solid #ccc; margin-top:10px;" align="center">
<tr>
<td rowspan="3" align="center" width="120"><a href="showuser.asp?id=<%=rs("id")%>" target="_blank"><img src="<%=rs("img")%>" width="88" height="120" style=" margin:5px;" /></a></td>
<td height="30"><a href="showuser.asp?id=<%=rs("id")%>" target="_blank"><%=rs("username")%></a> <%=rs("sex")%></td>
<td>交友目的:<font color="red"><%=rs("kind")%></font></td>
<td>人气:<font color="red"><%=rs("llcs")%></font></td>
</tr>
<tr>
<td height="30">出生年月:<%=rs("year1")%>-<%=rs("month1")%>-<%=rs("day1")%></td>
<td>身高:<%=rs("height_")%>CM</td>
<td>所在地:<%=rs("ddlprovince")%>-<%=rs("ddlcity")%>-<%=rs("ddlarea")%></td>
</tr>
<tr>
<td height="70" colspan="3" valign="top">个人独白:<%=rs("dubai")%></td>
</tr>
</table>
<%rs.movenext
next
end if
%>
<%'以下显示分页
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
rs.close
set rs=nothing
%>
------------------------------------------
上面有调用一个ASP的分页类 参数传输也正确 另一个页面相同的代码 可以显示第二页 但是写到这个文件里 就不行。 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询