<% '================================= ' ' ?′o￡????1???(?óòμ)í???1üàí?μí3 ' Apollo 101101111@QQ.com ' www.Huaihi.com ' ' copyright(c)2008 LkStar ' '================================= %> <% set rs=server.createobject("adodb.recordset") sqltext="select * from honor order by id desc" rs.open sqltext,conn,1,1 dim MaPerPage MaPerPage=9 dim text,checkpage text="0123456789" Rs.PageSize=MaPerPage for i=1 to len(request("page")) checkpage=instr(1,text,mid(request("page"),i,1)) if checkpage=0 then exit for end if next If checkpage<>0 then If NOT IsEmpty(request("page")) Then CurrentPage=Cint(request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount Else CurrentPage= 1 End If If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if Else CurrentPage=1 End if call showpages call list If Rs.recordcount > MaPerPage then call showpages end if '??ê?ì?×óμ?×ó3ìDò Sub list()%>

<%i=1 %>

<%i=1 %> <% Do While Not rs.EOF%> <%if i mod 2 <>0 then%> <%end if%> <% if i mod 2 =0 then%> <%end if%> <% 'rs.MoveNext 'i=i+1 'Loop 'end sub %> <% i=i+1 if i >= 10 then exit do rs.MoveNext loop end sub %>

北京TOTO洁具、TOTO卫浴
2007年节水产品突出贡献奖第一届首都家居产业杰出品牌

北京TOTO洁具、TOTO卫浴
2007中国室内设计师信赖的十大建材品牌

<%=rs("title")%>

<% Response.write "-> è?2?-" Response.write "12" & "" & Cstr(Rs.RecordCount) & "" & "ì?D??￠ " Response.write "μú" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs.pagecount) & " " If currentpage > 1 Then response.write "ê×ò3 " Response.write "é?ò?ò3 " Else Response.write "é?ò?ò3 " End if If currentpage < Rs.PageCount Then Response.write "??ò?ò3 " Response.write "?2ò3 " Else Response.write "" Response.write "??ò?ò3 " End if %> TOTO卫浴|北京TOTO洁具|森淘散热器、感应洁具|电话：13911220653 版权所有京ICP备0806091号