asp分頁系統
<%
'引數處理，並把相應**插入code（分頁）和mdbsql（資料庫查詢）中
sub s_keyword(s_value)
keyword = s_value '建議先對keyword進行處理
if keyword<>"" then
code = code &"&keyword="& keyword
text=split(keyword) '分詞
for each word in text
mdbsql = mdbsql &" and charindex('"&trim(word)&"',hw_area)>0"
next
end if
end sub
'sql搜尋主程式，頁次，查詢字段，關鍵字段，排序字段
sub s_sql(s_page,s_table,s_str,s_key,s_order)
if s_page <> "" and isnumeric(s_page) then currentpage = cint(s_page) else currentpage=1
if mdbsql = "" then mdbsql = "1=1"
'對於總頁數更有效率的方法是在code引數中傳遞，各有優劣
totalrec = conn.execute("select count(*) from "&s_table&" where "&mdbsql)(0)
if totalrec > 0 then
totalpage = totalrec/page_size
if (totalrec mod page_size) then totalpage = totalpage+1
if totalpage < 1 then totalpage = 1
if currentpage > totalpage then currentpage = totalpage
if totalpage = 1 then page_size=totalrec
if currentpage = 1 then
mdbsql = "select top "&page_size&" "&s_str&" from "&s_table&" where "&mdbsql&" order by "&s_order&" desc"
else
mdbsql = "select top "&page_size&" "&s_str&" from "&s_table&" where "&mdbsql&" and "&s_key&" not in (select top "&(currentpage-1)*page_size&" "&s_key&" from "&s_table&" where "&mdbsql&" order by "&s_order&" desc) order by "&s_order&" desc"
end if
end if
end sub
<%
'先定義好全域性變數，在函式裡將修改這些變數
dim keyword,code,mdbsql,page_size,totalrec,totalpage,currentpage
page_size = 20
mdbsql="flag = 1" '可以先定義固定的搜尋條件
'函式會根據引數自動調整code和mdbsql
call s_keyword(trim(request("keyword")))
call s_sql(trim(request("page")),"title","id","id")
'以上**一般放在程式開頭
%>
<%
if totalrec > 0 then
set rs=server.createobject("adodb.recordset")
rs.open mdbsql,toconn,1,1
if rs.bof and rs.eof then
response.write("暫時沒有資訊")
else
for temp_fn = 1 to page_size
if rs.eof then exit for
response.write rs("title") '內容顯示
rs.movenext
next
response.write show_page() '分頁顯示
end if
else
response.write("暫時沒有資訊")
end if
%>
ASP內容分頁
利用統計文章字數，然後達到一定字數就截斷輸出，但是分頁的內容就會在莫名其妙的地方截斷，不是很友好。很簡單，在要截斷的地方附近找下面的符號 如果後面存在或 就分頁。主要是要研究文章的格式。if request.servervariables content length 0 then content ...
ASP 動態分頁
分頁和普通分頁是一樣的 主要就是如何 先橫向再縱向 排列的問題 這個問題在論壇討論了好多，你可以檢視頂貼，或者使用論壇的搜尋功能。function showpros tablename,topnum,fildname,loopnum,typenum set rs server.createobjec...
ASP分頁函式
asp分頁函式 function exportpageinfo byref rs,curpage,i,linkfile dim retval,j,pagenumber,basepage retval 第 curpage 頁 總 rs.pagecount 頁 retval retval 本頁 i 條 ...