<stype>
.fen1{ width:700px; height:20px; float:left; display:inline; text-align:center; margin-
left:4px; margin-top:7px;}
.fen1 a.aab{  border:#CCCCCC solid 1px;  text-align:center; padding:2px 5px; }
.fen1 a:hover.aab{  border:#DC9861 solid 1px; color:#000000;}
.fen1 a.aac{  border:#DC9861 solid 1px; color:#993300;text-align:center; padding:2px 5px;}
.fen1 a,.fen1 span{  border:#CCCCCC solid 1px;  text-align:center; padding:2px 5px;
width:100px; color:#666666;}
</stype>
 
 
 
<%a=request("a")
b=request("b")%>
   <%
page=clng(request("page"))  
Set rs=Server.CreateObject("ADODB.RecordSet")
if b <> "" then
sql="select * from product where a='"&a&"' and b='"&b&"'  order by id desc"
elseif a<>"" then
sql="select * from product where a='"&a&"' and b='"&b&"'  order by id desc"
else
sql="select * from product where a=9   order by id desc"
end if
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
  htm = htm&("暂时没有记录")
else
%>
 
 
 <%
rs.PageSize=10
eee=10
fff=INT(eee/2)
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page 
for j=1 to rs.PageSize
%>