<%
dim proPic,c_ids
ii=0
sql="select * from P_product where 1=1 and IsIMP=true "
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 P_no asc,orderId asc"
rs.open sql,conn,1,1
if rs.eof then
%>
| NO Products |
<%
else
ps=15
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%>
<%=currentpage%> /All of <%=p_count%> pages Home | First | Next | Last >>
<%call showpage(currentpage,p_count,5,linkstr)%>
|
