当前位置： 移动技术网 > IT编程>开发语言>.net > ASP实例代码：搞个长文章分页代码

ASP实例代码：搞个长文章分页代码

2019年01月17日  | 移动技术网IT编程  | 我要评论

枪手传奇王牌后卫,朱张金,李兆落

asp实例代码：搞个长文章分页代码

<%
class xsky_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="shownews.asp?id="&id&"&"
set newpage=new aspxsky_page
newpage.showpage str,p,url
%>

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网