jb51内容分页函数[原创]_应用技巧

复制代码 代码如下:

allpages=ubound(contentarray)
for dxy_ii=0 to allpages
pagelist1="当前"&dxy_ii+1&"/"&(allpages+1)&"页 "
pagepre=""
pagelast=""
if dxy_ii>0 then
cpage=cint(dxy_ii)
if cpage<0 then cpage=0
if cpage=1 then
cpage1=id&".htm"
else
cpage1=id&"_"&cpage&".htm"
end if
pagepre="<a href="&cpage1&">上一页</a> "
end if
if dxy_ii<allpages then pagelast="<a href="&id&"_"&dxy_ii+2&".htm>下一页</a>"
for dxy_i=0 to allpages
if dxy_i=0 then
    if dxy_ii=dxy_i then
    alist=dxy_i+1&" "
    else
    alist=alist&"<a href="&id&".htm>"&dxy_i+1&"</a> "
    end if
else
    if dxy_ii=dxy_i then
    alist=alist&(dxy_i+1)&" "
    else
    alist=alist&"<a href="&id&"_"&dxy_i+1&".htm>"&dxy_i+1&"</a> "
    end if
end if
next
pagelist=pagelist1&pagepre&alist&ahlist&pagelast
alist=""

时间： 2024-08-01 09:07:59

jb51内容分页函数[原创]_应用技巧的相关文章

jb51生成所有页面的效果+分页生成[原创]_应用技巧

复制代码 代码如下: <!--#include file="conn.asp"--> <style type="text/css"> body,td,th{ color:#000000; font-size:14px; background-color:#D6DFF7; } </style> <% dim rs set rs=server.CreateObject("adodb.recordset") i

ASP内容分页函数

<%    '==============================================    '函数名:contentpage    '作  用:内容分页    '参  数:1.ocontent ----- 文章内容    '   2.olink  ----- 链接    '整  理:www.asp教程program.cn    '原创文章,转载请保留此信息,谢谢    '==============================================      

ASP通用分页样式函数代码_应用技巧

<% '****************************** '函数:MultiPage(Numbers,Perpage,Curpage,Url_Add) '参数:Numbers,总记录数:Perpage,每页记录数:Curpage,当前页:Url_Add,当前页其它参数如?action=list& '作者:阿里西西 '日期:2007/7/15 '描述:ASP通用分页样式函数 '示例:MultiPage(100,10,2,"?action=list&")

GetPaing 函数之asp采集函数中用到的获取分页的代码_应用技巧

'================================================== '函数名:GetPaing '作  用:获取分页 '================================================== Function GetPaing(Byval ConStr,StartStr,OverStr,IncluL,IncluR) If ConStr="$False$" or ConStr="" Or StartSt

asp 输出换行的详细说明[原创]_应用技巧

测试代码:输出简单的ul li1.asp 复制代码 代码如下: <% response.write "<ul>" response.write "<li></li>" response.write "<li>www.jb51.net</li>" response.write "</ul>" %> 结果是:右键源文件看到的是 复制代码 代码如下:

Asp.NET 生成静态页面并分页的代码_实用技巧

1.静态模板页面 template.html,主要是定义了一些特殊字符,用来被替换. 复制代码 代码如下: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" co

Asp.Net数据控件引用AspNetPager.dll分页实现代码_实用技巧

1.也许讲解有点初级,希望高手不要"喷"我,因为我知道并不是每一个人都是高手,我也怕高手们说我装13,小生不才: 2.如有什么不对的地方,还希望大家指出,一定虚心学习: 3.本文属于作者原创,尊重他人劳动成果,转载请注明作者,谢谢. 下面开讲: 第一步:首先是下载一个AspNetPager.dll 下载地址 AspNetPager.rar第二步:在项目的bin文件夹下引用AspNetPager.dll 如图: 第三步:在工具箱添加AspNetPager控件,如图: 接下来再如图: 这样

ASP 数字分页效果代码_应用技巧

最近网站改版正好发现原来的分页不带数字的,只有首页 上页 下页 末页 然后是select的跳转,都是以前比较流行的,而现在比较流行的是数字分页在中间,正好研究并分享下,需要的朋友可以参考下 效果: 国外的核心代码: 复制代码 代码如下: <% 'digg style pagination script in asp.. written by Moazam... http://www.moazam.com/2007/03/30/asp-digg-style-pagination-script/  

asp 通用修改和增加函数代码_应用技巧

接下来我利用一点空余时间发一个函数里面包含和添加和删除功能.实验的架构可以使用IIS.5WEB服务器ACCESS数据库.这个我其实不用说的很详细了,因为大家都应该知道的.我就直接把函数贴出来.大家只要稍微修改即可使用. 复制代码 代码如下: <% sub AdminEdit() dim Action,rsCheckAdd,rs,sql Action=request.QueryString("Action") if Action="SaveEdit" then