asp长文章分页代码
2009-05-25 16:31
513 查看
<%
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}第二页:这里是第二页的内容{nextpage}第三页:这里是第三页的内容"
url="life_1.asp?id="&id&"&"
set newpage=new aspxsky_page
newpage.showpage str,p,url
%>
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}第二页:这里是第二页的内容{nextpage}第三页:这里是第三页的内容"
url="life_1.asp?id="&id&"&"
set newpage=new aspxsky_page
newpage.showpage str,p,url
%>
相关文章推荐
- 求asp.net长文章分页 代码(手动输入分页符)
- asp.net 大文章分页代码(c#)
- asp.net 文章内容分页显示的代码
- ASP实现长文章自动分页的函数代码
- ASP实例代码:搞个长文章分页代码
- asp.net 文章内容分页显示的代码
- ASP实现长文章自动分页的函数代码
- asp.net文章内容分页代码
- asp.net 文章内容分页显示的代码
- ASP实例代码:长文章分页代码设置方法
- asp.net 文章分页显示实现代码
- ASP实现长文章手动分页的代码
- ASP实现长文章自动分页的函数代码
- ASP文章阅读次数统计代码
- asp 简单分页代码
- ASP.NET自定义控件 第十天 实现分页功能的DataList(附该系列文章PDF版本)
- asp.net MVC分页代码分享
- 常用asp.net分页代码举例
- asp+ajax 无刷新新闻列表,点击分页不局部刷新(代码,有下载)