<%
Set Rs = server.createobject("adodb.recordset")
Rs.source = "select top 8 * from products where Lsort<>'38' order by id desc "
Rs.open Rs.source,conn,1,1
if Rs.BOF then
response.write "| 暂无! | "
else
for i=1 to 100
if Rs.EOF or Rs.BOF then exit for
Newtitle=rs("Lname")
imgpath=rs("LPattern")
webpath=rs("LParticular")
if len(Newtitle)>14 then Newtitle=left(Newtitle,14)&"…" %>
|
|
|
<%=Newtitle%>
<%=webpath%> |
|
|
<% Rs.movenext
next
end if
Rs.Close
set Rs=nothing
%>
|
