动易seo优化修改{$showpage}篇-天津网站优化,天津搜索引擎优化,天津百度优化,天津Google优化,天津SEO优化,天津网站建设,天津网页制作

目前动易是这个样子

“共 36 篇文章首页上一页下一页尾页页次：1/3页 15篇文章/页转到：第X页”

一共多少篇文章，这个信息是有用的，页次和xx篇/页，觉得很不直观，其实并无太大作用，而用户找东西，一般是顺着一页一页翻的，转到第X页，我觉得是个使用率更少的东西，我参考了各大网站的分页，比较喜欢youku的方法，是这个样子的，

“共228个视频当前显示1-20个视频首页 | 上一页 | 1 2 3 4 5 6 7 8 9 | 下一页 | 尾页”

这个样子，显然是比较直观的，对于内部链接也是很有好处的。

修改起来还是比较容易的，对于大家来说，将Function ShowPage_Html整个替换掉就可以了，打开PowerEasyCommon.Front.asp
找到Function ShowPage_Html(ByVal strPath, iClassID, FileExt, sfilename, totalnumber, MaxPerPage, CurrentPage, ShowTotal, ShowAllPages, strUnit)这一行，我的在第3244行，直到End Function，我的在第3438行。将这些内柔替换为下边的内容，重新生成你的栏目页。

替换代码:

Function ShowPage_Html(ByVal strPath, iClassID, FileExt, sfilename, totalnumber, MaxPerPage, CurrentPage, ShowTotal, ShowAllPages, strUnit)
Dim NextPage, PrevPage, EndPage
Dim TotalPage, strTemp, strUrl, i
If totalnumber = 0 Or MaxPerPage = 0 Or IsNull(MaxPerPage) Then
      ShowPage_Html = ""
      Exit Function
End If
If totalnumber Mod MaxPerPage = 0 Then
      TotalPage = totalnumber \ MaxPerPage
Else
      TotalPage = totalnumber \ MaxPerPage + 1
End If

If CurrentPage > TotalPage Then CurrentPage = TotalPage

PrevPage = TotalPage - CurrentPage + 2
NextPage = TotalPage - CurrentPage

EndPage = 1

If sfilename <> "" Then
      strUrl = JoinChar(sfilename)
Else
      strUrl = ""
End If

If Right(strPath, 1) = "/" Then
      strPath = Left(strPath, Len(strPath) - 1)
End If

strTemp = strTemp & "<div class=""showpage"">"
If ShowTotal = True Then
      strTemp = strTemp & "共" & totalnumber & strUnit & " "
End If

If CurrentPage >= TotalPage Then
strTemp = strTemp & "当前显示" & (TotalPage-1)*MaxPerPage+1 & "-" & totalnumber & strUnit & " "
Elseif CurrentPage=1 Then
strTemp = strTemp & "当前显示1-" & 1*MaxPerPage & strUnit & " "
Else
strTemp = strTemp & "当前显示" & (CurrentPage-1)*MaxPerPage+1 & "-" & CurrentPage*MaxPerPage & strUnit & " "
End If

If CurrentPage = 1 Then
      strTemp = strTemp & "首页 | 上一页 |"
Else
      If iClassID > 0 Then
         strTemp = strTemp & "<a href='" & strPath & "/List_" & iClassID & FileExt & "'>首页</a> |"
      Else
         strTemp = strTemp & "<a href='" & strPath & "/" & "'>首页</a> |"
      End If
      If CurrentPage = 2 Then
         If iClassID > 0 Then
            strTemp = strTemp & " <a href='" & strPath & "/List_" & iClassID & FileExt & "'>上一页</a> |"
         Else
            strTemp = strTemp & " <a href='" & strPath & "/" & "'>上一页</a> |"
         End If
      Else
         If strUrl <> "" Then
            strTemp = strTemp & " <a href='" & strUrl & "page=" & (CurrentPage - 1) & "'>上一页</a> |"
         Else
            If iClassID > 0 Then
                  strTemp = strTemp & " <a href='" & strPath & "/List_" & iClassID & "_" & PrevPage & FileExt & "'>上一页</a> |"
            Else
                  strTemp = strTemp & " <a href='" & strPath & "/List_" & PrevPage & FileExt & "'>上一页</a> |"
            End If
         End If
      End If
