%
set rs=server.createobject("adodb.recordset")
pro=trim(request("pro"))
page=trim(request("page"))
sel=trim(request("sel"))
'response.write sel
if isnumeric(pro) then
if not conn2.execute("select ppclass from ppclass where id="&cint(pro)).eof then
proname=conn2.execute("select ppclass from ppclass where id="&cint(pro))(0)
end if
gostr="&pro="&pro
strs=" and ppclass="&cint(pro)
end if
%>
服饰品牌
您当前的位置:首页>>服饰品牌<% if proname<>"" then response.write " >> "&proname%>
<%
sql="select id,ppclass from ppclass"
rs.open sql,conn2,1,1
do while not rs.eof
response.write ""&trim(rs("ppclass"))&""&" "
rs.movenext
loop
rs.close
%>
<%
counts=conn2.execute ("select count(id) from fspinpai where 1=1"&strs)(0)
page=trim(request("page"))
if not isnumeric(page) then
page=1
else
page=cint(page)
end if
pagecount=24
pages=int(counts/pagecount)
if pagespages then page=pages
if pro<>"" then
gopage="proclass"&pro
end if
if pro="" and page<>"" then
gopage="pro"
end if
if counts>0 then
if page=1 then
sql="select top "&pagecount&" id,ppcnname,pplogo from fspinpai where 1=1"&strs&" order by ppdate desc"
else
sql="select top "&pagecount&" id,ppcnname,pplogo from fspinpai where 1=1"&strs&" and id not in(select top "&(page-1)*pagecount&" id from fspinpai where 1=1"&strs&" order by ppdate desc) order by ppdate desc"
end if
rs.open sql,conn2,1,1
if not rs.eof then
for i=1 to rs.recordcount
if (i mod 4)=1 then
%>
<% end if %>
<%
sub pagefun(page,pages)
if pages>1 then response.write ""
if page>1 and pages>1 then response.write "首页 " else if pages>1 then response.write "首页 "
if pages>7 then
if page>4 and page+3<=pages then
for i=page-3 to page+3
if page=i then
response.write ""&i&" "
else
response.write ""&i&" "
end if
next
else
if (page>4 and page+3>pages) then
for i=pages-6 to pages
if page=i then
response.write ""&i&" "
else
response.write ""&i&" "
end if
next
end if
end if
if page<=4 then
for i=1 to 7
if page=i then
response.write ""&i&" "
else
response.write ""&i&" "
end if
next
end if
end if
if pages<=7 then
for i=1 to pages
if page=i then
response.write ""&i&" "
else
response.write ""&i&" "
end if
next
end if
if pages>1 then
if page尾页" else response.write "尾页"
response.write ""
end if
end sub
%>