ewebedit里的分页 |技术文档|里盟信息技术有限公司，网站建设热线：021 58917498

在用ewebedit的时候，里面有个功能是“分页”，我们得用自己的函数来给这种做了标记的文章分页

<%
                          'text=replace(Infocontent,"NT>","")
                                                       text=Infocontent
                            text=ShowPag(text,True)'Lukin修改
                            text=Replace(text,"[--分页--]","")
                            'response.write replace(text,"V>","")
                            text=replace(text,"http://test.xqit.net/guosheng/","")
                            response.Write(text)
                          %>
<%
Function ShowPag(Byval Text,Byval Way)
dim SplitStr,Str
SplitStr="[--分页--]"
If Instr(Text,SplitStr)<>0 Then

Start=Instr(Text,"[--分页--]")
SplitStr=Mid(Text,Start-16,28)
End if

Str=Split(Text,SplitStr)
PageCount=Ubound(Str)+1
ID=Trim(Request("ID"))
Page=Trim(Request("Page"))

If PageCount>1 Then
                  If Page<>"" And IsNumeric(Page) Then
                     Page=int(Page)
                  End If

                  If Page="" Or Not IsNumeric(Page) Then
                      Page=1
                  End If

                  If Int(Page)>PageCount Then
                      Page=PageCount
                  End If


                  If Way Then
                               StrTemp = ""
                             StrTemp = StrTemp&str(Page-1)
                             StrTemp = StrTemp&"
"
                             StrTemp = StrTemp&"共 "&PageCount&" 页 "
                             StrTemp = StrTemp&"第 "&Page&" 页 "

                             If Int(Page)>1 Then
                                 StrTemp = StrTemp&" 首页上一页 "
                             Else
                                 StrTemp = StrTemp&" 首页上一页 "
                             End If

                             If Int(Page)
                                 StrTemp = StrTemp&" 下一页尾页 "
                             Else
                                 StrTemp = StrTemp&" 下一页   尾页 "
                             End If

                             StrTemp = StrTemp&"

"

                  Else
                              StrTemp = StrTemp&Text
                  End If
Else
      StrTemp = StrTemp&Text
End If

ShowPag = StrTemp

End Function
%>