<% Page=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 casemain where gb='ch' and online=true " if request("keywords")<>"" then sqlprod= sqlprod + " and prodid like '%"&trim(request("keywords"))&"%' or model like '%"&trim(request("keywords"))&"%' or ProdDisc like '%"&trim(request("keywords"))&"%' " end if if request("type")<>"" then sqlprod= sqlprod + " and gbcode like '%"&trim(request("type"))&"%' or larcode like '%"&trim(request("type"))&"%' or midcode like '%"&trim(request("type"))&"%' " 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("Larseq")<>"" then sqlprod = sqlprod + "and Larseq = '"&request("Larseq")&"'" 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 ("product.asp?ProdNum="&num&"&zid="&zid&"") 'end if if rsprod.bof and rsprod.eof then response.write "

设备展示

对不起，暂时没此类设备!
" else '以下是调用公用的设备显示页面， %>

<% if request("ClassName") <> "" then response.Write(rs("ClassName")) else response.Write("设备展示") end if %>

共有 <%=rsprod.recordcount%> 张图片 第<%=ipagecurrent%>/<%=ipagecount%>页 <%if ipagecurrent=1 then else Response.Write"首页 " Response.Write"上一页 " end if if ipagecount>ipagecurrent then Response.Write"下一页 " Response.Write" 末页 " else end if%> <% end if rsprod.close set rsprod=nothing end if %>