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

日期：2007年8月6日作者：查看:[大字体中字体小字体]

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="shownews.asp?id="&id&"&"
[1] [2] 下一页
ASP实例代码：搞个长文章分页代码相关文章：
·非主流ps教程实用的技巧大全
·解读身份认证技术现实化
·Vista系统实现自动关机技巧
·Illustrator传统风格名片设计实例
·AutoCAD造型实例：十字形螺丝刀头
·AutoCAD造型实例：一字形螺丝刀头
·Mac+Win实测 Boot Camp还是虚拟机？
·Illustrator绘制精美三维图表实例
·JavaScript/JS实现标题栏跑马灯
·CSS实例布局:上中下三行中间自适应
ASP实例代码：搞个长文章分页代码相关软件
·《实况足球2007》粤语存档繁体中文版
·《NBA实况篮球》街机模拟器
·《实况足球8》欧洲PC版商店所有物品存档
·超任游戏《实况足球4》模拟器
·《实况足球9》实用工具集
·大案纪实：惊天绑架案
·《沙嘴红灯区》(长篇纪实小说)
·真实摔跤
·中国第一颗原子弹制造纪实：596秘史
·实况足球2008

上一篇:总结：一些PHP学习过程中的心得和经验

下一篇:CCProxy代理软件中隐藏的阴谋

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

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

精品推荐

热点TOP10

特别推荐