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

%>