图片内容页的分页方式缺少标签-领先建站CMS提供服务商我们专注于CMS建站产品的研发

11874 查看	2 回复

主题：图片内容页的分页方式缺少标签 [收藏主题]

makor 当前离线

20 主题	0 广播	0 粉丝

级别:学前班

用户积分:153 分
登录次数:21 次
注册时间:2009/11/17
最后登录:2014/2/21

makor 发表于：2009/12/11 13:09:00 | 只看该作者查看该作者主题楼主

做官网就用科汛智能建站系统!

页面Kesion.Label.CommonCls.asp 中的内容分页缺少标签</div>

If TotalPage > 1 Then
       PageStr="<div class=""kspage"">" & vbcrlf & "<div style=""text-align:center"">"
       If I = 0 Then
         PageStr = PageStr & "<a href=" & ShowUrl & Fname & "_" & (CurrPage + 1) & FExt & ">下一张>></a><br>"
         NextUrl=ShowUrl & Fname & "_" & (CurrPage + 1) & FExt
       ElseIf I = 1 And I <> TotalPage - 1 Then '对于最后一张刚好是第二张的要做特殊处理
         PageStr = PageStr &"<a href=" & ShowUrl & sFname & "><<上一张</a>      <a href=" & ShowUrl & Fname & "_" & (CurrPage + 1) & FExt & ">下一张>></a><br>"
         NextUrl=ShowUrl & Fname & "_" & (CurrPage + 1) & FExt
       ElseIf I = 1 And I = TotalPage - 1 Then
         PageStr = PageStr &"<a href=" & ShowUrl & sFname & "><<上一张</a><br>"
         NextUrl=ShowUrl & sFname
       ElseIf I = TotalPage - 1 Then
         PageStr = PageStr &"<a href=" & ShowUrl & Fname & "_" & (CurrPage - 1) & FExt & "><<上一张</a>"
         NextUrl=ShowUrl & sFname
       Else
         PageStr = PageStr &"<a href=" &ShowUrl & Fname & "_" & (CurrPage - 1) & FExt & "><<上一张</a>      <a href=" &ShowUrl & Fname & "_" & (CurrPage + 1) & FExt & ">下一张>></a>"
         NextUrl=ShowUrl & Fname & "_" & (CurrPage + 1) & FExt
       End If
       PageStr =PageStr & "</div>"

       PageStr = PageStr & "<br /><div style=""text-align:left"">" & Split(PicUrlsArr(CurrPage-1), "|")(0) & "</div>"
        startpage=1:k=0 : if (CurrPage>=10) then startpage=(CurrPage\10-1)*10+CurrPage mod 10+2
        PageStr = PageStr & "<br /><div style=""text-align:center""><a href=""#"">共<font color=""red""> " & startpage & "/" & TotalPage & "</font> 张</a>  "

         PageStr=PageStr & "<a href=""" & ShowUrl & sFname & """ title=""首页"">首页</a> "
         if CurrPage<>1 then
        if currpage=2 then
         PageStr=PageStr & "<a href=""" & ShowUrl & sFname & """ title=""上一页""><<</a> "
        else
         PageStr=PageStr & "<a href=""" & ShowUrl & Fname & "_" & CurrPage-1 & FExt & """ title=""上一页""><<</a> "
        end if
         end if

        For N = cint(startpage) To TotalPage
        If N = 1 Then
          If CurrPage = N Then
         PageStr = PageStr & "<a href=""#""><font color=""red"">" & N & "</font></a> "
          Else
        PageStr = PageStr & "<a href=" & ShowUrl & sFname & ">" & N & "</a> "
         End If
       Else
          If CurrPage = N Then
          PageStr = PageStr & "<a href=""#""><font color=""red"">" & N & "</font></a> "
          Else
         PageStr = PageStr & "<a href=" & ShowUrl & Fname & "_" & N & FExt & ">" & N & "</a> "
          End If
       End If

       k=K+1:If k >= 10 Then exit for
       Next

       If CurrPage <>totalpage Then PageStr=PageStr & "<a href=""" & ShowUrl & Fname & "_" & CurrPage+1 & FExt & """ title=""下一页"">>></a> "
      PageStr=PageStr & "<a href=""" & ShowUrl & Fname & "_" & TotalPage & FExt & """ title=""末页"">末页</a> "
      PageStr=PageStr & "</div>"    '应该改为PageStr=PageStr & "</div></div>"
       Else
      NextUrl="#"
      PageStr = ""
       End If