XDOWNPAGE ASP+ACCESS版1.00小苏打哪里有得卖下载?
点击联系发帖人
时间：2014-10-17 09:11
ASP分页源码_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
11页免费9页免费6页免费12页免费6页免费 10页免费7页免费2页免费4页免费2页免费
喜欢此文档的还喜欢7页免费9页免费11页免费4页免费7页免费
ASP分页源码|A​S​P​分​页​源​码
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢ASP通用分页类源码
阅读：125次&&&时间： 00:00:00&&
&%'==================================================================='XDOWNPAGE&& ASP版本'版本&& 1.00'Code by& zykj2000'Email:&& 'BBS:&& '本程序可以免费使用、修改，希望我的程序能为您的工作带来方便'但请保留以上请息''程序特点'本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义，'支持URL多个参数''使用说明'程序参数说明'PapgeSize&&&&& 定义分页每一页的记录数'GetRS&&&&&& 返回经过分页的Recordset此属性只读'GetConn&&&&& 得到数据库连接'GetSQL&&&&&& 得到查询语句'程序方法说明'ShowPage&&&&& 显示分页导航条,唯一的公用方法''===================================================================Const Btn_First="&font face=""webdings""&9&/font&"& '定义第一页按钮显示样式Const Btn_Prev="&font face=""webdings""&3&/font&"& '定义前一页按钮显示样式Const Btn_Next="&font face=""webdings""&4&/font&"& '定义下一页按钮显示样式Const Btn_Last="&font face=""webdings""&:&/font&"& '定义最后一页按钮显示样式Const XD_Align="Center"&&&& '定义分页信息对齐方式Const XD_Width="100%"&&&& '定义分页信息框大小Class XdownpagePrivate XD_PageCount,XD_Conn,XD_Rs,XD_SQL,XD_PageSize,Str_errors,int_curpage,str_URL,int_totalPage,int_totalRecord,XD_sURL'================================================================='PageSize 属性'设置每一页的分页大小'=================================================================Public Property Let PageSize(int_PageSize)&If IsNumeric(Int_Pagesize) Then& XD_PageSize=CLng(int_PageSize)&Else& str_error=str_error & "PageSize的参数不正确"& ShowError()&End IfEnd PropertyPublic Property Get PageSize&If XD_PageSize="" or (not(IsNumeric(XD_PageSize))) Then& PageSize=10&&&& &Else& PageSize=XD_PageSize&End IfEnd Property'================================================================='GetRS 属性'返回分页后的记录集'=================================================================Public Property Get GetRs()&Set XD_Rs=Server.createobject("adodb.recordset")&XD_Rs.PageSize=PageSize&XD_Rs.Open XD_SQL,XD_Conn,1,1&If not(XD_Rs.eof and XD_RS.BOF) Then& If int_curpage&XD_RS.PageCount Then&& int_curpage=XD_RS.PageCount& End If& XD_Rs.AbsolutePage=int_curpage&End If&Set GetRs=XD_RSEnd Property'================================================================'GetConn& 得到数据库连接''================================================================ Public Property Let GetConn(obj_Conn)&Set XD_Conn=obj_ConnEnd Property'================================================================'GetSQL&& 得到查询语句''================================================================Public Property Let GetSQL(str_sql)&XD_SQL=str_sqlEnd Property&'=================================================================='Class_Initialize 类的初始化'初始化当前页的值''================================================================== Private Sub Class_Initialize&'========================&'设定一些参数的黙认值&'========================&XD_PageSize=10& '设定分页的默认值为10&'========================&'获取当前面的值&'========================&If request("page")="" Then& int_curpage=1&ElseIf not(IsNumeric(request("page"))) Then& int_curpage=1&ElseIf CInt(Trim(request("page")))&1 Then& int_curpage=1&Else& Int_curpage=CInt(Trim(request("page")))&End If& End Sub'===================================================================='ShowPage& 创建分页导航条'有首页、前一页、下一页、末页、还有数字导航''====================================================================Public Sub ShowPage()&Dim str_tmp&XD_sURL = GetUrl()&int_totalRecord=XD_RS.RecordCount&If int_totalRecord&=0 Then& str_error=str_error & "总记录数为零，请输入数据"& Call ShowError()&End If&If int_totalRecord="" then&&&& int_TotalPage=1&Else& If int_totalRecord mod PageSize =0 Then&& int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1& Else&& int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1+1& End If&End If&&If Int_curpage&int_Totalpage Then& int_curpage=int_TotalPage&End If&&'==================================================================&'显示分页信息，各个模块根据自己要求更改显求位置&'==================================================================&response.write ""&str_tmp=ShowFirstPrv&response.write str_tmp&str_tmp=showNumBtn&response.write str_tmp&str_tmp=ShowNextLast&response.write str_tmp&str_tmp=ShowPageInfo&response.write str_tmp&&response.write ""End Sub'===================================================================='ShowFirstPrv& 显示首页、前一页'''====================================================================Private Function ShowFirstPrv()&Dim Str_tmp,int_prvpage&If int_curpage=1 Then& str_tmp=Btn_First&" "&Btn_Prev&Else& int_prvpage=int_curpage-1& str_tmp="&a href="""&XD_sURL & "1" & """&" & Btn_First&"&/a& &a href=""" & XD_sURL & CStr(int_prvpage) & """&" & Btn_Prev&"&/a&"&End If&ShowFirstPrv=str_tmpEnd Function'===================================================================='ShowNextLast& 下一页、末页'''====================================================================Private Function ShowNextLast()&Dim str_tmp,int_Nextpage&If Int_curpage&=int_totalpage Then& str_tmp=Btn_Next & " " & Btn_Last&Else& Int_NextPage=int_curpage+1& str_tmp="&a href=""" & XD_sURL & CStr(int_nextpage) & """&" & Btn_Next&"&/a& &a href="""& XD_sURL & CStr(int_totalpage) & """&" && Btn_Last&"&/a&"&End If&ShowNextLast=str_tmpEnd Function'===================================================================='ShowNumBtn& 数字导航'''====================================================================Private Function showNumBtn()&Dim i,str_tmp&For i=1 to int_totalpage& str_tmp=str_tmp & "[&a href=""" & XD_sURL & CStr(i) & """&"&i&"&/a&] "&Next&showNumBtn=str_tmpEnd Function'===================================================================='ShowPageInfo& 分页信息'更据要求自行修改''====================================================================Private Function ShowPageInfo()&Dim str_tmp&str_tmp="页次:"&int_curpage&"/"&int_totalpage&"页 共"&int_totalrecord&"条记录 "&XD_PageSize&"条/每页"&ShowPageInfo=str_tmpEnd Function'=================================================================='GetURL& 得到当前的URL'更据URL参数不同，获取不同的结果''==================================================================Private Function GetURL()&Dim strurl,str_url,i,j,search_str,result_url&search_str="page="&&strurl=Request.ServerVariables("URL")&Strurl=split(strurl,"/")&i=UBound(strurl,1)&str_url=strurl(i)'得到当前页文件名&&str_params=Trim(Request.ServerVariables("QUERY_STRING"))&If str_params="" Then& result_url=str_url & "?page="&Else& If InstrRev(str_params,search_str)=0 Then&& result_url=str_url & "?" & str_params &"&page="& Else&& j=InstrRev(str_params,search_str)-2&& If j=-1 Then&&& result_url=str_url & "?page="&& Else&&& str_params=Left(str_params,j)&&& result_url=str_url & "?" & str_params &"&page="&& End If& End If&End If&GetURL=result_urlEnd Function'====================================================================' 设置 Terminate 事件。''====================================================================Private Sub Class_Terminate& &XD_RS.close&Set XD_RS=nothingEnd Sub'===================================================================='ShowError& 错误提示'''====================================================================Private Sub ShowError()&If str_Error && "" Then& Response.Write("" & str_Error & "")& Response.End&End IfEnd SubEnd class&set conn = server.CreateObject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb)};dbq=" & server.Mappath("pages.mdb")'#############类调用样例#################'创建对象Set mypage=new xdownpage'得到数据库连接mypage.getconn=conn'sql语句mypage.getsql="select * from [test] order by id asc"'设置每一页的记录条数据为5条mypage.pagesize=5'返回Recordsetset rs=mypage.getrs()'显示分页信息，这个方法可以，在set rs=mypage.getrs()以后,可在任意位置调用，可以调用多次mypage.showpage()'显示数据Response.Write("&br/&")for i=1 to mypage.pagesize'这里就可以自定义显示方式了&&& if not rs.eof then &&&&&&& response.write rs(0) & "&br/&"&&&&&&& rs.movenext&&& else&&&&&&&& exit for&&& end ifnext%&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
Copyright &
All Rights Reserved温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
LOFTER精选
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_',
blogTitle:'\t\tASP分页类代码',
blogAbstract:'&%\'===================================================================\'XDOWNPAGE&&
ASP版本\'版本&&
1.00\'Code by
zykj2000\'Email:&&
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}页面导航：
→ 正文内容
ASP版本 分页类
&% '=================================================================== 'XDOWNPAGE&&&ASP版本 '版本&&&1.00 'Code&by&&zykj2000 'Email:&&&zykj_ 'BBS:&&&http://bbs.513soft.net '本程序可以免费使用、修改，希望我的程序能为您的工作带来方便 '但请保留以上请息 ' '程序特点 '本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义， '支持URL多个参数 ' '使用说明 '程序参数说明 'PapgeSize&&&&&&定义分页每一页的记录数 'GetRS&&&&&&&返回经过分页的Recordset此属性只读 'GetConn&&&&&&得到数据库连接 'GetSQL&&&&&&&得到查询语句 '程序方法说明 'ShowPage&&&&&&显示分页导航条,唯一的公用方法 ' '=================================================================== Const&Btn_First="&font&face=""webdings""&9&/font&"&&'定义第一页按钮显示样式 Const&Btn_Prev="&font&face=""webdings""&3&/font&"&&'定义前一页按钮显示样式 Const&Btn_Next="&font&face=""webdings""&4&/font&"&&'定义下一页按钮显示样式 Const&Btn_Last="&font&face=""webdings""&:&/font&"&&'定义最后一页按钮显示样式 Const&XD_Align="Center"&&&&&'定义分页信息对齐方式 Const&XD_Width="100%"&&&&&'定义分页信息框大小 Class&Xdownpage Private&XD_PageCount,XD_Conn,XD_Rs,XD_SQL,XD_PageSize,Str_errors,int_curpage,str_URL,int_totalPage,int_totalRecord,XD_sURL '================================================================= 'PageSize&属性 '设置每一页的分页大小 '================================================================= Public&Property&Let&PageSize(int_PageSize) &If&IsNumeric(Int_Pagesize)&Then &&XD_PageSize=CLng(int_PageSize) &Else &&str_error=str_error&&&"PageSize的参数不正确" &&ShowError() &End&If End&Property Public&Property&Get&PageSize &If&XD_PageSize=""&or&(not(IsNumeric(XD_PageSize)))&Then &&PageSize=10&&&&& &Else &&PageSize=XD_PageSize &End&If End&Property '================================================================= 'GetRS&属性 '返回分页后的记录集 '================================================================= Public&Property&Get&GetRs() &Set&XD_Rs=Server.createobject("adodb.recordset") &XD_Rs.PageSize=PageSize &XD_Rs.Open&XD_SQL,XD_Conn,1,1 &If¬(XD_Rs.eof&and&XD_RS.BOF)&Then &&If&int_curpage&XD_RS.PageCount&Then &&&int_curpage=XD_RS.PageCount &&End&If &&XD_Rs.AbsolutePage=int_curpage &End&If &Set&GetRs=XD_RS End&Property '================================================================ 'GetConn&&得到数据库连接 ' '================================================================& Public&Property&Let&GetConn(obj_Conn) &Set&XD_Conn=obj_Conn End&Property '================================================================ 'GetSQL&&&得到查询语句 ' '================================================================ Public&Property&Let&GetSQL(str_sql) &XD_SQL=str_sql End&Property & '================================================================== 'Class_Initialize&类的初始化 '初始化当前页的值 ' '==================================================================& Private&Sub&Class_Initialize &'======================== &'设定一些参数的a认值 &'======================== &XD_PageSize=10&&'设定分页的默认值为10 &'======================== &'获取当前面的值 &'======================== &If&request("page")=""&Then &&int_curpage=1 &ElseIf¬(IsNumeric(request("page")))&Then &&int_curpage=1 &ElseIf&CInt(Trim(request("page")))&1&Then &&int_curpage=1 &Else &&Int_curpage=CInt(Trim(request("page"))) &End&If End&Sub '==================================================================== 'ShowPage&&创建分页导航条 '有首页、前一页、下一页、末页、还有数字导航 ' '==================================================================== Public&Sub&ShowPage() &Dim&str_tmp &XD_sURL&=&GetUrl() &int_totalRecord=XD_RS.RecordCount &If&int_totalRecord&=0&Then &&str_error=str_error&&&"总记录数为零，请输入数据" &&Call&ShowError() &End&If &If&int_totalRecord=""&then &&&&&int_TotalPage=1 &Else &&If&int_totalRecord&mod&PageSize&=0&Then &&&int_TotalPage&=&CLng(int_TotalRecord&/&XD_PageSize&*&-1)*-1 &&Else &&&int_TotalPage&=&CLng(int_TotalRecord&/&XD_PageSize&*&-1)*-1+1 &&End&If &End&If &If&Int_curpage&int_Totalpage&Then &&int_curpage=int_TotalPage &End&If &'================================================================== &'显示分页信息，各个模块根据自己要求更改显求位置 &'================================================================== &response.write&"" &str_tmp=ShowFirstPrv &response.write&str_tmp &str_tmp=showNumBtn &response.write&str_tmp &str_tmp=ShowNextLast &response.write&str_tmp &str_tmp=ShowPageInfo &response.write&str_tmp &response.write&"" End&Sub '==================================================================== 'ShowFirstPrv&&显示首页、前一页 ' ' '==================================================================== Private&Function&ShowFirstPrv() &Dim&Str_tmp,int_prvpage &If&int_curpage=1&Then &&str_tmp=Btn_First&"&"&Btn_Prev &Else &&int_prvpage=int_curpage-1 &&str_tmp="&a&href="""&XD_sURL&&&"1"&&&"""&"&&&Btn_First&"&/a&&&a&href="""&&&XD_sURL&&&CStr(int_prvpage)&&&"""&"&&&Btn_Prev&"&/a&" &End&If &ShowFirstPrv=str_tmp End&Function '==================================================================== 'ShowNextLast&&下一页、末页 ' ' '==================================================================== Private&Function&ShowNextLast() &Dim&str_tmp,int_Nextpage &If&Int_curpage&=int_totalpage&Then &&str_tmp=Btn_Next&&&"&"&&&Btn_Last &Else &&Int_NextPage=int_curpage+1 &&str_tmp="&a&href="""&&&XD_sURL&&&CStr(int_nextpage)&&&"""&"&&&Btn_Next&"&/a&&&a&href="""&&XD_sURL&&&CStr(int_totalpage)&&&"""&"&&&&Btn_Last&"&/a&" &End&If &ShowNextLast=str_tmp End&Function '==================================================================== 'ShowNumBtn&&数字导航 ' ' '==================================================================== Private&Function&showNumBtn() &Dim&i,str_tmp &For&i=1&to&int_totalpage &&str_tmp=str_tmp&&&"[&a&href="""&&&XD_sURL&&&CStr(i)&&&"""&"&i&"&/a&]&" &Next &showNumBtn=str_tmp End&Function '==================================================================== 'ShowPageInfo&&分页信息 '更据要求自行修改 ' '==================================================================== Private&Function&ShowPageInfo() &Dim&str_tmp &str_tmp="页次:"&int_curpage&"/"&int_totalpage&"页&共"&int_totalrecord&"条记录&"&XD_PageSize&"条/每页" &ShowPageInfo=str_tmp End&Function '================================================================== 'GetURL&&得到当前的URL '更据URL参数不同，获取不同的结果 ' '================================================================== Private&Function&GetURL() &Dim&strurl,str_url,i,j,search_str,result_url &search_str="page=" &strurl=Request.ServerVariables("URL") &Strurl=split(strurl,"/") &i=UBound(strurl,1) &str_url=strurl(i)'得到当前页文件名 &str_params=Trim(Request.ServerVariables("QUERY_STRING")) &If&str_params=""&Then &&result_url=str_url&&&"?page=" &Else &&If&InstrRev(str_params,search_str)=0&Then &&&result_url=str_url&&&"?"&&&str_params&&"&page=" &&Else &&&j=InstrRev(str_params,search_str)-2 &&&If&j=-1&Then &&&&result_url=str_url&&&"?page=" &&&Else &&&&str_params=Left(str_params,j) &&&&result_url=str_url&&&"?"&&&str_params&&"&page=" &&&End&If &&End&If &End&If &GetURL=result_url End&Function '==================================================================== '&设置&Terminate&事件。 ' '==================================================================== Private&Sub&Class_Terminate&& &XD_RS.close &Set&XD_RS=nothing End&Sub '==================================================================== 'ShowError&&错误提示 ' ' '==================================================================== Private&Sub&ShowError() &If&str_Error&&&&""&Then &&Response.Write(""&&&str_Error&&&"") &&Response.End &End&If End&Sub End&class 'set&conn&=&server.CreateObject("adodb.connection") 'conn.open&"driver={microsoft&access&driver&(*.mdb)};dbq="&&&server.Mappath("/data/5iduohai.mdb") ' ''#############类调用样例################# ''创建对象 'Set&mypage=new&xdownpage ''得到数据库连接 'mypage.getconn=conn ''sql语句 'mypage.getsql="select&*&from&[DH_Company]&order&by&id&asc" ''设置每一页的记录条数据为5条 'mypage.pagesize=5 ''返回Recordset 'set&rs=mypage.getrs() '显示分页信息，这个方法可以，在set&rs=mypage.getrs()以后,可在任意位置调用，可以调用多次 ' ''显示数据 'Response.Write("&br/&") 'for&i=1&to&mypage.pagesize ''这里就可以自定义显示方式了 '&&&&if¬&rs.eof&then& '&&&&&&&&response.write&rs(0)&&&"&br/&" '&&&&&&&&rs.movenext '&&&&else '&&&&&&&&&exit&for '&&&&end&if 'next 'mypage.showpage() %&
上一篇：下一篇：
最 近 更 新
热 点 排 行}
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
11页免费9页免费6页免费12页免费6页免费 10页免费7页免费2页免费4页免费2页免费
喜欢此文档的还喜欢7页免费9页免费11页免费4页免费7页免费
ASP分页源码|A​S​P​分​页​源​码
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢ASP通用分页类源码
阅读：125次&&&时间： 00:00:00&&
&%'==================================================================='XDOWNPAGE&& ASP版本'版本&& 1.00'Code by& zykj2000'Email:&& 'BBS:&& '本程序可以免费使用、修改，希望我的程序能为您的工作带来方便'但请保留以上请息''程序特点'本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义，'支持URL多个参数''使用说明'程序参数说明'PapgeSize&&&&& 定义分页每一页的记录数'GetRS&&&&&& 返回经过分页的Recordset此属性只读'GetConn&&&&& 得到数据库连接'GetSQL&&&&&& 得到查询语句'程序方法说明'ShowPage&&&&& 显示分页导航条,唯一的公用方法''===================================================================Const Btn_First="&font face=""webdings""&9&/font&"& '定义第一页按钮显示样式Const Btn_Prev="&font face=""webdings""&3&/font&"& '定义前一页按钮显示样式Const Btn_Next="&font face=""webdings""&4&/font&"& '定义下一页按钮显示样式Const Btn_Last="&font face=""webdings""&:&/font&"& '定义最后一页按钮显示样式Const XD_Align="Center"&&&& '定义分页信息对齐方式Const XD_Width="100%"&&&& '定义分页信息框大小Class XdownpagePrivate XD_PageCount,XD_Conn,XD_Rs,XD_SQL,XD_PageSize,Str_errors,int_curpage,str_URL,int_totalPage,int_totalRecord,XD_sURL'================================================================='PageSize 属性'设置每一页的分页大小'=================================================================Public Property Let PageSize(int_PageSize)&If IsNumeric(Int_Pagesize) Then& XD_PageSize=CLng(int_PageSize)&Else& str_error=str_error & "PageSize的参数不正确"& ShowError()&End IfEnd PropertyPublic Property Get PageSize&If XD_PageSize="" or (not(IsNumeric(XD_PageSize))) Then& PageSize=10&&&& &Else& PageSize=XD_PageSize&End IfEnd Property'================================================================='GetRS 属性'返回分页后的记录集'=================================================================Public Property Get GetRs()&Set XD_Rs=Server.createobject("adodb.recordset")&XD_Rs.PageSize=PageSize&XD_Rs.Open XD_SQL,XD_Conn,1,1&If not(XD_Rs.eof and XD_RS.BOF) Then& If int_curpage&XD_RS.PageCount Then&& int_curpage=XD_RS.PageCount& End If& XD_Rs.AbsolutePage=int_curpage&End If&Set GetRs=XD_RSEnd Property'================================================================'GetConn& 得到数据库连接''================================================================ Public Property Let GetConn(obj_Conn)&Set XD_Conn=obj_ConnEnd Property'================================================================'GetSQL&& 得到查询语句''================================================================Public Property Let GetSQL(str_sql)&XD_SQL=str_sqlEnd Property&'=================================================================='Class_Initialize 类的初始化'初始化当前页的值''================================================================== Private Sub Class_Initialize&'========================&'设定一些参数的黙认值&'========================&XD_PageSize=10& '设定分页的默认值为10&'========================&'获取当前面的值&'========================&If request("page")="" Then& int_curpage=1&ElseIf not(IsNumeric(request("page"))) Then& int_curpage=1&ElseIf CInt(Trim(request("page")))&1 Then& int_curpage=1&Else& Int_curpage=CInt(Trim(request("page")))&End If& End Sub'===================================================================='ShowPage& 创建分页导航条'有首页、前一页、下一页、末页、还有数字导航''====================================================================Public Sub ShowPage()&Dim str_tmp&XD_sURL = GetUrl()&int_totalRecord=XD_RS.RecordCount&If int_totalRecord&=0 Then& str_error=str_error & "总记录数为零，请输入数据"& Call ShowError()&End If&If int_totalRecord="" then&&&& int_TotalPage=1&Else& If int_totalRecord mod PageSize =0 Then&& int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1& Else&& int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1+1& End If&End If&&If Int_curpage&int_Totalpage Then& int_curpage=int_TotalPage&End If&&'==================================================================&'显示分页信息，各个模块根据自己要求更改显求位置&'==================================================================&response.write ""&str_tmp=ShowFirstPrv&response.write str_tmp&str_tmp=showNumBtn&response.write str_tmp&str_tmp=ShowNextLast&response.write str_tmp&str_tmp=ShowPageInfo&response.write str_tmp&&response.write ""End Sub'===================================================================='ShowFirstPrv& 显示首页、前一页'''====================================================================Private Function ShowFirstPrv()&Dim Str_tmp,int_prvpage&If int_curpage=1 Then& str_tmp=Btn_First&" "&Btn_Prev&Else& int_prvpage=int_curpage-1& str_tmp="&a href="""&XD_sURL & "1" & """&" & Btn_First&"&/a& &a href=""" & XD_sURL & CStr(int_prvpage) & """&" & Btn_Prev&"&/a&"&End If&ShowFirstPrv=str_tmpEnd Function'===================================================================='ShowNextLast& 下一页、末页'''====================================================================Private Function ShowNextLast()&Dim str_tmp,int_Nextpage&If Int_curpage&=int_totalpage Then& str_tmp=Btn_Next & " " & Btn_Last&Else& Int_NextPage=int_curpage+1& str_tmp="&a href=""" & XD_sURL & CStr(int_nextpage) & """&" & Btn_Next&"&/a& &a href="""& XD_sURL & CStr(int_totalpage) & """&" && Btn_Last&"&/a&"&End If&ShowNextLast=str_tmpEnd Function'===================================================================='ShowNumBtn& 数字导航'''====================================================================Private Function showNumBtn()&Dim i,str_tmp&For i=1 to int_totalpage& str_tmp=str_tmp & "[&a href=""" & XD_sURL & CStr(i) & """&"&i&"&/a&] "&Next&showNumBtn=str_tmpEnd Function'===================================================================='ShowPageInfo& 分页信息'更据要求自行修改''====================================================================Private Function ShowPageInfo()&Dim str_tmp&str_tmp="页次:"&int_curpage&"/"&int_totalpage&"页 共"&int_totalrecord&"条记录 "&XD_PageSize&"条/每页"&ShowPageInfo=str_tmpEnd Function'=================================================================='GetURL& 得到当前的URL'更据URL参数不同，获取不同的结果''==================================================================Private Function GetURL()&Dim strurl,str_url,i,j,search_str,result_url&search_str="page="&&strurl=Request.ServerVariables("URL")&Strurl=split(strurl,"/")&i=UBound(strurl,1)&str_url=strurl(i)'得到当前页文件名&&str_params=Trim(Request.ServerVariables("QUERY_STRING"))&If str_params="" Then& result_url=str_url & "?page="&Else& If InstrRev(str_params,search_str)=0 Then&& result_url=str_url & "?" & str_params &"&page="& Else&& j=InstrRev(str_params,search_str)-2&& If j=-1 Then&&& result_url=str_url & "?page="&& Else&&& str_params=Left(str_params,j)&&& result_url=str_url & "?" & str_params &"&page="&& End If& End If&End If&GetURL=result_urlEnd Function'====================================================================' 设置 Terminate 事件。''====================================================================Private Sub Class_Terminate& &XD_RS.close&Set XD_RS=nothingEnd Sub'===================================================================='ShowError& 错误提示'''====================================================================Private Sub ShowError()&If str_Error && "" Then& Response.Write("" & str_Error & "")& Response.End&End IfEnd SubEnd class&set conn = server.CreateObject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb)};dbq=" & server.Mappath("pages.mdb")'#############类调用样例#################'创建对象Set mypage=new xdownpage'得到数据库连接mypage.getconn=conn'sql语句mypage.getsql="select * from [test] order by id asc"'设置每一页的记录条数据为5条mypage.pagesize=5'返回Recordsetset rs=mypage.getrs()'显示分页信息，这个方法可以，在set rs=mypage.getrs()以后,可在任意位置调用，可以调用多次mypage.showpage()'显示数据Response.Write("&br/&")for i=1 to mypage.pagesize'这里就可以自定义显示方式了&&& if not rs.eof then &&&&&&& response.write rs(0) & "&br/&"&&&&&&& rs.movenext&&& else&&&&&&&& exit for&&& end ifnext%&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
Copyright &
All Rights Reserved温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
LOFTER精选
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_',
blogTitle:'\t\tASP分页类代码',
blogAbstract:'&%\'===================================================================\'XDOWNPAGE&&
ASP版本\'版本&&
1.00\'Code by
zykj2000\'Email:&&
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}页面导航：
→ 正文内容
ASP版本 分页类
&% '=================================================================== 'XDOWNPAGE&&&ASP版本 '版本&&&1.00 'Code&by&&zykj2000 'Email:&&&zykj_ 'BBS:&&&http://bbs.513soft.net '本程序可以免费使用、修改，希望我的程序能为您的工作带来方便 '但请保留以上请息 ' '程序特点 '本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义， '支持URL多个参数 ' '使用说明 '程序参数说明 'PapgeSize&&&&&&定义分页每一页的记录数 'GetRS&&&&&&&返回经过分页的Recordset此属性只读 'GetConn&&&&&&得到数据库连接 'GetSQL&&&&&&&得到查询语句 '程序方法说明 'ShowPage&&&&&&显示分页导航条,唯一的公用方法 ' '=================================================================== Const&Btn_First="&font&face=""webdings""&9&/font&"&&'定义第一页按钮显示样式 Const&Btn_Prev="&font&face=""webdings""&3&/font&"&&'定义前一页按钮显示样式 Const&Btn_Next="&font&face=""webdings""&4&/font&"&&'定义下一页按钮显示样式 Const&Btn_Last="&font&face=""webdings""&:&/font&"&&'定义最后一页按钮显示样式 Const&XD_Align="Center"&&&&&'定义分页信息对齐方式 Const&XD_Width="100%"&&&&&'定义分页信息框大小 Class&Xdownpage Private&XD_PageCount,XD_Conn,XD_Rs,XD_SQL,XD_PageSize,Str_errors,int_curpage,str_URL,int_totalPage,int_totalRecord,XD_sURL '================================================================= 'PageSize&属性 '设置每一页的分页大小 '================================================================= Public&Property&Let&PageSize(int_PageSize) &If&IsNumeric(Int_Pagesize)&Then &&XD_PageSize=CLng(int_PageSize) &Else &&str_error=str_error&&&"PageSize的参数不正确" &&ShowError() &End&If End&Property Public&Property&Get&PageSize &If&XD_PageSize=""&or&(not(IsNumeric(XD_PageSize)))&Then &&PageSize=10&&&&& &Else &&PageSize=XD_PageSize &End&If End&Property '================================================================= 'GetRS&属性 '返回分页后的记录集 '================================================================= Public&Property&Get&GetRs() &Set&XD_Rs=Server.createobject("adodb.recordset") &XD_Rs.PageSize=PageSize &XD_Rs.Open&XD_SQL,XD_Conn,1,1 &If¬(XD_Rs.eof&and&XD_RS.BOF)&Then &&If&int_curpage&XD_RS.PageCount&Then &&&int_curpage=XD_RS.PageCount &&End&If &&XD_Rs.AbsolutePage=int_curpage &End&If &Set&GetRs=XD_RS End&Property '================================================================ 'GetConn&&得到数据库连接 ' '================================================================& Public&Property&Let&GetConn(obj_Conn) &Set&XD_Conn=obj_Conn End&Property '================================================================ 'GetSQL&&&得到查询语句 ' '================================================================ Public&Property&Let&GetSQL(str_sql) &XD_SQL=str_sql End&Property & '================================================================== 'Class_Initialize&类的初始化 '初始化当前页的值 ' '==================================================================& Private&Sub&Class_Initialize &'======================== &'设定一些参数的a认值 &'======================== &XD_PageSize=10&&'设定分页的默认值为10 &'======================== &'获取当前面的值 &'======================== &If&request("page")=""&Then &&int_curpage=1 &ElseIf¬(IsNumeric(request("page")))&Then &&int_curpage=1 &ElseIf&CInt(Trim(request("page")))&1&Then &&int_curpage=1 &Else &&Int_curpage=CInt(Trim(request("page"))) &End&If End&Sub '==================================================================== 'ShowPage&&创建分页导航条 '有首页、前一页、下一页、末页、还有数字导航 ' '==================================================================== Public&Sub&ShowPage() &Dim&str_tmp &XD_sURL&=&GetUrl() &int_totalRecord=XD_RS.RecordCount &If&int_totalRecord&=0&Then &&str_error=str_error&&&"总记录数为零，请输入数据" &&Call&ShowError() &End&If &If&int_totalRecord=""&then &&&&&int_TotalPage=1 &Else &&If&int_totalRecord&mod&PageSize&=0&Then &&&int_TotalPage&=&CLng(int_TotalRecord&/&XD_PageSize&*&-1)*-1 &&Else &&&int_TotalPage&=&CLng(int_TotalRecord&/&XD_PageSize&*&-1)*-1+1 &&End&If &End&If &If&Int_curpage&int_Totalpage&Then &&int_curpage=int_TotalPage &End&If &'================================================================== &'显示分页信息，各个模块根据自己要求更改显求位置 &'================================================================== &response.write&"" &str_tmp=ShowFirstPrv &response.write&str_tmp &str_tmp=showNumBtn &response.write&str_tmp &str_tmp=ShowNextLast &response.write&str_tmp &str_tmp=ShowPageInfo &response.write&str_tmp &response.write&"" End&Sub '==================================================================== 'ShowFirstPrv&&显示首页、前一页 ' ' '==================================================================== Private&Function&ShowFirstPrv() &Dim&Str_tmp,int_prvpage &If&int_curpage=1&Then &&str_tmp=Btn_First&"&"&Btn_Prev &Else &&int_prvpage=int_curpage-1 &&str_tmp="&a&href="""&XD_sURL&&&"1"&&&"""&"&&&Btn_First&"&/a&&&a&href="""&&&XD_sURL&&&CStr(int_prvpage)&&&"""&"&&&Btn_Prev&"&/a&" &End&If &ShowFirstPrv=str_tmp End&Function '==================================================================== 'ShowNextLast&&下一页、末页 ' ' '==================================================================== Private&Function&ShowNextLast() &Dim&str_tmp,int_Nextpage &If&Int_curpage&=int_totalpage&Then &&str_tmp=Btn_Next&&&"&"&&&Btn_Last &Else &&Int_NextPage=int_curpage+1 &&str_tmp="&a&href="""&&&XD_sURL&&&CStr(int_nextpage)&&&"""&"&&&Btn_Next&"&/a&&&a&href="""&&XD_sURL&&&CStr(int_totalpage)&&&"""&"&&&&Btn_Last&"&/a&" &End&If &ShowNextLast=str_tmp End&Function '==================================================================== 'ShowNumBtn&&数字导航 ' ' '==================================================================== Private&Function&showNumBtn() &Dim&i,str_tmp &For&i=1&to&int_totalpage &&str_tmp=str_tmp&&&"[&a&href="""&&&XD_sURL&&&CStr(i)&&&"""&"&i&"&/a&]&" &Next &showNumBtn=str_tmp End&Function '==================================================================== 'ShowPageInfo&&分页信息 '更据要求自行修改 ' '==================================================================== Private&Function&ShowPageInfo() &Dim&str_tmp &str_tmp="页次:"&int_curpage&"/"&int_totalpage&"页&共"&int_totalrecord&"条记录&"&XD_PageSize&"条/每页" &ShowPageInfo=str_tmp End&Function '================================================================== 'GetURL&&得到当前的URL '更据URL参数不同，获取不同的结果 ' '================================================================== Private&Function&GetURL() &Dim&strurl,str_url,i,j,search_str,result_url &search_str="page=" &strurl=Request.ServerVariables("URL") &Strurl=split(strurl,"/") &i=UBound(strurl,1) &str_url=strurl(i)'得到当前页文件名 &str_params=Trim(Request.ServerVariables("QUERY_STRING")) &If&str_params=""&Then &&result_url=str_url&&&"?page=" &Else &&If&InstrRev(str_params,search_str)=0&Then &&&result_url=str_url&&&"?"&&&str_params&&"&page=" &&Else &&&j=InstrRev(str_params,search_str)-2 &&&If&j=-1&Then &&&&result_url=str_url&&&"?page=" &&&Else &&&&str_params=Left(str_params,j) &&&&result_url=str_url&&&"?"&&&str_params&&"&page=" &&&End&If &&End&If &End&If &GetURL=result_url End&Function '==================================================================== '&设置&Terminate&事件。 ' '==================================================================== Private&Sub&Class_Terminate&& &XD_RS.close &Set&XD_RS=nothing End&Sub '==================================================================== 'ShowError&&错误提示 ' ' '==================================================================== Private&Sub&ShowError() &If&str_Error&&&&""&Then &&Response.Write(""&&&str_Error&&&"") &&Response.End &End&If End&Sub End&class 'set&conn&=&server.CreateObject("adodb.connection") 'conn.open&"driver={microsoft&access&driver&(*.mdb)};dbq="&&&server.Mappath("/data/5iduohai.mdb") ' ''#############类调用样例################# ''创建对象 'Set&mypage=new&xdownpage ''得到数据库连接 'mypage.getconn=conn ''sql语句 'mypage.getsql="select&*&from&[DH_Company]&order&by&id&asc" ''设置每一页的记录条数据为5条 'mypage.pagesize=5 ''返回Recordset 'set&rs=mypage.getrs() '显示分页信息，这个方法可以，在set&rs=mypage.getrs()以后,可在任意位置调用，可以调用多次 ' ''显示数据 'Response.Write("&br/&") 'for&i=1&to&mypage.pagesize ''这里就可以自定义显示方式了 '&&&&if¬&rs.eof&then& '&&&&&&&&response.write&rs(0)&&&"&br/&" '&&&&&&&&rs.movenext '&&&&else '&&&&&&&&&exit&for '&&&&end&if 'next 'mypage.showpage() %&
上一篇：下一篇：
最 近 更 新
热 点 排 行}
我要回帖
更多关于 小苏打哪里有得卖 的文章
更多推荐
- ·如果在社交平台上（比如知乎推广B站）被人拉黑了，有什么技术可以在不换账号的前提下给拉黑自己的人发消息？
- ·请问玉雕大师这玉雕成器是什么意思器物？
- ·纷纵享悦行怎么么退回资金公司融资返现一年连本带利+旅游+还给产品，收益有保障吗？
- ·cad字体不显示怎么办长仿宋是什么？怎么设置？
- ·朋友圈我多次被禁言怎么解除？我又没触犯什么法律法规，为何长时间禁言？请平台审核人解封
- ·怎么追回被伪基站搞鬼在网上消费的钱?
- ·哪种产品类似于美宝莲蜜乳怎么样的采蜜乳？
- ·我是德阳的现在需要钱请问有什么方法借或者贷的安全正规额度不大 德阳小额贷款公司银行也贷不到
- ·跪求我爱PPT中文网b站邀请码码
- ·谁有最新版带公式的财务报表公式，麻烦发下，谢谢。 。
- ·国家手语教学视频的手语视频
- ·型号，MF266CH/A序列号Dx3M9F8PFMLD麻烦帮我查一下是不是iphone5s翻新机鉴别
- ·日出日落时间的视频，能做日落的视频用码？
- ·空白的题，怎么一道论证题？谢谢
- ·三琪琪20岁以下下叫郭铭凯的有几位
- ·你有《柯南至柯南之禁忌之恋漫画》全本吗？可以发给我吗？507441694，谢谢啦！
- ·求女优 叶月渚しおり 的种子 高分怒求
- ·班级qq群名字大全高一物理公式大全一班
- ·QQ骗子22837120是个骗子，中国上海银行qq彩贝卡6217906000000049931黄远霞，收了钱就没有消息了，QQ拉黑了
- ·水晶鉴定检测
- ·XDOWNPAGE ASP+ACCESS版1.00小苏打哪里有得卖下载?
- ·photoshop cs4下载或以上英文版下载
- ·求Take Taxi波野结衣全集bt种子种子。。。
- ·富二代ken少公开正妹前女友larisa ann 视频+ann套图，扣·扣1459413380
- ·怎么才能找到晨勃消失了怎么办的人
- ·北京汽车检测场地址古今珠宝检测中心编号GJ01785161值多少钱？
- ·免费叮dk好还是dz好？
- ·跪求好人卡txt《东方龙啸》全本，TXT格式的（全本），包括VIP的章节哈！谢谢各位
- ·怎么解绑我百度帐户的密保邮箱，我有绑定密保手机手机
- ·跪求王蘧常先生的《秦史》，什么格式的都可以，求酷派大神f1上传，非常感谢！
- ·求李飘飘的飘飘欲仙 李飘飘txtTXT完整版全集，不要“ * ”符号的 但是要到一百八十八章的
- ·软件lol破壳是什么意思后怎么绘制源码
- ·用C#如何进行录音盒二次安卓开发 例子？有例子的可以给我吗？
- ·大平调mp3下载免费下载
- ·花丛称霸 无贾平凹废都删节部分版 要的是无删的全的就是没（非法字符，省略若干）这个的 希望好人给发一下谢谢
