<%@LANGUAGE="VBSCRIPT" CODEPAGE="96"%> 温州黄岩华兴塑料制品有限公司

<% bigclass=trim(request("bigclass")) key=trim(request("key")) dim row,col,pNum,strFileName row= col= pnum=9 strFileName="product.asp?bigclass="&bigclass&"&key="&key&"" CurrentPage=replacebadchar(request("page")) if CurrentPage="" then CurrentPage=1 else if not IsNumeric(CurrentPage) then CurrentPage=1 else if int(CurrentPage)<=0 then CurrentPage=1 else CurrentPage=replaceBadchar(request("page")) end if end if end if maxperpage=pnum set rs=server.createobject("adodb.recordset") select case bigclass case "" select case key case "" sql="select * from product order by hit" case else sql="select * from product where productname like '%"&key&"%' order by hit" end select case else select case key case "" sql="select * from product where bigclassname='"&bigclass&"' order by hit" case else sql="select * from product where bigclassname='"&bigclass&"' and productname like '%"&key&"%' order by hit" end select end select rs.open sql,conn,1,1 if not rs.eof then rs.pagesize=MaxPerpage totalnumber=rs.recordcount if totalnumber mod maxperpage=0 then MaxPage= totalnumber \ MaxPerpage else MaxPage= totalnumber \ MaxPerpage+1 end if if int(CurrentPage)>int(MaxPage) then CurrentPage=MaxPage else CurrentPage=CurrentPage end if rs.absolutepage=CurrentPage%>
<% for ni=1 to row if rs.eof then exit for %> <%for bj=1 to col if rs.eof then exit for %> <% rs.movenext next %> <%next%>
" target="_blank">
','go','scrollbars=no,resizable=no,width=450,height=500,left=200,top=200,screenX=200,screenY=200')">" width="140" height="105" border="0" class="seachinput">
','go','scrollbars=no,resizable=no,width=450,height=500,left=200,top=200,screenX=200,screenY=200')"><%=replace(rs("productname"),key,""&key&"")%>
<%call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个产品",CurrentPage)%> <%else%>
暂无产品......
<%end if rs.close set rs=nothing %>