<% tppid = Request.QueryString ("ppid") If Request.QueryString ("ppid") = "" Then response.write "参数错误！请后退检查！" End If Call SetConn () intTotalNum = 0 intPageSize = 15 intTotalPageCount = 0 intCurrentPage = 0 images_show=Request.QueryString ("images_show") if images_show="" then images_show=1 end if %> <%=webname%>  ----  <%=tppid%><%if tppid<>"" then%> <% call Getppname (tppid) %> <%end if%>|<%=Webtitle%>—商品导购
 
您的当前位置: 首页 >> 所有品牌 >> <% if tppid<>"" then%> <% call GetppName (tppid) %> <%end if%>


品 牌 精 品
<% call Writeproductpp()%>

 
<% ' ========================================= ' 处理检索 call s call setconn() if request("submit")<>"" then tppid=request("ppid") sql = "Select * From tproduct where mDel = 0 and tpp="& tppid &" and show=0 order by id " else sql = "Select * From tproduct where mDel = 0 and tpp="& tppid &" and show=0 order by id " end if 'response.write sql Set objTemp = Server.CreateObject ("ADODB.Recordset") 'response.write sql 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") %>" target=_blank >
型号：<%=strtproduct_cz%>
<% if objtemp("recommend")=2 then%>  <%end if %>" title=<%=objtemp("tproduct")%>><%=objtemp("tproduct")%>
价格：￥<%=objtemp("tprice2")%>
>购买 &tproduct=<%=objtemp("tproduct")%> >收藏
<% If not objTemp.EOF Then%>
<% strtproduct_cz = objtemp("tproduct_cz") strtproduct_bh = objtemp("tproduct_bh")%> " title="<% = objTemp ("tproduct") %>" target=_blank >
型号：<%=strtproduct_cz%>
<% if objtemp("recommend")=2 then%>   <%end if %>" title=<%=objtemp("tproduct")%>><%=objtemp("tproduct")%>
价格：￥<%=objtemp("tprice2")%>
>购买 &tproduct=<%=objtemp("tproduct")%> >收藏
<% If not objTemp.EOF Then%>
<% strtproduct_cz = objtemp("tproduct_cz") strtproduct_bh = objtemp("tproduct_bh") %> " title="<% = objTemp ("tproduct") %>" target=_blank >
型号：<%=strtproduct_cz%>
<% if objtemp("recommend")=2 then%>  <%end if %>" title=<%=objtemp("tproduct")%>><%=objtemp("tproduct")%>
价格：￥<%=objtemp("tprice2")%>
>购买 &tproduct=<%=objtemp("tproduct")%> >收藏
<% End If objTemp.Close Set objTemp = Nothing %>
第 <% = intCurrentPage %> 页/共 <% = intTotalPageCount %> 页 共 <% = intTotalNum %> 条记录
<<  <% for go=startpage to endpage if go=intCurrentPage then%> <%=go%> <%else %> <%=go%> <% end if next %> >>