<%
dim articlestr,currentpage,maxlen,totallen,i,j,n
articlestr =content '從資料庫中讀取的內容
maxlen = 2000 '初始化每頁顯示的字數
totallen = len(articlestr)
if totallen mod maxlen = 0 then
pagecounts = fix(totallen/maxlen)
else
pagecounts = fix(totallen/maxlen)+1
end if
currentpage = request("page")
if currentpage = "" then
currentpage = 1
end if
if clng(currentpage) > pagecounts then currentpage = pagecounts
i = (currentpage-1)*maxlen+1
j = maxlen
response.write mid(articlestr,i,j)&"
" '內容顯示
for n = currentpage - 3 to currentpage + 3
if n > 0 and clng(n) <= pagecounts then
if clng(n)=clng(currentpage) then
response.write"["&n&"
末頁"end if
asp中分頁的功能實現
set rs server.createobject adodb.recordset rs.open select from webdiy mb conn,1,3 if rs.bof and rs.eof then response.write 沒有模板 else 定義分頁 rs.pagesize ...
僅用xsl和asp實現分頁功能
response.write source.transformnode style response.write gb html source.transformnode style response.end load進來的xml資料是這樣的 裡面的標籤在後面的xsl檔案裡被 xsl檔案的內容 75...
asp用儲存過程實現快速分頁
asp用儲存過程實現快速分頁 在本地測試速度提公升了不少。已經加在本站的mtv歌曲列表網頁 一 先建立儲存過程p splitpage create procedure p splitpage sql nvarchar 4000 currentpage int 2,pagesize int 10,re...