| | | | | | | | <% sqlt="select top 5 * from news order by AddDate desc" set rst2=server.createobject("ADODB.Recordset") rst2.open sqlt,conn,1,1 do while not rst2.eof %>  <%= rst2("Title")%> | <%= rst2("AddDate")%>(点击：<%= rst2("Hits")%>次) | <% rst2.movenext loop rst2.Close set rst2=nothing %> | | | | | | | <% sql2="select * from Product order by id desc " Set oRS= Server.CreateObject("ADODB.recordset") oRS.Open sql2,conn,1,3 if NOT oRS.EOF then %> <% for m=1 to 4 if NOT oRS.EOF then %> | <% if oRS("DefaultPicUrl")="" then %> <% else %> <% end if %> | | | <% oRS.MoveNEXT end if next %> <% else Response.Write ("暂无内容.") end if oRS.close Set oRS = Nothing %> | | | | |
