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

%>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!