<% dim rs,sql Set rs = Server.CreateObject("adodb.recordset") %> BIOER TECHNOLOGY
<% sql = "select top 5 id,pname from products where ptype=1 order by id desc" rs.open sql, Conn,1,1 %>
    <% if rs.eof Then else end if for i=1 to rs.recordcount pname=rs("pname") if len(pname)>50 then pname=left(pname,49)&"…" end if response.Write("
  • "&pname&"
    • ") rs.movenext() next rs.close %>
<% sql = "select top 5 id,pname from products where ptype=2 order by id desc" rs.open sql, Conn,1,1 %>
    <% if rs.eof Then else end if for i=1 to rs.recordcount pname=rs("pname") if len(pname)>50 then pname=left(pname,49)&"…" end if response.Write("
  • "&pname&"
    • ") rs.movenext() next rs.close %>
<% sql = "select top 5 id,pname from products where ptype=3 order by id desc" rs.open sql, Conn,1,1 %>
    <% If rs.eof Then else end if for i=1 to rs.recordcount pname=rs("pname") if len(pname)>20 then pname=left(pname,20)&"…" end if response.Write("
  • "&pname&"
    • ") rs.movenext() next rs.close %>
<% sql = "select top 5 id,pname from products where ptype=4 order by id desc" rs.open sql, Conn,1,1 %>
    <% If rs.eof Then else end if for i=1 to rs.recordcount pname=rs("pname") if len(pname)>18 then pname=left(pname,18)&"…" end if response.Write("
  • "&pname&"
    • ") rs.movenext() next rs.close %>
<% sql = "select top 5 id,pname from products where ptype=6 order by id desc" rs.open sql, Conn,1,1 %>
    <% If rs.eof Then else end if for i=1 to rs.recordcount pname=rs("pname") if len(pname)>18 then pname=left(pname,18)&"…" end if response.Write("
  • "&pname&"
    • ") rs.movenext() next rs.close %>
<% sql = "select top 5 * from btxt where ptype=1 order by id desc" rs.open sql, Conn,1,1 %> <% sql = "select top 4 * from newsec where ptype=1 order by id desc" '新闻 rs.open sql, Conn,1,1 %>