|
|
 |
<%
set rs = server.CreateObject ("adodb.recordset")
rs.open "select top 6 [ID],[Title] from News where Elite=true and Title<>'' and Lag = '0'",conn,1,1
if rs.eof and rs.bof then
Response.Write "无推荐新闻... ..."
else
do while not rs.eof
%>
|
|
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
|
|
<%
set T_Rs = server.CreateObject("adodb.recordset")
T_Rs.open "select DefaultPicUrl,ID from product where Elite=true and Passed=true order by orderby desc",conn,1,1
if not T_Rs.eof then
do while not T_Rs.eof
%>
|
|
<%
T_Rs.movenext
loop
end if
T_Rs.close
set T_Rs=nothing
conn.close
set conn = nothing
%>
|
|
|
|
|
|
|
|
