求图片显示增加翻页代码，求教wangjy500版主。谢谢！ - ASP技术论坛

楼主

已结贴√ 问题点数：20 回复次数：8

求图片显示增加翻页代码，求教wangjy500版主。谢谢！

图片附件: 游客没有浏览图片的权限，请登录或注册

现在是有多少图片都在一个页面显示，修改成3行图片，每行3个。
先谢了。

搜索更多相关主题的帖子: 图片　 include　border　center　

第 2 楼

得分:0

需要的功能：
共*页首页上页下页尾页

第 3 楼

得分:0

你好。谢谢。
缺少 'While' 和 'Until'或语句未结束

/productionb.asp，行 57

do whlie not rs.eof and i>0 '循环直到当前页结束或者记录集结尾

出现这个！

第 4 楼

得分:0

<body>

<table width="990"  border="0" cellpadding="0" cellspacing="0">
  <tr valign="top">
    <td width="180" height="100" align="center" bgcolor="#5E0000"></td>
    <td align="center"><br>
      <br>
    <table width="93%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td align="center" valign="top"><table width="100%"  border="0"
cellspacing="0" cellpadding="0">
  <tr>
    <td><table width="100%" border="0" cellpadding="0" cellspacing="0"
class="line">
      <tr>
        <td valign="bottom">  <b><%=unescape(request.QueryString
("classname"))%></b></td>
      </tr>
    </table>
    <br>
    <table width="100%" height="100%" border="0" align="center"
cellpadding="0"  cellspacing="0" class="mainFont">
      <tr>
        <td valign="top">

<% Dim page_no   '定义一个页面记录变量
    If Request.QueryString("page_no")="" Then   '如果返回的没有内容则显示是第
一页
        page_no=1
    Else
        page_no=CInt(Request.QueryString("page_no")) 'CInt函数表示将字符串转
换为整数
    End If
classid=request.QueryString("classid")
   set rs=Server.CreateObject("adodb.recordset")
   rs.open "select * from PSClass_table where OneClassID=" & classid & "
order by OrderNumber asc,ClassName asc",conn,1,1  '按照字段降序排列查询输出
   rs.PageSize=5     '设置每个页面显示五条信息
    dim page_total
    page_total=rs.PageCount 'page_total返回总页数
    rs.AbsolutePage=page_no  '设置当前显示第几页，利用传递过来的page_no
        dim i
        i=5                  'i用来控制当前页面记录，需要和PageSize保持一致
        '下面循环输出内容
        do whlie not rs.eof and i>0  '循环直到当前页结束或者记录集结尾
%>

        </td>
      </tr>

      <tr>
        <td height="210" align="center" valign="top" class="pointCss">作品更
新中...</td>
      </tr>


      <tr>
        <td valign="top"><table width="100%" border="0" cellpadding="0"
cellspacing="0" class="mainFont">
          <tr align="center">

            <td width="33%" valign="top"><br>
              <a href="productionc.asp?cNum=2&classid=<%=trim(rs("id"))%
>&classname=<%=escape(trim(rs("ClassName")))%>&gototop=0"><img
src="classimages/smallimages/<%=trim(rs("ClassImages"))%>" alt="<%=trim(rs
("ClassName"))%>" onload="DrawImage(this,160,170)" border="0"></a>
              <br>
              <%=trim(rs("ClassName"))%>
              <br>
              <br>
              </td>

            <td width="33%"> </td>

          </tr>
        </table>
        </td>
      </tr>


<tr>     <td height="40" align="center" valign="bottom"  class="line"><a
href="javascript:history.go(-1)">【返回】</a><br><br></td>
            </tr>

    </table></td>
  </tr>
</table>
<br>
      <br>
</td>
        <td width="40" align="center" valign="top"><%
rs.movenext
loop
rs.close
set rs=nothing         '每次在用完数据集的时候都要关闭并且清空操作记录可以节
省内存开支
Response.Write"共有"&page_total&"页，"
Response.Write"当前显示第"&page_no&"页，"
dim numPre,numNext
numPre=page_no-1
numNext=page_no+1
'输出第一页的链接
Response.Write "<a href='productionb.asp?page_no=1'>第一页</a>"
’如果page_no=0那么已经是第一页不需要下一页
if numPre=0 then
   Response.Write "  上一页"
Else
   Response.Write "  <a href='productionb.asp?page_no=" & numPre &
"'>上一页</a>"
End If
'然后输出下一页的链接，如果numPre>page_total，表示当前已经是最后一页了，不需
要下一页了，所以不要加超链接
If numNext>page_total Then
   Response.Write "  下一页"
Else   Response.Write "  <a href='productionb.asp?page_no=" &
numNext & "'>下一页</a>"
End If
'输出最后页的链接
Response.Write "  <a href='productionb.asp?page_no=" & page_total &
"'>最后页</a>"

%>
         </td>
      </tr>
    </table>
    </td>
  </tr>
</table>

</body>

[ 本帖最后由 hemi 于 2012-3-4 18:53 编辑 ]

第 5 楼

得分:0

感谢wangjy500老师，谢谢jonathen！
3个问题，
第一，

图片附件: 游客没有浏览图片的权限，请登录或注册

翻页条跑到上面去了。
第二，点翻页条，可以点第一页，也可以点最后页，点了后出现

图片附件: 游客没有浏览图片的权限，请登录或注册

第三，设置一个页面6个图，但是，还是出来9个图。
感谢。

第 6 楼

得分:0

jonathen兄：还是搞不定
要不麻烦你下，你根据我第一帖的代码。帮忙改下出来。
谢谢。

第 7 楼

得分:0

<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_mylink_STRING,conn
'MM_mylink_STRING = "driver={Microsoft Access Driver (*.mdb)};dbq=D:\familystar\familystardb\fdb.mdb"
MM_mylink_STRING="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath(""&"fsdb/@#fsdb.mdb"&"")&";"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open MM_mylink_STRING
%>

用的@#fsdb.mdb这个。
谢谢了。

第 8 楼

得分:0

顶顶。

第 9 楼

得分:0

再顶