asp文章內(nèi)容自定義分頁
深山行者個(gè)人網(wǎng)站 2008/8/22 17:26:15 深山行者 字體:
大 中 小 瀏覽 9115
|
以下是引用片段：
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>無標(biāo)題文檔</title>
</head>
<body>
<%
dim main
main="asdfasdfjalks;ojo23ij45802394jlkjb;kjd;l段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修改后返回相應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修改后返回相應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修改后返回$$分頁$$相應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修改后返回相應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修改后返回相應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修改后返回相應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。$$分頁$$段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修改后返回相應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修改后返回相應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修改后返回相$$分頁$$應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修改后返回相應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修改后返回相應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修改后返回相應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修改后返回相應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修改后返回相應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修$$分頁$$改后返回相應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修改后返回相應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修改后返回相應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。段分頁代碼可以實(shí)現(xiàn)進(jìn)入一條記錄的修改后返回相應(yīng)的頁，并更新了對(duì)應(yīng)的記錄。只是太長了，不過到現(xiàn)在還沒有找到滿意的簡潔的分頁代碼，只好還用著。"
%>
<%
dim page
page=Trim(request("page"))
If page="" Then
page=1
Elseif CInt(page)<=0 then
page=1
else
page=CInt(page)
End If
%>
<%
dim strtmp
strtmp=Split((main),"$$分頁$$")
'取出要顯示的記錄，同時(shí)得到頁數(shù)
Dim n,tmp,i,j,tt
n=500
i=0
j=0
Do While i<=ubound(strtmp)
tmp=strtmp(i)
tt=true
Do While tt
If i>=ubound(strtmp) then
tt=false
j=j+1
elseif Len(tmp)>=n Then
tt=false
j=j+1
ElseIf Len(tmp)+Len(strtmp(i+1))>=n Then
tt=false
j=j+1
Else
tmp=tmp+"$$分頁$$"+strtmp(i+1)
i=i+1
End If
Loop
if page=j then str=tmp+"$$分頁$$"
i=i+1
Loop
'判斷傳送的參數(shù)是否越界,如果越界，則取得最后一頁的內(nèi)容
if page>j then
str=tmp
end if
'顯示要分取出要顯示的這部分內(nèi)容
response.write replace(str,"$$分頁$$","")
'顯示分頁內(nèi)容
'注意傳遞的參數(shù)，這里只傳遞了page，如果有其它參數(shù)要一起傳遞的，否則分頁后不顯示了
response.write "分頁——>"
For n=1 To j
if n=page then
response.write " "&n&" "
else
response.write "[<a href=text.asp?newsid="&id&"&page="&n&">"&n&"</a>]"
end if
Next
response.write "<br><br>"
%>
</body>
</html>
|
- 相關(guān)閱讀
- 圖片鏈接默認(rèn)鏈接為灰色，鼠標(biāo)放上去變彩色css效果代碼
- 下載微信小程序
- IE 7.0 BETA3 瀏覽器綠色免安裝版下載
- 深山旅行社網(wǎng)站管理系統(tǒng) v1.7
- 上海石化旅行社
- 深山留言板教師節(jié)效果
- ASP.NET AJAX的應(yīng)用
- 名揚(yáng)石化
- 共有0條關(guān)于《asp文章內(nèi)容自定義分頁》的評(píng)論
- 發(fā)表評(píng)論
蘇公網(wǎng)安備 32070502010230號(hào)