<% dim showMaxID dim sql,ra sql="select * from products02 where id="&cint(request.QueryString("id")) set ra=cn.execute(sql) showMaxID = ra("MaxID") %> <%=ra("pro_name")%>-低温水冷冷水机
案例展示 当前位置:首页> 案例展示

 
" />
<%=ra("pro_name")%>
<%=ra("pro_content")%> 
 
<%ra.close set ra=nothing %>
<% dim sqlprev,rsprev sqlprev="select top 1 * from products02 where id<"&cint(request.QueryString("id"))&" Order by orderview desc, id desc" set rsprev=cn.execute(sqlprev) dim sqlnext,rsnext sqlnext="select top 1 * from products02 where id>"&cint(request.QueryString("id"))&" Order by orderview asc, id asc" set rsnext=cn.execute(sqlnext) %> <% if not rsnext.bof and not rsnext.eof then %> 上一产品:"><%=rsnext("pro_name")%> <% end if%>   <% if not rsprev.bof and not rsprev.eof Then %> 下一产品:"><%=rsprev("pro_name")%> <% end if%> <% rsprev.close set rsprev = Nothing rsnext.close set rsnext = Nothing %> >>返回
产品分类 Products
<% set RsMaxList = server.CreateObject("adodb.recordset") SqlMaxList = " SELECT id, pro_bigid, MaxRank FROM bigtype ORDER BY MaxRank " RsMaxList.open SqlMaxList, cn, 1, 1 %> <% i=1 do while not RsMaxList.eof%> <% i=i+1 RsMaxList.movenext loop %>
  &MaxName=<%=rsMaxList("pro_bigid")%>"><%=RsMaxList("pro_bigid")%>  
<% sqlMin="select * from MinClass where MaxID=" & Trim(rsMaxList("id")) & " Order by MinRank" Set rsMin= Server.CreateObject("ADODB.Recordset") rsMin.open sqlMin,cn,1,1 %> <% do while not rsMin.eof%> <% rsMin.movenext loop %>
   &MaxName=<%=rsMaxList("pro_bigid")%>&MinID=<%=rsMin("MinID") %>&MinName=<%=rsMin("MinName")%>" class="menu_title"><%=rsMin("MinName")%>

联系方式 Contact
客服热线:400-0577-918
电话:0086-577-85620099
传真:0086-577-85620066
Skype ID:cncenchiller
ICQ:608-519-964
QQ:43013330