推薦:對ASP和ASP程序員的一些話這段時間,關於asp的前途,關於asp的好壞的討論貼,都有好些了。當然,大家的心都是好的,但是一些朋友說的話,真是讓人鬱悶。個人覺得,在現在2年內,asp都會在很多中小型的企業b/s系統上應
| 以下為引用的內容: <% 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 %> |
分享:ASP教程:不連數據庫進行查詢分頁的思路看了不少介紹,知道set rs=conn.execute(sql)的執行效率比rs.open sql,conn,1,1要高很多,但是set rs=conn.execute(sql)這種執行方式也有很多不足,首先它不具有分頁屬性,比如rs.pagesize,rs,a