求助：为什么不能正确分页呢？？？？ - ASP技术论坛

问题点数：0 回复次数：6

求助：为什么不能正确分页呢？？？？

请各位高行帮我看一下下面的代码，为什么不能正确的分页呢？！


<%
area=request("area")
jobclass=request("jobclass")
sex=request("sex")
'response.write sex
xueli=request("xueli")
workstate=request("workstate")
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from Job_ILeag inner join Job_resume on ILeag_id=rsm_ILeagid where 1=1"
if area<>" " then sql=sql&" and rsm_jobarea1='"&area&"' or rsm_jobarea2='"&area&"' "
if jobclass<>" " then sql=sql&" and rsm_job1='"&jobclass&"' or rsm_job2='"&jobclass&"' "
if sex<>" " then sql=sql&" and ILeag_sex='"&sex&"' "
if xueli<>" " then sql=sql&"and ILeag_schrec='"&xueli&"' "
if workstate<>" " then sql=sql&"and rsm_chara='"&workstate&"' "
response.write sql
rs.pagesize=2
rs.cursorlocation=3
rs.open sql,conn,1,1
page=request("page")
if cint(page)="" or cint(page)=0 then
page=1
end if
if cint(page)>rs.pagecount then
page=rs.pagecount
end if
%>

<table width="567" border="1">
<tr>
<td><div align="center">姓名</div></td>
<td><div align="center">学历</div></td>
<td><div align="center">年龄</div></td>
<td><div align="center">工作经验</div></td>
<td><div align="center">期望月薪</div></td>
<td><div align="center">现居住地</div></td>
</tr>
<%
if rs.eof then
response.write "数据库暂无您要查询的信息！"
%>
<%else
rs.absolutepage=page
%>

<% for i=0 to 1 %>
<% if not rs.eof then%>
<tr>
<td>  <a href="preview_resume_search.asp?id=<%=rs("ILeag_id")%>" ><% =rs("ILeag_name")%></td>
<td> <%=rs("ILeag_schrec")%></td>
<td> <%=rs("ILeag_age")%></td>
<td> <%=rs("ILeag_workyear")%></td>
<td> <%=rs("rsm_wage")%></td>
<td> <%=rs("ILeag_address")%></td>
</tr>
<% rs.movenext
end if %>

<% next
end if
%>
<%
if rs.pagecount>=1 then
response.write"<tr><td colspan=4 align=right bgcolor=#fffbf7>"&_
"共有"&rs.pagecount&"页　　这是第"&page&"页　　<a href='search_show.asp?page="&page-1&"'>上一页</a>　　<a href='search_show.asp?page="&page+1&"'>下一页</a>"&_
"</td></tr>"
end if %>

<%
rs.close
set rs=nothing
%>

</table>

搜索更多相关主题的帖子: sql　xueli　request　include　inner　

第 2 楼

得分:0

<%
area=request("area")
jobclass=request("jobclass")
sex=request("sex")
'response.write sex
xueli=request("xueli")
workstate=request("workstate")
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from Job_ILeag inner join Job_resume on ILeag_id=rsm_ILeagid where 1=1"
if area<>" " then sql=sql&" and rsm_jobarea1='"&area&"' or rsm_jobarea2='"&area&"' "
if jobclass<>" " then sql=sql&" and rsm_job1='"&jobclass&"' or rsm_job2='"&jobclass&"' "
if sex<>" " then sql=sql&" and ILeag_sex='"&sex&"' "
if xueli<>" " then sql=sql&"and ILeag_schrec='"&xueli&"' "
if workstate<>" " then sql=sql&"and rsm_chara='"&workstate&"' "
response.write sql
rs.pagesize=2
rs.cursorlocation=3
rs.open sql,conn,1,1
page=request("page")
if cint(page)="" or cint(page)=0 then
page=1
end if
if cint(page)>rs.pagecount then
page=rs.pagecount
end if
%>

<table width="567" border="1">
<tr>
<td><div align="center">姓名</div></td>
<td><div align="center">学历</div></td>
<td><div align="center">年龄</div></td>
<td><div align="center">工作经验</div></td>
<td><div align="center">期望月薪</div></td>
<td><div align="center">现居住地</div></td>
</tr>
<%
if rs.eof then
response.write "数据库暂无您要查询的信息！"
%>
<%else
rs.absolutepage=page
%>

<%
i=1
do while not rs.eof and i<rs.pagesize

