<% sub getMeta() %> <% =SiteTitle %> <% end sub sub selectProduct(where) '案例 dim Parentid dim sql,rs sql="select top 40 * from [evset_Products] where 1=1 "&where&" order by addtime desc ,UpdateTime desc,id desc, Sequence " '',, 'response.write sql set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1%> <% if not rs.eof then '填充数据到表格 %> <%do while not rs.eof%> <% 'Parentid=GetOneValue2("evset_ProductSort",rs("sortID"),"Parentid","") %> <% rs.moveNext loop end if rs.close:set rs=nothing end sub %>

<%=xstr202%>

<% 'if session("MemName")<>"" then dim URL URL="" '推荐产品 set rs = conn.execute("select top 30 id,productName"&Language&",smallPic,sortID,ProductNo from evset_Products where CommendFlag=true and left(productNo,2)<>'HB' and left(productNo,1)<>'D' and right(productNo,1)<>'P' order by Sequence,id desc ") if not rs.eof then do while not rs.eof URL="javascript:window.open('./productView.asp?sorts="&rs("sortID")&"&id="&rs("Id")&"&productNoLike="&rs("productNo")&"&Language="&language&"','_blank','height=747,width=972 ,status=yes,toolbar=no,menubar=no,location=no');" %> <% rs.movenext loop end if closerss rs 'else ' response.write "" 'end if %>
"&xstr22&"