| 推荐新闻 |
更多 |
|
 |
|
<%=OneF_news_tuijian_all(1,5)%>
|
|
|
|
|
|
|
|
<%
dim iii
iii=1
BigClassID=ad
SmallClassID=b
if not isnumeric(BigClassID) or not isnumeric(SmallClassID) then
Response.Write ""
Response.End()
end if
set rs=server.createobject("adodb.recordset")
if BigClassID="" then
exec="select * from products order by id desc"
end if
if BigClassID<>"" then
exec="select * from products where SmallClassID="&BigClassID&" order by id desc"
end if
rs.open exec,conn,1,1
if rs.eof then
response.Write " 暂无产品！"
else
rs.PageSize =""&TD_productsclass&"" '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=b
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
end if
%>
<%For i=1 To x%>
<%if iii =1 then%><%end if%>
|
<%if iii =3 then%>
<%
iii=0
end if
iii=iii+1
rs.movenext
next
%>
|
|
| <%'以下显示分页
call PageControl(iCount,maxpage,page,"border=0 align=center"," ")
rs.close
set rs=nothing
%> |
|
|
 |
|