%>
<tr>
<td>  <a href="preview_resume_search.asp?id=<%=rs("ILeag_id")%>" ><% =rs("ILeag_name")%></td>
<td> <%=rs("ILeag_schrec")%></td>
<td> <%=rs("ILeag_age")%></td>
<td> <%=rs("ILeag_workyear")%></td>
<td> <%=rs("rsm_wage")%></td>
<td> <%=rs("ILeag_address")%></td>
</tr>
<% rs.movenext
i=i+1
loop
end if %>

<%
end if
%>
<%
if rs.pagecount>=1 then
response.write"<tr><td colspan=4 align=right bgcolor=#fffbf7>"&_
"共有"&rs.pagecount&"页　　这是第"&page&"页　　<a href='search_show.asp?page="&page-1&"'>上一页</a>　　<a href='search_show.asp?page="&page+1&"'>下一页</a>"&_
"</td></tr>"
end if %>

<%
rs.close
set rs=nothing
%>

</table>

中国人的财富网:http://www..cn/

第 3 楼

得分:0

呵呵....我试了，改成楼上说的还是不行耶，到底是怎么回事呀？？

第 4 楼

得分:0

<% i=i+1
rs.movenext

loop
end if %>
有没有什么提示

中国人的财富网:http://www..cn/

第 5 楼

得分:0

偶研究个分页，共享一下下，我太菜，。拿去美化后可以变成更加强大的功能

'**=================================================
'函数名：listPic()
'参数：max,c,r,types,U
'功能：实现分页功能，有别于一般的分页，全部一参数传值，参数不同，效果不同
'max,c,r,t，U分别为：该页总记录，每行总数，每列总数,列表类型，U接收用户名
'比如1为按详细信息列，2为按缩略图排列，这样可以达到多功能的分页效果
'多次调用，所以必须传递多的参数
'无返回值
Public Function listPic(max,c,r,PageNo,types,BigName,U)
dim rs,sql,StrTemp
IF types="" Then
sql="select * from User_Pic where isY=False and isH=False and Flag=True "
If U<>"" Then
sql=sql&" and UserID='"+U+"' "
End If
else
sql="select * from User_Pic where isY=False and isH=False and Flag=True and PicType='"+types+"' "
If U<>"" Then
sql=sql&"and UserID='"+U+"' "
End If
end if
sql=sql&" order by ID DESC"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
E_PageMax=max
rs.PageSize=E_PageMax
Pcunt=rs.PageCount
AllCount=rs.recordcount
if PageNo="" or PageNo<1 then
PageNo=1
else
PageNo=cint(PageNo)
end if
if PageNo+1 >Pcunt+1 then
PageNo=Pcunt
end if
n=0
if Pcunt>0 then rs.AbsolutePage=PageNo
if not rs.EOF and n<E_PageMax then
colzs=c '显示列
rowzs=r '显示行
'插入不同的表
StrTemp=StrTemp& "<table align='center' width='100%' height='136' border='0' cellpadding='6' cellspacing='1' bgcolor='#FFFFFF'>"
for i=1 to rowzs
if not rs.EOF then
StrTemp=StrTemp&"<tr >"
for j=1 to colzs
if not rs.EOF and n<E_PageMax then
DIM PicAddr,PicID,URLstr
PicAddr="../"&rs("PicAddr")
PicID=rs("ID")
PicName=rs("PicName")
if U="" Then
URLstr="<a href='ViewPic.asp?PicID="&PicID&"&Types="&BigName&"' target='_blank'>"
else if Checksesion(U) then
'在UserIndex.asp页面里调用，则更改连接地址
URLstr="<a href='../Picshow/ViewPic.asp?PicID="&PicID&"&Types="&BigName&"' target='_blank'>"
end if
end if
StrTemp=StrTemp&"<td>"
'可以多方式排列
StrTemp=StrTemp&"<table width='130' height='136' border='0' cellpadding='0' cellspacing='0' bgcolor='#BFE1F2' align='center'>"
StrTemp=StrTemp&"<tr>"
StrTemp=StrTemp&"<td align='center' valign='middle'>"&URLstr&"<img src="&PicAddr&" alt='点击图片放大！' width='120' height='120' border='0' align='center' onload='javascript:DrawImage(this);'></a></td>"
StrTemp=StrTemp&"</tr>"
StrTemp=StrTemp&"<tr><td align='center' class='ziti'>"&URLstr&"<font color='#006699'>"&PicName&"</font></a></td></tr>"
StrTemp=StrTemp& "</table>"
StrTemp=StrTemp&"</td>"
rs.MoveNext
n=n+1
end if
next
StrTemp=StrTemp&"</tr>"
end if
max=max-1
next
StrTemp=StrTemp&"</table>"
end if
rs.close
set rs=nothing
response.Write StrTemp
CALL FenYe(PageNo,Pcunt,AllCount,c,r,U)
End Function
'**=============================================
'**=============================================
Public Function FenYe(PageNo,Pcunt,AllCount,c,r,U)
dim strTemp:strTemp=""
dim urlstr1,urlstr2,backgroundPic1,backgroundPic12
urlstr1="<a href='?PageNo="&PageNo-1&"&BigName="&BigName
urlstr2="<a href='?PageNo="&PageNo+1&"&BigName="&BigName
backgroundPic1="PicImage/shbt.jpg"
backgroundPic2="PicImage/xiabt.jpg"
If U="" then
else if Checksesion(U) then
'当为UserIndex.asp页面调用该函数时，并检测确实存在该用户时，以下连接地址将发生变化
urlstr1=urlstr1&"&UserName="&U
urlstr2=urlstr2&"&UserName="&U
backgroundPic1="../Picshow/PicImage/shtb.jpg"
backgroundPic2="../Picshow/PicImage/xiabt.jpg"
end if
end if
strTemp=strTemp&"<table width='100%' height='26' border='0' align='center' cellpadding='0' cellspacing='1' bgcolor='#49AAE4'>"
strTemp=strTemp&"<tr>"
strTemp=strTemp&"<td align='center' bgcolor='#6CBCE8'><table width='160' height='26' border='0' cellpadding='0' cellspacing='0'>"
strTemp=strTemp&"<tr>"
strTemp=strTemp&"<td width='68' align='center' background='"&backgroundPic1&"' class='ttt'>"&urlstr1&"'>      </a></td>"
strTemp=strTemp&"<td width='26' align='center' class='musicl'> </td>"
strTemp=strTemp&"<td width='68' align='center' background='"&backgroundPic2&"' class='ttt'>"&urlstr2&"'>      </a></td>"
strTemp=strTemp&"</tr>"
strTemp=strTemp&"</table></td>"
strTemp=strTemp&"</tr>"
strTemp=strTemp&"</table>"
Response.Write(strTemp)
End Function
'*********************
'分页显示1 2 3 4 5 6
'*********************
Sub pages(n,pageno,maxpage)
n=n-1
pagelast=pageno+n
If pageno+n>=maxpage then
pagelast=maxpage
End If
link="<a href=memlist.asp?pageno=1&Group_ID="&request("Group_ID")&"><<</a> "
link=link&"<a href=memlist.asp?pageno="&pageno-1&"&Group_ID="&request("Group_ID")&"><</a> "
Response.write link
For i=pageno to pagelast
dim str
str=" <a href=memlist.asp?pageno="&i&"&Group_ID="&request("Group_ID")&">"&i&"</a>"
Response.Write str
Next
link1="  <a href=memlist.asp?pageno="&pageno+1&"&Group_ID="&request("Group_ID")&">></a>"
link1=link1&" <a href=memlist.asp?pageno="&maxpage&"&Group_ID="&request("Group_ID")&">>></a>"
Response.write link1&"     Page:"&pageno&"/"&maxpage

