%
'=================================
'
' ?′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%>

2007年节水产品突出贡献奖 第一届首都家居产业杰出品牌

2007中国室内设计师信赖的十大建材品牌
|
| |
<%=rs("title")%> |
| |
|
<%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
%>
|
 |
|
<%
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号 |
|