<%=ClassName%>

<% dim proPic,c_ids ii=0 sql="select * from P_product where 1=1" if cint(sc_id)>0 then c_ids=GetRelatedID(sc_id) sql=sql&"and C_ID in("&c_ids&")" end if key=replace(key,"Keyword","") if key<>"" then select case cint(stype) case 1 sql=sql&" and P_Name like '%"&key&"%'" case 2 sql=sql&" and P_No like '%"&key&"%'" case 3 sql=sql&" and P_Type like '%"&key&"%'" case 4 sql=sql&" and P_SPF like '%"&key&"%'" case 5 sql=sql&" and P_Factory like '%"&key&"%'" case else sql=sql&" and P_Name like '%"&key&"%'" end select end if sql=sql&" order by C_id asc,orderId asc" rs.open sql,conn,1,1 if rs.eof then %> <% else if Sc_id=3 or sc_id=11 then ps=20 else ps=15 end if rs.pagesize=ps currentpage=request("page") if currentpage="" then currentpage=1 if currentpage<1 then currentpage=1 if cint(currentpage)>cint(rs.pagecount) then currentpage=rs.pagecount rs.absolutepage=currentpage p_count=rs.pagecount n_count=rs.recordcount %> <% ii=0 do while not rs.eof proPic=rs("P_sPic") if proPic="" or isnull(proPic) then proPic=rs("P_Pic") ii=ii+1 %> <% if cint(ii)>0 and (ii mod 5)=0 then response.Write(" ") If cint(ii)>=cint(ps) Then Exit Do rs.movenext loop rs.close set rs=nothing %> <%end if%> NO Products ">" width="100" border="0" /> " align="center" valign="top" class="rowwrapper">"><%=rs("P_Name")%> <%=currentpage%> /All of <%=p_count%> pages    Home | First | Next | Last >> <%call showpage(currentpage,p_count,5,linkstr)%>