欧美在线小视频_成人午夜sm精品久久久久久久_综合国产第二页_蜜乳av一区二区三区

.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;}

<%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
  response.Write("暫時沒有記錄")
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
%>