发送文章__当百网

文章·资料	电脑软件	手机软件	网站源码
电脑·手机·网络学习话题娱乐故事文化·历史国学典籍法律法规	操作系统网络办公·文件音频视频图形图像硬件·驱动程序行业教学学习编程游戏	安卓苹果鸿蒙其他	ASP ASP.NET JSP PHP HTML·CSS·JavaScript

本站搜索

发送文章

ASP分页函数

〖评论()〗〖留言〗〖收藏〗

收信地址

填写收信人的电子邮箱

邮件主题

填写邮件主题

邮件内容

%Function ExportPageInfo(ByRef rs,curpage,i,LinkFile) Dim retval, j, pageNumber, BasePage retval = "第"  curpage  "页/总"  rs.pagecount  "页 " retval = retval  "本页"  i  "条/总"  rs.recordcount  "条 " If curpage = 1 Then retval = retval  "首页 前页 " Else retval = retval  "a href=’’"  LinkFile  "page=1’’首页/a a href=’’"  LinkFile  "page="  cstr(curpage - 1)  "’’前页/a " End If If curpage = rs.pagecount Then retval = retval  "后页 末页" Else retval = retval  "a href=’’"  LinkFile  "page="  cstr(curpage + 1)  "’’后页/a a href=’’"  LinkFile  "page="  cstr(rs.pagecount)  "’’末页/a" End if retval = retval  "br/" BasePage = (curpage \ 10) * 10 If BasePage  0 Then retval = retval  " a href=’’"  LinkFile  "page="  (BasePage - 9)  "’’/a" For j = 1 to 10 pageNumber = BasePage + j If PageNumber  rs.pagecount Then Exit For If pageNumber = Cint(curpage) Then retval = retval  " font color=’’#FF0000’’"  pageNumber  "/font" Else retval = retval  " a href=’’"  LinkFile  "page="  pageNumber  "’’"  pageNumber  "/a" End If Next If rs.pagecount  BasePage Then retval = retval  " a href=’’"  LinkFile  "page="  (BasePage + 11)  "’’/a" ExportPageInfo = retval End Function 

应用 % adoPageRS.open "SELECT * FROM news ORDER BY addtime DESC", conn, 1, 1 if err.number  0 then response.write "数据库操作失败："err.description else if adoPageRS.eof and adoPageRS.bof then response.write "没有记录" else % div align="center" center table width="100%" border="0" cellspacing="1" cellpadding="2" tr class="big" td width="60%"新 闻 标 题/td td width="25%" align="center"日期/td td width="15%" align="center"操　　作/td /tr % adoPageRS.pagesize = 10 adoPageRS.absolutepage = curpage for i = 0 to 9 % tr td%= adoPageRS("title") %/td td align="center" % = adoPageRS("addtime") % /td td align="center"a href=’’newsman.asp?action=editid=%= adoPageRS("id")%’’编辑/a a href=’’javascript:confirmDel(%= adoPageRS("id") %)’’删除/a/td /tr % adoPageRS.movenext if adoPageRS.eof then i = i + 1 exit for End If next % tr align="center" td colspan="3" % = ExportPageInfo(adoPageRS, curpage, i, "Newsman.asp?") % /td /tr /table /center /div<br /><br />文章网址：<a href="https://dangbai.cn/Article.asp?ID=10002064" target="_blank">https://dangbai.cn/Article.asp?ID=10002064</a>

填写邮件内容

发信地址

填写发信人的电子邮箱

邮件签名

填写邮件签名

验证码

填写验证码，单击刷新验证码

发送协议

·欢迎使用本站在线文章发送系统。
·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。
·如果收信人地址或其服务器出现错误，可能无法成功发送。
·如果有什么问题，或者意见建议，请联系［网站管理员］。

当百网

本站使用【啊估文章软件站】网站系统〖网站管理员留言簿〗