<%=webname%> ---- 商品搜索

<% Call SetConn () intTotalNum = 0 intPageSize = 15 intTotalPageCount = 0 intCurrentPage = 0 Keyword = Replace (Trim (Request ("keyword")), "'", "''") %> <%=webname%> ---- 商品搜索

您的当前位置: 首页>> 商品搜索

品牌精品

<% call Writeproductpp()%>

按类别：	<% call EnumCatalog ()%>
按品牌：	<%call Enumpp()%>
关键词：	(请输入商品编号或名称关键词)
	搜索说明：您可以在上面的搜索条件中输入您感兴趣的内容或产品编号，选择类别和品牌，我们的搜索引擎会把所有产品名称中包含该内容的产品搜索出来。

<% ' ========================================= ' 处理检索 if request("submit")<>"" then Keyword = Replace (Trim (Request ("keyword")), "'", "''") itypeway=request("typeway") itpp=request("tpp") strorder=request("order") if strorder="" then strorder=1 end if if strorder=1 then orderconn= "order by id asc" elseif strorder=2 then orderconn= "order by id desc" elseif strorder=3 then orderconn= "order by tpricenet asc" elseif strorder=4 then orderconn= "order by tpricenet desc" end if if itypeway="" then if itpp="" then sql = "Select * From tproduct where mDel = 0 and show=0 and ( tproduct like '%"& keyword & "%' or tproduct_bh like '%"& keyword & "%') "& orderconn &" " else sql = "Select * From tproduct where mDel = 0 and show=0 and tpp="& itpp & " and ( tproduct like '%"& keyword & "%' or tproduct_bh like '%"& keyword & "%') "& orderconn &" " end if else if itpp="" then sql = "Select * From tproduct where mDel = 0 and show=0 and aclassid="& itypeway &" and ( tproduct like '%"& keyword & "%' or tproduct_bh like '%"& keyword & "%') "& orderconn &" " else sql = "Select * From tproduct where mDel = 0 and show=0 and tpp="& itpp &" and aclassid="& itypeway &" and ( tproduct like '%"& keyword & "%' or tproduct_bh like '%"& keyword & "%') "& orderconn &" " end if end if 'response.write sql Set objTemp = Server.CreateObject ("ADODB.Recordset") objTemp.Open sql, Conn, 1, 1 If not objTemp.EOF Then intTotalNum = objTemp.RecordCount objTemp.PageSize = intPageSize intTotalPageCount = objTemp.PageCount intCurrentPage = Request("current") If IsNumeric (intCurrentPage) Then If CLng (intCurrentPage) = 0 Then intCurrentPage = 1 ElseIf Clng (intCurrentPage) > intTotalPageCount Then intCurrentPage = CLng (intTotalPageCount) Else intCurrentPage = Clng (intCurrentPage) End If Else intCurrentPage = 1 End If startpage=intCurrentPage-5 if startpage<1 then startpage=1 end if endpage=intCurrentPage+5 if endpage>objTemp.pagecount then endpage=objTemp.pagecount end if objTemp.AbsolutePage = CLng (intCurrentPage) %>

第 <% = intCurrentPage %> 页/共 <% = intTotalPageCount %> 页共 <% = intTotalNum %> 条记录

<< <% for go=startpage to endpage if go=intCurrentPage then%> <%=go%> <%else %> <%=go%> <% end if next %> >>

<% irecordsshown = 0 do while irecordsshown < 15 and NOT objtemp.EOF %> <%'End If 'objTemp.MoveNext loop %>

<%irecordsshown =irecordsshown +1 objtemp.movenext end if%> <%irecordsshown = irecordsshown +1 objtemp.movenext end if%> <%irecordsshown = irecordsshown +1 objtemp.movenext end if%>

<% If not objTemp.EOF Then%>

<% strtproduct_cz = objtemp("tproduct_cz") strtproduct_bh = objtemp("tproduct_bh")%> " title=<%=objtemp("tproduct")%>>