<% BigClassName=request("BigClassName") SmallClass=request("SmallClass") %> 峥果智能WiFi门窗报警器
   
<% set rsbig = server.CreateObject ("adodb.recordset") sql="select * from BigClass" rsbig.open sql,conn,1,1 if rsbig.eof and rsbig.bof then Response.Write "暂无数据" else i=1 do while not rsbig.eof %>
 ◆ <%=rsbig("BigClassName")%>
 
<% rsbig.movenext i=i+1 loop rsbig.close set rsbig=nothing end if %>

<% call ShowClassGuide() %> >> <% call ShowProductTotal() %>
 
<%set rs=server.createobject("adodb.recordset") if BigClassName<>"" then rs.open "select * from Product where BigClassName='"&BigClassName&"' order by UpdateTime desc",conn,1,1 else rs.open "select * from Product order by UpdateTime desc",conn,1,1 end if if rs.recordcount=0 then %>
暂无数据
<% else rs.PageSize =20 iCount=rs.RecordCount iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if %> <% For i=1 To x %> <% rs.movenext next %>
" target="_blank">
" width="250" height="250" border="0" align="absmiddle" >

  产品名称:<%=replace(trim(rs("Title")),"
","")%>
  产品编号:<%=rs("Product_Id")%>
  所属类别:<%=rs("BigClassName")%>
  产品信息:" target="_blank">

<% call PageControl(iCount,maxpage,page,"border=0 align=center","

") end if rs.close set rs=nothing Sub PageControl(iCount,pagecount,page,table_style,font_style) Dim query, a, x, temp action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") query = Split(Request.ServerVariables("QUERY_STRING"), "&") For Each x In query a = Split(x, "=") If StrComp(a(0), "page", vbTextCompare) <> 0 Then temp = temp & a(0) & "=" & a(1) & "&" End If Next Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("
" & vbCrLf ) Response.Write(font_style & vbCrLf ) if page<=1 then Response.Write ("首页 " & vbCrLf) Response.Write ("上页 " & vbCrLf) else Response.Write("首页 " & vbCrLf) Response.Write("上页 " & vbCrLf) end if if page>=pagecount then Response.Write ("下页 " & vbCrLf) Response.Write ("尾页 " & vbCrLf) else Response.Write("下页 " & vbCrLf) Response.Write("尾页 " & vbCrLf) end if Response.Write(" 页次:" & page & "/" & pageCount & "页" & vbCrLf) Response.Write(" 共有" & iCount & "个数据" & vbCrLf) Response.Write(" 转到" & "" & "页" & vbCrLf & "") Response.Write("
" & vbCrLf ) End Sub %>