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