ASP长文章分页

 

 
< %
Class aspxsky_page
  Private   Sub  class_initialize
  End Sub

  Public   Function  Alert(message,gourl)
    message  =   replace (message, " ' " , " ' " )
     If  gourl = " -1 "   then
        Response.Write ( " <script language=javascript>alert(' "   &  message  &   " ');history.go(-1)</script> " )
     Else
        Response.Write ( " <script language=javascript>alert(' "   &  message  &   " ');location=' "   &  gourl  & " '</script> " )
     End   If
    Response.End()
  End Function

  Public   Sub  showpage(str,page,url)
   if   not   isnumeric (page)  then
    alert  " 提示:错误的参数! " , " -1 "
   end   if
   if  page = ""   or  page = 0   or   isnull (page)  or   isempty (page)  then
    page = 1
   else
    page = cint (page)
   end   if
  str = split (str, " {nextpage} " )
  abspage = page
  pcount = ubound (str) + 1
   if  page > cint ( ubound (str) + 1 )  or  page < 1   then
alert  " 提示:错误的参数! " , " -1 "
   else
response.write str(page - 1 ) & " <br><br><center> 共分为 " & pcount & " 页  "
   end   if

   for  p = 0   to   ubound (str)
 response.write  " <a href= " & url & " p= " & p + 1 & " >[ " & p + 1 & " ]</a>  "
   next
  response.write  " 当前第 " & abspage & " / " & pcount & " 页</center> "
  End Sub
End  Class

' ------------------调用-----------------------
p = request.QueryString( " p " )
str = " 第一页:这里是第一页的内容{nextpage}第二页:这里是第二页的内容 "
url = " ?id= " & id & " & "
set  newpage = new  aspxsky_page
newpage.showpage str,p,url
% >