动易seo修改{$showpage}篇

bgag

动易seo修改{$showpage}篇
1：从搜索的角度来讲，我不知道bd或者gg是不是会抓取select表单中的链接，或者权重怎么样，所以我希望以链接的形式表示出来，但是事实上，动易的标签只有上下页和首页末页是直接通过a标签来展示的，更要命的是，首页的链接中包含index.xxx等内容，权重显然不如目录，所以，我要改。

2：从用户易用性角度来讲，目前动易是这个样子

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

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

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

    这个样子，显然是比较直观的，于是乎，挥动我勤劳的双手，用仅有的asp知识，对动易进行了修改。

二：怎么改？

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

演示地址:http://www.tipsky.net/diannao/xitong/

替换代码:

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

车大炮

那个贴子 让它沉下去吧！ 不要啦