<% action=request("type") if action="" then img="22.jpg" else select case action case 3: img="22.jpg" case 22: img="22.jpg" case 259: img="22.jpg" case 23: img="22.jpg" case 4: img="22.jpg" case 20: img="22.jpg" case 21: img="22.jpg" case 19: img="27.jpg" case 11: img="hz.jpg" end select end if %>
 
<% t_type=request.QueryString("type") if t_type="" then sql="select * from products where type<>19 " else sql="select * from products where type="&t_type end if sql=sql&" order by [order] asc" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 page=request.QueryString("page") if IsNumeric(page) then page=cint(page) if page<1 then page=1 else page=1 end if everypage=32 rs.pagesize=everypage if rs.bof and rs.eof then response.Write("no products now") else temp=1 page_count=rs.pagecount rs.AbsolutePage=page info=rs("info") %> <% do while not rs.eof and j <% if (temp mod 4)=0 then response.Write("") temp=temp+1 %> <% j=j+1 rs.movenext loop end if %>
图片 <%=page%> 到 <%=recordcount%>    <% if page=1 then Response.Write"<< 当前页" else Response.Write"<< 下一页" end if for j=page-4 to page-1 if j>0 then%> <%=j%> <%end if next for j=page to page+4 if j<=page_count then if j=page then%> [<%=j%>] <%else%> <%=j%> <%end if end if next if page 下一页>> <%else%> 下一页 >> <%end if%>

<%if t_type=3 then%> <%end if%>