ASP实例代码：搞个长文章分页代码
2018-09-06 12:31
ASP实例代码：搞个长文章分页代码
<%
Classaspxsky_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=urlp=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
%>