ASP 動態分頁

2021-05-22 01:22:45 字數 2963 閱讀 2774

分頁和普通分頁是一樣的

主要就是如何「先橫向再縱向」排列的問題

這個問題在論壇討論了好多,你可以檢視頂貼,或者使用論壇的搜尋功能。

<%

function showpros(tablename,topnum,fildname,loopnum,typenum)

set rs = server.createobject ("adodb.recordset")

sql = "select top "&topnum&" * from "&tablename

rs.open sql,conn,1,1

if rs.eof and rs.bof then

response.write("暫時無該記錄")

else

response.write("")

for i=1 to rs.recordcount

if (i mod loopnum=1) then

response.write""

end if

select case typenum

case "1"

response.write("")

response.write(rs(""&fildname&""))

response.write("

")response.write("方式1之"&i&"記錄")'此處的「方式1」可以替換顯示為其餘欄位的值

response.write("

")'如果字段比較多,繼續新增新個**行來顯示

response.write("

")case "2"

response.write("")

response.write(rs(""&fildname&""))

response.write("

")response.write("")

response.write("方式2之"&i&"記錄")

response.write("

")response.write("

")end select

if (i mod loopnum=0) then

response.write""

end if

rs.movenext

next

response.write("")

end if

rs.close

set rs = nothing

end function

%>

引數說明:showpros(tablename,topnum,fildname,loopnum,typenum)

whichpro為選擇何型別的產品種類

topnum表示提取多少條記錄

fildname表示除錯顯示的字段,具體應用的時候可以省去該引數,在函式內部直接使用

loopnum表示顯示的迴圈每行的記錄條數

typenum表示迴圈顯示的方法:目前分了兩類,橫向並列、縱向並列顯示同一資料記錄行的不同記錄

原帖內容:

<%

function showpros(tablename,topnum,fildname,loopnum,typenum)

set rs = server.createobject ("adodb.recordset")

sql = "select top "&topnum&" * from "&tablename

rs.open sql,conn,1,1

if rs.eof and rs.bof then

response.write("暫時無該記錄")

else

response.write("")

for i=1 to rs.recordcount

if (i mod loopnum=1) then

response.write""

end if

select case typenum

case "1"

response.write("")

response.write(rs(""&fildname&""))

response.write("

")response.write("方式1之"&i&"記錄")'此處的「方式1」可以替換顯示為其餘欄位的值

response.write("

")'如果字段比較多,繼續新增新個**行來顯示

response.write("

")case "2"

response.write("")

response.write(rs(""&fildname&""))

response.write("

")response.write("")

response.write("方式2之"&i&"記錄")

response.write("

")response.write("

")end select

if (i mod loopnum=0) then

response.write""

end if

rs.movenext

next

response.write("")

end if

rs.close

set rs = nothing

end function

%>

引數說明:showpros(tablename,topnum,fildname,loopnum,typenum)

whichpro為選擇何型別的產品種類

topnum表示提取多少條記錄

fildname表示除錯顯示的字段,具體應用的時候可以省去該引數,在函式內部直接使用

loopnum表示顯示的迴圈每行的記錄條數

typenum表示迴圈顯示的方法:目前分了兩類,橫向並列、縱向並列顯示同一資料記錄行的不同記錄

asp分頁系統

asp分頁系統 引數處理,並把相應 插入code 分頁 和mdbsql 資料庫查詢 中 sub s keyword s value keyword s value 建議先對keyword進行處理 if keyword then code code keyword keyword text split...

ASP內容分頁

利用統計文章字數,然後達到一定字數就截斷輸出,但是分頁的內容就會在莫名其妙的地方截斷,不是很友好。很簡單,在要截斷的地方附近找下面的符號 如果後面存在或 就分頁。主要是要研究文章的格式。if request.servervariables content length 0 then content ...

ASP分頁函式

asp分頁函式 function exportpageinfo byref rs,curpage,i,linkfile dim retval,j,pagenumber,basepage retval 第 curpage 頁 總 rs.pagecount 頁 retval retval 本頁 i 條 ...