产品分类: 推荐: 产品型号 产品名称:  产品ID:
<% dim search_sql,search_class,search_top,search_model,search_keywords,search_id,filego search_class=request("p_class") search_top=request("top") search_model=request("p_model") search_keywords=request("keywords") search_id=request("search_id") filego="product.asp?p_class="&search_class&"&p_model="&search_model&"&top="&search_top&"&keywords="&search_keywords&"&search_id="&search_id search_sql="select * from [product] where 1=1" if search_class<>"" and search_class<>"不限" then search_sql=search_sql & " and p_class='"&search_class&"'" end if if search_model<>"" then search_sql=search_sql & " and p_model='"&search_model&"'" end if if search_top<>"" then search_sql=search_sql & " and top="&search_top end if if search_keywords<>"" then search_sql=search_sql & " and (p_name like '%"&search_keywords&"%' or p_comment like '%"&search_keywords&"%')" end if if search_id<>"" then search_sql=search_sql & " and id="&search_id end if search_sql=search_sql & " order by pubdate desc" 'response.write search_sql 'response.end set rs=Server.CreateObject("ADODB.RecordSet") rs.open search_sql,conn,1,1 if not rs.eof then rs.PageSize = 20 '每页显示记录数 If Request("page")<>"" and IsNumeric(Request("page")) Then page=cint(Request("page")) End If if page<=0 then page=1 end if if page>Rs.PageCount then page=Rs.PageCount end if Rs.AbsolutePage=page currentpage=page for i=1 to 20 %> <% rs.movenext if rs.eof then Exit For End if next %> <% else%> <% end if %>
"> "><%=rs("p_name")%>(<%=rs("hits")%>) "><% if rs("top")=1 then response.write "推荐" else response.write "未推荐" end if%> <%=rs("p_class")%> <%=rs("pubdate")%> "> "> ">
没有找到相关记录
<% if filego<>"news.asp" then filego2=filego&"&" else filego2="news.asp?" end if if page>10 then s1=page else s1=1 if page=10 then response.write "上一页" for j=s1 to s2 if j=page then response.write ""&j&" " else response.write ""&j&" " end if next if s2下一页" response.write "         共"&rs.RecordCount&"条记录,每页显示"&rs.pagesize&"条,共"&rs.pagecount&"页,当前第"&page&"页" rs.close set rs=nothing %>