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

%>