订阅本栏目 RSS您所在的位置: 深山工作室 > ASP > 正文

asp文章内容自定义分页

深山行者个人网站 2008/8/22 17:26:15 深山行者 字体: 浏览 8717

以下是引用片段:

<!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 "&nbsp;"&n&"&nbsp;"
else
response.write "[<a href=text.asp?newsid="&id&"&page="&n&">"&n&"</a>]"
end if
Next
response.write "<br><br>"
%>

 

</body>
</html>

 

相关阅读
做好的网站把http改成https申请SSL域名证书
一个CSS特效生成器下载
中国签证行业领导者--91出国签证网
ASP取出HTML里面的图片地址的函数
JavaScript技巧:让网页自动穿上外套
flash利用as调用执行外部设置的exe文件
解决手机端微信浏览器中视频自动播放和默认全屏问题
div+css布局中的精粹技巧
共有0条关于《asp文章内容自定义分页》的评论
发表评论
正在加载评论......
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
python
更多>>同类信息
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
asp显示随机密码
通过阿里云服务接口获得ip地址详细信息
iis点开后任务栏上有显示,但是窗口看不到的解决办法
RSA加密解密插件
微软Encoder加密解密函数
更多>>最新添加文章
在Android、iOS、Windows、MacOS中微信小程序的文件存放路径
python通过代码修改pip下载源让下载库飞起
python里面requests.post返回的res.text还有其它的吗
aliyun阿里云续费域名优惠口令(注册、续费都可以使用)
windows7环境下安装配置jdk
python对微信操作要用到这两个库wxpy与itchat
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
DW设置之后更好用 DreamweaverCS编辑GB2312与UTF-8文件在代码视图中点击鼠标错位问题的解决办法
更多>>随机抽取信息
针对table,div隔行变色的JS方法
以前的QQ强聊不管了,这个是非常管用的QQ强聊
python里面requests.post返回的res.text还有其它的吗
Request.ServerVariables在网页中的一些应用集合
中南国际旅游公司
利用ResponseXML的方法调用163天气预报