专业虚拟主机提供商! 正规合法诚信公司、拥有ICP/ISP双经营许可证
域名空间实时开通立即使用,几分钟即可完成
安全方便的网上支付,超强的域名空间管理程序
我要购买空间,请点这里
我要注册域名,请点这里
我要建设网站,请点这里
我要续费域名,请点这里
我要续费空间,请点这里
我要在线支付,请点这里
首 页 特惠套餐 域名注册 虚拟主机 托管租用 FTP空间 数据库 企业邮局 网站建设 联系我们 付款方式
 | 网站首页 | 虚拟主机资讯 | 域名注册资讯 | 托管租用资讯 | 网络编程 | 网站备案 | 系统安全 | 源码下载 | 
您现在的位置: IDC资讯网 >> 网络编程 >> ASP编程 >> 正文
ASP经典代码:最好的asp分页       ★★★
ASP经典代码:最好的asp分页
点击数: 更新时间:2009-8-12 14:54:29

<!--#include virtual="/incs/config.asp"-->
<%
'url为翻页地址后缀“&”开头
url="&classid="&classid&""


'sql配置代码 (倒序排列)
'---------------------------------------------------------------------------------------开始
'配置
'sql条件 没 请写 1=1
sql="1=1"
'统计字段
sql_id="id"
'显示字段
sql_Field="UserName,BmpUpdate"
'查询表名
sql_table="BokeBMP"
'排序字段
sql_order="BmpUpdate"
'每页记录
PageSize=1
'获得总数
set rs=conn.execute("SELECT count("&sql_id&") from "&sql_table&" where "&sql&" ")
if not rs.eof then
recordcount=rs(0)
end if
rs.close
set rs=nothing
'总页数
pagecount=Abs(Int(recordcount/PageSize*(-1)))
'获得当前页码
if request("page") = "" then
 page = 1
else
 page = cint(request("page"))
 if recordcount< page*PageSize then
 page=pagecount
 end if
end if
'sql语句
if page=1 then
sql="SELECT TOP "&PageSize&" "&sql_Field&" from "&sql_table&" where "&sql&" order by "&sql_order&" desc"
else
sql="SELECT TOP "&PageSize&" "&sql_Field&" from "&sql_table&" where ("&sql_order&" <(SELECT MIN("&sql_order&") FROM (SELECT TOP "&((Page-1)*PageSize)&" "&sql_order&" FROM "&sql_table&" where "&sql&" order by "&sql_order&" desc) AS tblTMP)) and "&sql&" order by "&sql_order&" desc"
end if
'---------------------------------------------------------------------------------------结束

'显示代码
Call  Callpage()


Set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
While Not Rs.Eof
%>
<%=rs(0)%>:<%=rs(1)%><br/>
<%
Rs.MoveNext
Wend


Call  Callpage()
'翻页
Sub Callpage()
 response.write "<table><tr><td>"
 response.Write "当前:<font color=""#FF0000"">"&page&"</font>/"&cstr(pagecount)&","
 
 if page = "1" then
  response.write " 首页 上页 "
 else
  response.write "<a href='?page=1"&url&"'>首页</a> "
  response.write "<a href='?page="+cstr(cint(page-1))+""&url&"'>上页</a> "
 end if
 if cint(page) = pagecount then
  response.write " 下页 尾页 "
 else
  response.write "<a href='?page="+cstr(cint(page+1))+""&url&"'>下页</a> "
  response.write "<a href='?page="+cstr(pagecount)+""&url&"'>尾页</a> "
 end if
 response.Write " 直接到"
 response.write "</td><form name=""form_fy""><td>"
 response.Write("<select name=""select_fy"" onChange=""MM_jumpMenu(this)"" >")
 for i=1 to pagecount
 if cint(page)=cint(i) then
 response.Write("<option value=""?page="&i&""&url&""" selected>第"&i&"页</option>")
 else
 response.Write("<option value=""?page="&i&""&url&""">第"&i&"页</option>")
 end if
 next
 response.Write(" </select> ")
 response.write("</td></form></tr></table>")
 response.write("<script type=""text/JavaScript"">" & vbcrlf)
 response.write("<!--" & vbcrlf)
 response.write("function MM_jumpMenu(selectname){" & vbcrlf)
 response.write("  var myindex=selectname.selectedIndex;" & vbcrlf)
 response.write("  if (myindex == -1){return;}" & vbcrlf)
 response.write("  window.open(selectname.options[myindex].value,""_self"");" & vbcrlf)
 response.write("}" & vbcrlf)
 response.write("//-->" & vbcrlf)
 response.write("</script>")
End Sub
%>

 

文章录入:admin    责任编辑:admin 
  • 上一篇文章:

  • 下一篇文章:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    最新推荐  更多内容
    最新热门  更多内容
    资讯中心首页
    | 虚拟主机资讯 | 域名注册资讯 | 托管租用资讯 | 网络编程 | 网站备案 | 系统安全 | 源码下载 |
    关于我们 | 联系我们 | 产品价格 | 代理加盟 | 咨询反馈 | 诚聘英才 | 在线对话系统 | ASP技术网 | 帮助中心 | 网站地图
    ICP/ISP证B2-20050322
    ICP/ISP经营许可证编号:粤ICP证B2-20050322 网站备案号:粤B2-20050322号
    客服热线:0755-26499456 0755-26499435 [共8线] 24小时值班:0755-21852765 [更多]
    客服QQ:
    [ 63103 ]
    [ 959260 ]
    代理咨询:
    [ 519065 ]
    [更多]
    客户服务中心:深圳市南山区桃园路前海金岸金丰阁706  邮编:518052
    本站推广词:动态空间 | 网站空间 | 虚拟主机 | 深圳网站建设 | 空间购买 | 域名空间 | ASP空间申请购买
    服务范围:广州·深圳·东莞·珠海·汕头·惠州·中山·佛山·上海·重庆等全国其它地区
    广东省深圳市稳速网络科技有限公司版权所有 严禁以任何形式进行复制、抄袭