End If

strTemp = strTemp & " "

If ShowAllPages = True Then
Dim Jmaxpages
If (CurrentPage - 4) <= 0 or TotalPage < 10 Then
Jmaxpages = 1
Do While (Jmaxpages<10)
If Jmaxpages = CurrentPage Then
strTemp = strTemp & "<font color=""FF0000"">" & Jmaxpages & "</font> "
ElseIf Jmaxpages = 1 Then
If iClassID > 0 Then
strTemp = strTemp & "<a href=""" & strPath & "/List_" & iClassID & FileExt & """>" & Jmaxpages & "</a> "
Else
strTemp = strTemp & "<a href=""" & strPath & "/" & """>" & Jmaxpages & "</a> "
End If
Else
If strUrl <> "" Then
   strTemp = strTemp & "<a href=""" & strUrl & "page=" & Jmaxpages & """>" & Jmaxpages & "</a> "
Else
If iClassID > 0 Then
strTemp = strTemp & "<a href=""" & strPath & "/List_" & iClassID & "_" & TotalPage - Jmaxpages + 1 & FileExt & """>" & Jmaxpages & "</a> "
Else
strTemp = strTemp & "<a href=""" & strPath & "/List_" & TotalPage - Jmaxpages + 1 & FileExt & """>" & Jmaxpages & "</a> "
End If
End If
End If
If Jmaxpages = TotalPage Then Exit Do
Jmaxpages = Jmaxpages + 1
Loop
ElseIf (CurrentPage + 4) >= TotalPage Then
Jmaxpages = TotalPage-8
Do While (Jmaxpages <= TotalPage)
If Jmaxpages = CurrentPage Then
strTemp = strTemp & "<font color=""FF0000"">" & Jmaxpages & "</font> "
ElseIf Jmaxpages = 1 Then
If iClassID > 0 Then
strTemp = strTemp & "<a href=""" & strPath & "/List_" & iClassID & FileExt & """>" & Jmaxpages & "</a> "
Else
strTemp = strTemp & "<a href=""" & strPath & "/" & """>" & Jmaxpages & "</a> "
End If
Else
If strUrl <> "" Then
   strTemp = strTemp & "<a href=""" & strUrl & "page=" & Jmaxpages & """>" & Jmaxpages & "</a> "
Else
If iClassID > 0 Then
strTemp = strTemp & "<a href=""" & strPath & "/List_" & iClassID & "_" & TotalPage - Jmaxpages + 1 & FileExt & """>" & Jmaxpages & "</a> "
Else
strTemp = strTemp & "<a href=""" & strPath & "/List_" & TotalPage - Jmaxpages + 1 & FileExt & """>" & Jmaxpages & "</a> "
End If
End If
End If
Jmaxpages = Jmaxpages + 1
Loop
Else
Jmaxpages = CurrentPage - 4
Do While (Jmaxpages < CurrentPage + 5)
If Jmaxpages = CurrentPage Then
strTemp = strTemp & "<font color=""FF0000"">" & Jmaxpages & "</font> "
ElseIf Jmaxpages = 1 Then
If iClassID > 0 Then
strTemp = strTemp & "<a href=""" & strPath & "/List_" & iClassID & FileExt & """>" & Jmaxpages & "</a> "
Else
strTemp = strTemp & "<a href=""" & strPath & "/" & """>" & Jmaxpages & "</a> "
End If
Else
If strUrl <> "" Then
   strTemp = strTemp & "<a href=""" & strUrl & "page=" & Jmaxpages & """>" & Jmaxpages & "</a> "
Else
If iClassID > 0 Then
strTemp = strTemp & "<a href=""" & strPath & "/List_" & iClassID & "_" & TotalPage - Jmaxpages + 1 & FileExt & """>" & Jmaxpages & "</a> "
Else
strTemp = strTemp & "<a href=""" & strPath & "/List_" & TotalPage - Jmaxpages + 1 & FileExt & """>" & Jmaxpages & "</a> "
End If
End If
End If
Jmaxpages = Jmaxpages + 1
Loop
End If
End If

If CurrentPage >= TotalPage Then
      strTemp = strTemp & "| 下一页 | 尾页"
Else
      If strUrl <> "" Then
         strTemp = strTemp & "| <a href='" & strUrl & "page=" & (CurrentPage + 1) & "'>下一页</a> "
         strTemp = strTemp & "| <a href='" & strUrl & "page=" & TotalPage & "'>尾页</a>"
      Else
         If iClassID > 0 Then
            strTemp = strTemp & "| <a href='" & strPath & "/List_" & iClassID & "_" & NextPage & FileExt & "'>下一页</a> "
            strTemp = strTemp & "| <a href='" & strPath & "/List_" & iClassID & "_" & EndPage & FileExt & "'>尾页</a>"
         Else
            strTemp = strTemp & "| <a href='" & strPath & "/List_" & NextPage & FileExt & "'>下一页</a> "
            strTemp = strTemp & "| <a href='" & strPath & "/List_" & EndPage & FileExt & "'>尾页</a>"
         End If
      End If
End If

strTemp = strTemp & "</div>" & vbCrLf

If ShowAllPages = True And TotalPage > 20 Then
      strTemp = strTemp & "<script language='javascript'>" & vbCrLf
      strTemp = strTemp & "function gopage(page,totalpage){" & vbCrLf
      strTemp = strTemp & "  if (event.keyCode==13){" & vbCrLf
      strTemp = strTemp & " if(Math.abs(page)>totalpage) page=totalpage;" & vbCrLf
      If iClassID > 0 Then
         If strUrl <> "" Then
            strTemp = strTemp & " if(Math.abs(page)>1) window.location='" & strUrl & "page='" & "+Math.abs(page);" & vbCrLf
         Else
            strTemp = strTemp & " if(Math.abs(page)>1) window.location='" & strPath & "/List_" & iClassID & "_'" & "+(totalpage-Math.abs(page)+1)+'" & FileExt & "';" & vbCrLf
         End If
         strTemp = strTemp & " else  window.location='" & strPath & "/List_" & iClassID & FileExt & "';" & vbCrLf
      Else
         If strUrl <> "" Then
            strTemp = strTemp & " if(Math.abs(page)>1) window.location='" & strUrl & "page='" & "+Math.abs(page);" & vbCrLf
         Else
            strTemp = strTemp & " if(Math.abs(page)>1) window.location='" & strPath & "/List_'+(totalpage-Math.abs(page)+1)+'" & FileExt & "';" & vbCrLf
         End If
         strTemp = strTemp & " else  window.location='" & strPath & "/Index" & FileExt & "';" & vbCrLf
      End If
      strTemp = strTemp & "  }" & vbCrLf
      strTemp = strTemp & "}" & vbCrLf
      strTemp = strTemp & "</script>" & vbCrLf
End If
ShowPage_Html = strTemp
End Function

天津搜索引擎优化网（SEO）竭诚为天津企业提供最完善的网站排名优化、分析、搜索引擎营销（SEM）方案、企业电子商务解决方案和天津阿里巴巴办理咨询！

动易seo优化修改{$showpage}篇

Tags: 天津阿里巴巴

发布:coldfire| 分类:搜索引擎优化| 评论:0| 引用:0| 浏览:

日历

最新评论及回复

最近发表

Search

网站目录

文章归档

天津搜索引擎优化，天津阿里巴巴渠道公司，天津网站建设，天津华硕笔记本总代理，天津网站优化，天津百度优化，天津Google优化，天津阿里巴巴诚信通服务总代理

	About Us \| Contact Us \| GuestBook \| Search \| Tags \| Rss
天津阿里巴巴渠道.天津搜索引擎优化,天津百度优化,天津Google优化,天津SEO优化,天津网站建设,天津做网站	Search