<!--#include file="setup.asp"-->
<!--#include file="conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=site_name%></title>
<link href="style.css" rel="stylesheet" type="text/css" />
</head>

<body>
<% 
exec="select top1 * from star where Recommended =1 order by id desc";
set rss=server.createobject("adodb.recordset") 
rss.open exec,conn,1,1 
%>
  <table width="171" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td width="100" rowspan="4"><img src="<%=rss("photo")%>" width="100"/></td>
      <td width="71">姓名：<%=rss("name")%></td>
    </tr>
    <tr>
      <td>性别：<%=rss("sex")%></td>
    </tr>
    <tr>
      <td>年龄：<%=rss("age")%></td>
    </tr>
    <tr>
      <td>职业：<%=rss("Professional")%></td>
    </tr>
  </table>
  <%
  rss.close
  %>
  <div id="pic">
<div id="pic_title"></div>
<div id="pic_content">
 <ul>
  <%
Set rs = server.CreateObject("adodb.recordset")
exec = "select top 9 * from [products] where recommendatory=1  order by id desc"
rs.Open exec, conn, 1, 1
%>
        <%
Dim ii
ii = 1
Do While Not rs.EOF
%>
        <li><a href="products_view.asp?id=<%=rs("id")%>" title="<%=rs("title")%>"><img src="<%=rs("thumbnail")%>" width="116" height="90" /></a><br />
        <a href="products_view.asp?id=<%=rs("id")%>" title="<%=rs("title")%>"><%=left(rs("title"),40)%></a></li>
        <%
ii = ii + 1
rs.movenext
Loop
%>
  </ul>
</div>
</div>
</body>
</html>