以下为引用的内容： <% Class aspxsky_page Private Sub class_initialize End Sub Spdns^com Public Function Alert(message,gourl) message = replace(message,"'","\'") If gourl="-1" then Response.Write ("") Else Response.Write ("") End If Response.End() End Function Spdns^com 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)&" 共分为"&pcount&"页 " end if 中.国南通服务器网 for p=0 to ubound(str) response.write "["&p+1&"] " next response.write "当前第"&abspage&"/"&pcount&"页 " 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 %> 中国.南通服务器网

中国南通服务器网