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&&

set newpage=new aspxsky_page

newpage.showpage str,p,url

%>