<% Dim rs,i set rs=Server.CreateObject("adodb.RecordSet") rs.open "select id,Name,price2,scphoto,photo from product order by id desc",conn,1,1 %> <% if not (rs.bof and rs.eof) then for i=1 to 4 %> <% rs.movenext if rs.eof then exit for end if next end if %>
" target="_blank"> <%if trim(rs("scphoto"))<>"" then%> " width="120" height="90" border="0"> <%else%> " width="120" height="90" border="0"> <%end if%>
ÊÛ¼Û:<%=rs("price2")%>Ôª
<% if len(rs("name"))>10 then Response.Write "" & left(rs("name"),8) & ".." else Response.Write "" & rs("name") & "" end if %>
<% rs.close set rs=nothing %>