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