<% Page=cint(request("page")) pagecount=page pageurl="sublist.asp" if request.querystring("page")="" then ipagecurrent=1 else ipagecurrent=cint(request.querystring("page")) end if 'sqlprod="select * from ProdMain where gb='ch' and larseq<>'66' and online=true " sqlprod="select * from ProdMain where gb='ch' and online=true and Remark <> '1' " 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 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 ("product.asp?ProdNum="&num&"&zid="&zid&"") end if if rsprod.bof and rsprod.eof then response.write "
no add！
" else '以下是调用公用的产品显示页面， %>
<% 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 %>