<% dim id id=trim(request("id")) Set pro_c = Server.CreateObject("ADODB.Recordset") sql="select SmallClassName from SmallClass where SmallClassID="&id pro_c.open sql,conn,1,1 sname=pro_c("SmallClassName") pro_c.close set pro_c=nothing if Request("Page")="" then Page=1 else Page =cint(Request("Page")) end if %>
 
   
当前位置: 首页 -> 产品中心 -> 系列产品
 
 
<%'---------------------------------------------------------------------------------------------------------------------- set rzsl = server.createobject("adodb.recordset") rzsl.open "select ID,Product_Id,Title,DefaultPicUrl from Product where SmallClassName='"& sname &"' order by UpdateTime desc",conn,1,1 if not rzsl.eof then rzsl.pagesize=9 'if Request("Page")="" then ' Page=1 'else ' Page =cint(Request("Page")) 'end if '分页显示 If not Page >1 Then Page = 1 If Page > rzsl.PageCount Then Page = rzsl.PageCount rzsl.absolutepage=page dim countrs countrs=1 do while countrs<=rzsl.pagesize and not rzsl.eof if rzsl.eof then exit do%> <%for i=1 to 3 if rzsl.eof then exit do%> <%rzsl.movenext countrs=countrs+1 next%> <%loop%> <%else Response.write("") end if '----------------------------------------------------------------------------------------------------------------------- %>
','newwindows', 'height=600, width=800, toolbar=auto, menubar=no,scrollbars=yes, resizable=yes, location=auto, status=auto')" title="点击查看详情!">" width="184" height="148" />
 
型号: <%=rzsl("Product_Id")%>
名称: <%=rzsl("Title")%>
  对不起,暂无任何产品信息...
<%%>
  产品数:<%=rzsl.RecordCount%>  每页显示:<%=rzsl.pagesize%>  页数:<%=Page%>/<%=rzsl.PageCount%>  最前页 上一页 下一页 最后页 转到第 页.
 
   
<% rzsl.close set rzsl=nothing call CloseConn() %>