asp文章内容自定义分页
深山行者个人网站 2008/8/22 17:26:15 深山行者 字体:
大 中 小 浏览 9247
|
以下是引用片段：
<!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>无标题文档</title>
</head>
<body>
<%
dim main
main="asdfasdfjalks;ojo23ij45802394jlkjb;kjd;l段分页代码可以实现进入一条记录的修改后返回相应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。段分页代码可以实现进入一条记录的修改后返回相应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。段分页代码可以实现进入一条记录的修改后返回$$分页$$相应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。段分页代码可以实现进入一条记录的修改后返回相应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。段分页代码可以实现进入一条记录的修改后返回相应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。段分页代码可以实现进入一条记录的修改后返回相应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。$$分页$$段分页代码可以实现进入一条记录的修改后返回相应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。段分页代码可以实现进入一条记录的修改后返回相应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。段分页代码可以实现进入一条记录的修改后返回相$$分页$$应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。段分页代码可以实现进入一条记录的修改后返回相应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。段分页代码可以实现进入一条记录的修改后返回相应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。段分页代码可以实现进入一条记录的修改后返回相应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。段分页代码可以实现进入一条记录的修改后返回相应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。段分页代码可以实现进入一条记录的修改后返回相应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。段分页代码可以实现进入一条记录的修$$分页$$改后返回相应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。段分页代码可以实现进入一条记录的修改后返回相应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。段分页代码可以实现进入一条记录的修改后返回相应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。段分页代码可以实现进入一条记录的修改后返回相应的页，并更新了对应的记录。只是太长了，不过到现在还没有找到满意的简洁的分页代码，只好还用着。"
%>
<%
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),"$$分页$$")
'取出要显示的记录，同时得到页数
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
'判断传送的参数是否越界,如果越界，则取得最后一页的内容
if page>j then
str=tmp
end if
'显示要分取出要显示的这部分内容
response.write replace(str,"$$分页$$","")
'显示分页内容
'注意传递的参数，这里只传递了page，如果有其它参数要一起传递的，否则分页后不显示了
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>
|
- 相关阅读
- 阳光丽江客栈
- 深山旅行社管理系统开源吗？
- asp iis 开启本地FSO权限
- uni-app基础知识使用hidden条件显示
- 实时输入数字自动转换为货币形式并计算
- [转]javascript缓冲效果
- 深山留言板 v7.0.1 bulid2014.11.15错误更新版
- 一个非常不错的程序编辑工具--PSPad editor
- 共有0条关于《asp文章内容自定义分页》的评论
- 发表评论
苏公网安备 32070502010230号