<% kfc="cp" sort_id=request("sort_id") nsort_id=request("nsort_id") nnsort_id=request("nnsort_id") s4=request("s4") s5=request("s5") s6=request("s6") s4z1=request("s4z1") s4z2=request("s4z2") key=request("key") sql_text="select * from cp where " if sort_id="" then sql_text=sql_text n1="产品目录" else set rsn1=server.CreateObject("adodb.recordset") rsn1.open"select * from sort where sort_id="&sort_id,cn,1,3 n1=rsn1("sort_name") sql_name="sort_id ="&sort_id&" "+"and" sql_text=sql_text+sql_name end if if nsort_id="" then sql_text=sql_text else set rsn2=server.CreateObject("adodb.recordset") rsn2.open"select * from nsort where nsort_id="&nsort_id,cn,1,3 n2=rsn2("nsort_name") sql_name=" nsort_id="&nsort_id&" "+ "and" sql_text=sql_text+sql_name end if if nnsort_id="" then sql_text=sql_text else set rsn3=server.CreateObject("adodb.recordset") rsn3.open"select * from nnsort where nnsort_id="&nnsort_id,cn,1,3 n3=rsn3("nnsort_name") sql_name=" nnsort_id="&nnsort_id&" "+"and" sql_text=sql_text+sql_name end if if s5="" then sql_text=sql_text else n1="新品推荐" sql_name=" s5='"&s5&"' "+ "and" sql_text=sql_text+sql_name end if if key="" then sql_text=sql_text else sql_name=" s1 like '%"&key&"%' or es1 like '%"&key&"%' "+ "and" sql_text=sql_text+sql_name n1="搜索结果" end if sql_text=sql_text+" 1=1"+" order by px asc" set rscp=server.CreateObject("adodb.recordset") rscp.open sql_text,cn,1,3 dim pages,cur_recordcounts pages=clng(request.QueryString("pages")) rscp.pagesize=9 if not rscp.eof then if pages=0 then pages=1 else rscp.move(pages-1)*rscp.pagesize end if if pages

<%=n1%> >> <%=n2%> >> <%=n3%>

<% if rscp.recordcount=0 then%> <%response.Write("数据更新中...")%> <%else%> <% for i=1 to cur_recordcounts%> <%if (i mod 3)=0 then response.write ""%> <%rscp.movenext next %>

&nsort_id=<%=rscp("nsort_id")%>">

" src="../guanli/<%=rscp("tpdz")%>" width="210" height="140" border="0" />

"><%=rscp("s1")%>

共有【<%=rscp.recordcount%>】条分<%=rscp.pagecount%>页显示 <% response.Write"首页 " if pages>1 then response.Write" 上一页 " else response.Write" 上一页 " end if if pages<=rscp.pagecount-5 then start=pages-5 else start=rscp.pagecount-10 end if if start<=0 then start=1 for i=start to rscp.pagecount if i=pages then response.Write"" else if i下一页 " else response.Write" 下一页 " end if response.Write" 末页 " %>

<%end if%>