新闻中心

News center
青岛网站建设分页代码
发表于 : 2014-07-27 10:07

青岛网站建设分页代码

.fen1{ width:700px; height:20px; float:left; display:inline; text-align:center; margin-

left:4px; margin-top:7px;}

.fen1 a.aab{  border:#CCCCCC solid 1px;  text-align:center; padding:2px 5px; }

.fen1 a:hover.aab{  border:#DC9861 solid 1px; color:#000000;}

.fen1 a.aac{  border:#DC9861 solid 1px; color:#993300;text-align:center; padding:2px 5px;}

.fen1 a,.fen1 span{  border:#CCCCCC solid 1px;  text-align:center; padding:2px 5px;

width:100px; color:#666666;}

 

 

 

<%a=request("a")

b=request("b")%>

   <%

page=clng(request("page"))  

Set rs=Server.CreateObject("ADODB.RecordSet")

if b <> "" then

sql="select * from product where a='"&a&"' and b='"&b&"'  order by id desc"

elseif a<>"" then

sql="select * from product where a='"&a&"' and b='"&b&"'  order by id desc"

else

sql="select * from product where a=9   order by id desc"

end if

rs.Open sql,conn,1,1

if rs.eof and rs.bof then

  response.Write("暂时没有记录")

else

%>

 

 

 <%

rs.PageSize=10

eee=10

fff=INT(eee/2)

if page=0 then page=1

pages=rs.pagecount

if page > pages then page=pages

rs.AbsolutePage=page 

for j=1 to rs.PageSize

%>

 


 

 

<%

rs.movenext

if rs.eof then exit for

next

%>

 

 


 

 


                          <%if Page<2 then     

    response.write "首页 上一页 "

  else

    response.write "首页 "

    response.write "上一页

 "

  end if %>

 

 

 

  <%if page="" then

  page=1

  end if%>

 

 

 

   <%if rs.pagecount <= eee then %>

   <% for ccc=1 to rs.pagecount%>  

    <%if ccc=page then%>

  <%=ccc%>

  <%else%>

  <%=ccc%>

  <%end if%>

  <%next%> 

  <%elseif rs.pagecount >eee then%> 

  <%if page < fff+1 then %> 

   <% for bb=1 to eee%>

  <%if bb=page then%>

  <%=bb%>

  <%else%>

  <%=bb%>

  <%end if%>

   <%next%>   

     <%else%>

  <%aaa=page-fff%>

    <%bbb=page+fff%>

 <%if bbb > rs.pagecount then

 bbb=rs.pagecount

 end if%>

 <%if page > rs.pagecount-fff then %>

 <%ddd=bbb-eee%>

 <% for bb=ddd to bbb%>  

    <%if bb=page then%>

  <%=bb%>

  <%else%>

  <%=bb%>

  <%end if%>

  <%next%>

  <%else%>

   <% for bb=aaa to bbb%>  

    <%if bb=page then%>

  <%=bb%>

  <%else%>

  <%=bb%>

  <%end if%>

  <%next%>

  <%end if%>

 <%end if%>

<%end if%>  

  <%

  if rs.pagecount-page<1 then

    response.write "下一页 尾页"

  else

    response.write ""

    response.write "下一页

尾页"

  end if

  'response.write " 页次:

color=red>"&Page&"/"&rs.pagecount&" "

    'response.write " "&rs.recordcount&"条记录

"&rs.pagesize&"条记录/"

   'response.write " 转到:

value="&page&">"

  ' response.write "

name='cndok'>

"    


%>

                         <%

end if

rs.close

set rs=nothing

%>

青岛微塔罗信息科技有限公司主营网站建设、网站开发、网页设计、微信开发、微信运营、网络推广等业务,公司成立至今服务客户3000多家,公司拥有资深界面设计师、交互设计师以及程序工程师和营销专家。通过将商业目标、场景营销、情感连结融入设计,从而创造出符合企业定位的网站,并结合主流线上资源推广来实现客户网站最大化的价值,有效的提升了用户体验和客户品牌价值。更多服务细节及案例,请浏览企业载体建设网站www.microtarot.com.cn及企业官网www.microtarot.com

 



| 返回官网 | 新闻中心 | 小程序 |

copyright ©2014  青岛微塔罗信息科技有限公司 鲁ICP备14030107号-5    青岛市市北区瑞昌路141号S4-2004,联系电话&微信:15376720202