<% Page=cint(request("page")) pagecount=page pageurl="case.asp" if request.querystring("page")="" then ipagecurrent=1 else ipagecurrent=cint(request.querystring("page")) end if sqlprod="select * from casemain where gb='ch' and online=true " if request("k_keywords")<>"" then sqlprod= sqlprod + " and prodid like'%"&trim(request("k_keywords"))&"%' " end if if request("Parentid")<>"" then sqlprod=sqlprod + " and gbseq='"&request("Parentid")&"'" end if if request("gbcode")<>"" then sqlprod = sqlprod + " and gbcode = '"&request("gbcode")&"'" end if if request("remark")="1" then sqlprod = sqlprod + " and remark = '1'" end if sqlprod = sqlprod + "order by xuhao asc " Set rsprod=Server.CreateObject("ADODB.RecordSet") MaxPage=12 rsprod.pagesize = MaxPage rsprod.cachesize = MaxPage rsprod.open sqlprod,conn,1,1 if rsprod.recordcount=1 then zid=rsprod("id") num=rsprod("prodnum") response.Redirect ("case.asp?ProdNum="&num&"&zid="&zid&"") end if if rsprod.bof and rsprod.eof then response.write "

no add！

" else '以下是调用公用的产品显示页面， %>

2 then 'x = 1 'end if %> <%if not rsprod.eof then%>

" alt="<%= rsprod("prodid") %>" /> " class="t"><%= rsprod("prodid") %> <%= rsprod("model") %>

<% content=ClearHtml(rsprod("ProdDisc")) if len(content)>240 then response.write left(content,240)&"..." else response.write content end if %>

" class="more">See details

<% irecordsshown = irecordsshown +1 end if %> <% rsprod.movenext next loop '*********************************** if request("LarCode")<>"" then txt="LarCode" text=request("LarCode") end if if request("MidCode")<>"" then txt="MidCode" text=request("MidCode") end if if request("Keywords")<>"" then txt="keywords" text=request("Keywords") end if if request("Parentid")<>"" then txt="Parentid" text=request("Parentid") end if %>

<% if rsprod.pagecount>1 then %>

All <%=rsprod.recordcount%> items <% Response.Write"First " Response.Write"Previous " '数字分页 if page>2 then s1=page-2 else s1=1 if page=2 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"Next " Response.Write" Last " %>

<% end if %> <% end if rsprod.close set rsprod=nothing end if %>