ASP 分页问题 - ASP技术论坛

gwljp

来　自：北京
等　级：新手上路
帖　子：10
专家分：0
注　册：2011-5-18
结帖率：0

楼主

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

ASP 分页问题

<%
dim nowYear,nowMonth,nowDay,nowHour,nowMinute,nowSecond,tqTime
MaxPerPage=20
session("activepage")=request("activepage")
%>
<HTML>
<HEAD>
<title></title>
<LINK href="css/front_css.css" rel="stylesheet">

</HEAD>
<BODY bottomMargin="0" leftMargin="0" topMargin="0" rightMargin="0" bgColor="#ecf4fb">

<table width="57%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
   <td height="36" background="piciewbg_1.gif" ></td>
</tr>
<tr>
   <td background="piciew_mid.jpg" align="center">

     <table width="96%" border="0" align="center" cellpadding="4" cellspacing="0">
   <tr>
<td>
<%
Set rsArticle= Server.CreateObject("ADODB.Recordset")
sql="select top 100 ArticleID,ClassID,Title,Author,CopyFrom,UpdateTime,Editor,TitleFontColor,TitleFontType,qishu,IncludePic,PaginationType,DefaultPicUrl"
sql=sql & " from Article "
sql=sql & " where Deleted=0 order by UpdateTime desc"' and (BSNM='"& application("stnm")&"' or IsAll=1) order by UpdateTime desc"
rsArticle.open sql,conn,1

rsArticle.PageSize=2
if request("page")<>"" then
epage=cint(request("page"))
    if epage<1 then
epage=1
    if epage>rsArticle.pagecount then
epage=rsArticle.pagecount
else
    epage=1
end if
    rsArticle.absolutepage=epage
if rsArticle.bof and  rsArticle.eof then
response.write "<li>没有任何文章<>"
else
for i=0 to 5
%>
<tr><td>
<%
call ArticleContent(540,true,true,false,1,false)
'Response.Write "<li>"+rsArticle(2).Value +"<>"
%>
</td></tr>

<%
rsArticle.movenext()
next
exit for
end if

rsArticle.close
%></td>
   </tr>

   <tr>
   <td>
   <p align="center">
<a href="" style="color:black">首页</a> 
<a href="ShowArticleList.asp" style="color:black">前一页</a> 
<a href="ShowArticleList.asp" style="color:black">后一页</a> 
<a href="ShowArticleList.asp" style="color:black">末页</a>
</p>
   </td>
   </tr>
   <tr>
   <td align="right"><a href="#" style="color:black;" onclick="javascript:history.back()">返回</a></td>
   </tr>
</table>
   </td>
</tr>
<tr>
   <td height="18" background="piciew_down.jpg"></td>
</tr>
</table>
</BODY>
</HTML>

该怎么循环要输出的字段啊！为啥我一循环就出错啊，我都找不倒错误！

搜索更多相关主题的帖子: function　

2011-05-18 16:50

g25280171

等　级：新手上路
帖　子：6
专家分：0
注　册：2011-5-20

第 3 楼

得分:0

建议你用如下分页代码吧  是数显的！直接拿着用
<%
    set rs=server.CreateObject("ADODB.recordset")
     sql ="select * from produit order by huohao "
     rs.open sql,conn,1,1
     page=cint(request("page"))
     n=rs.RecordCount
     rs.pagesize=5
     h=rs.pagesize
     m=cint(rs.pagecount)
     if page="" then
        page=1
     elseif page<1 then
            page=1
     end if
     if cint(request("page"))>m then
        page=m
     end if
     page=cint(page)
     if not rs.eof then
     rs.absolutepage=page
     end if

     if m>page+3 then
     endpage=page+3
     else
     endpage=m
     end if
     if page>4 then
        pagetitle=pagetitle &"[" &"<a href=dsj.asp?page=1>1<a>"&"]"& "...."
     end if
     for i=page-3 to endpage
     if not i<1 then
         if i = page then
             pagetitle=pagetitle & " " & "<B>["&i&"]</B>"
         else
             pagetitle=pagetitle & " " & "[" & "<a href=dsj.asp?page="&i&">"&i&"<a>"&"]"
         end if
     end if
     next

     if page+3 < m then
     l=int(n/h)+1
           pagetitle=pagetitle& "...."& "第"&"[" & "<a href=dsj.asp?page="&l&">"&l&"<a>"&"]"&"页 "
     end if
      yema=pagetitle
%>
<%
'这里就可以自定义显示方式了
for i=1 to rs.pagesize
    if not rs.eof then
        response.write rs("huohao") & "<br/>"
        rs.movenext
    else
         exit for
    end if
next

Response.Write(yema)
Response.Write("共计:"&int(n/h)+1)&"页 每页"&h&"笔记录"%>

2011-05-20 12:55

gwljp

来　自：北京
等　级：新手上路
帖　子：10
专家分：0
注　册：2011-5-18

第 5 楼

得分:0

多谢了，问题解决了!

2011-05-20 15:00