产品展示 当前位置:首页> 产品展示

<% SearchMaxID = Trim(Request("MaxID")) SearchMinID = Trim(Request("MinID")) strMaxName = Trim(Request("MaxName")) strMinName = Trim(Request("MinName")) intPageSize =16 '每页显示产品数量 intCols = 4 '每行显示多少 intWidth = 120 intHeight = 120 set RsList = server.CreateObject("adodb.recordset") SqlList = "SELECT * FROM Products where no2=0 and id >= 1" If IsNumeric(SearchMaxID) = True And Trim(SearchMaxID) <> "" Then SqlList = SqlList + " and MaxID = "&SearchMaxID&" " End If If IsNumeric(SearchMinID) = True And Trim(SearchMinID) <> "" Then SqlList = SqlList + " and MinID = "&SearchMinID&" " End If SqlList = SqlList + " ORDER BY orderview desc,id asc" 'If IsNumeric(SearchMaxID) = False or Trim(SearchMaxID) = "" Then RsList.open SqlList, cn, 1, 1 if RsList.eof or RsList.bof then call subListEof() else call subListShow() end if RsList.close set RsList = Nothing Sub subListEof() %>
暂无记录!
<% End Sub Sub subListShow() RsList.pagesize = intPageSize page = request("page") If IsNumeric(page) = False Then page = 1 Else page = cint(page) End If if page < 1 then page = 1 if page > RsList.pagecount then page = RsList.pagecount RsList.absolutepage = page n = 1 %> <% if not RsList.eof Then%> <%While Not RsList.eof And n <= intPageSize%> <% If n Mod intCols = 0 then%> <%End if%> <% Rslist.movenext n = n + 1 wend %>
">" width="176" height="142" border="0" alt="<%=rslist("pro_name") &"|"& rslist("pro_enname")%>">
" target="_blank" title="<%=rslist("pro_name")%>"><%=rslist("pro_name")%> 
<% 'RsList.movenext 'wend 'else %>
<%end if%>
<% Call show_page( "List","zc_products.asp",page,RsList,"MaxID#" & (SearchMaxID) & "#MinID#" & (SearchMinID) ,"") %>
<% End Sub %> <% Function show_page(form_name,action_name,page,rs,str,styleStr) Response.Write("共 "&rs.recordcount&" 条记录 ") Response.Write(""&page&"/"&rs.pagecount&" 页 ") strs=split(str,"#") if rs.pagecount=1 then response.Write("首页 上页 下页 尾页 ") if page<>1 and rs.pagecount<>0 then constr="首页 " constr2=constr2 & " class=" & styleStr & ">上页 " response.Write(constr) response.Write(constr2) if page=rs.pagecount then response.Write("下页 尾页 ") end if if page<>rs.pagecount then if page=1 then response.Write("首页  上页 ") constr3="下页 " constr4=constr4 & " class=" & styleStr & ">尾页 " response.Write(constr3) response.Write(constr4) end if if rs.pagecount>=1 then response.Write("") end if for i=0 to ubound(strs)-1 step 2 response.Write("") next response.Write("") %> <% end function %>