End Sub

外贸综合平台：E贸通

第 6 楼

得分:0

<% i=i+1
rs.movenext

loop
end if %>
有没有什么提示
没有什么提示呀，就是不能正确显示呀，why??？

第 7 楼

得分:0

<% for i=0 to 1 %>
<% if not rs.eof then%>
<tr>
<td>  <a href="preview_resume_search.asp?id=<%=rs("ILeag_id")%>" ><% =rs("ILeag_name")%></td>
<td> <%=rs("ILeag_schrec")%></td>
<td> <%=rs("ILeag_age")%></td>
<td> <%=rs("ILeag_workyear")%></td>
<td> <%=rs("rsm_wage")%></td>
<td> <%=rs("ILeag_address")%></td>
</tr>
<% rs.movenext
end if %>

<% next
页面内容循环不对改成下面这样试试。
<% for i=1 to rs.PageSize %>
<tr>
<td>  <a href="preview_resume_search.asp?id=<%=rs("ILeag_id")%>" ><% =rs("ILeag_name")%></td>
<td> <%=rs("ILeag_schrec")%></td>
<td> <%=rs("ILeag_age")%></td>
<td> <%=rs("ILeag_workyear")%></td>
<td> <%=rs("rsm_wage")%></td>
<td> <%=rs("ILeag_address")%></td>
</tr>
<% rs.movenext
if rs.eof then
exit for
end if
%>

<% next