asp文章内容自定义分页
深山行者个人网站 2008/8/22 17:26:15 深山行者 字体:
大 中 小 浏览 8979
以下是引用片段:
<!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在线把整站打包成为.mdb形式文件
- 蒸汽消音器
- 深山留言板过年回家效果
- 纯div+css制作的弹出菜单-04
- CSS设计网页头部的优化写法
- CSS完美兼容IE6/IE7/FF的通用方法
- 盐城市航空假日旅行社有限公司
- 共有0条关于《asp文章内容自定义分页》的评论
- 发表评论