index.asp

来自「设计考虑校园电子商务模式」· ASP 代码 · 共 402 行 · 第 1/2 页

      <TABLE id=main_s cellSpacing=0 cellPadding=0 width=583 align=center 
      border=0>
        <TBODY>
        <TR>
          <TD height=5></TD></TR>
        <TR>
          <TD class="main_title_bs06 ">推荐商品</TD></TR>
        <TR>
          <TD class=main_tdbg_bsd06></TD></TR>
        <TR>
          <TD class=main_tdbg_bs06 vAlign=top height=103>
<table height="42" border="0" align="center" cellpadding="0" cellspacing="0" >
              <tr> 
                <td valign="top"> 
                  <%
			set rs=server.createobject("adodb.recordset")
			sql="select top 6 * from dd_goods where font='1' order by goods_id desc"
			rs.open sql,conn,1,1
			if rs.eof then
			response.write"暂时没有最新商品"
			else
			%><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <%
			  i=0
			do while not rs.eof
			i=i+1
			  %>
                      <td>   
						<table width="180" height="100" border="0" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td width="60" rowspan="3">
							<a href='goods_info.asp?goods_id=<%=rs("goods_id")%>' target='_blank'>
							<img class="border3" border="0" src="<%=rs("goods_pic")%>" width="60" height="60" style="border: 1px solid #C0C0C0"></a></td>
                            <td>　</td>
                          </tr><tr> 
                            <td align="left">　</td>
                          </tr>

                          <tr> 
                            <td align="left">价格:<s><%=rs("goods_price")%></s>元</td>
                          </tr> <tr> 
                      <td colspan="2" height="37"><a href='goods_info.asp?goods_id=<%=rs("goods_id")%>' target='_blank'><font class=font><%=rs("goods_name")%></font></a></td> 
                   </tr>
                          </table></td>
                     <%
			if i mod 3=0 then
			%>
                    </tr>
                  
                    <%
			  end if
			if i>6 then exit do end if
			rs.movenext
			loop
			%>
                  </table>
                  <%
			end if
			rs.close
			set rs=nothing
			%>
                </td>
              </tr>
            </table></TD></TR>
        <TR>
          <TD height=5></TD></TR></TBODY></TABLE>
      <TABLE id=main_s cellSpacing=0 cellPadding=0 width=583 align=center 
      border=0>
        <TBODY>
        <TR>
          <TD height=5></TD></TR>
        <TR>
          <TD class="main_title_bs06 ">星级店铺</TD></TR>
        <TR>
          <TD class=main_tdbg_bsd06></TD></TR>
        <TR>
          <TD class=main_tdbg_bs06 vAlign=top height=103>
<table height="42" border="0" align="center" cellpadding="0" cellspacing="0" >
              <tr> 
                <td valign="top"> 
                  <%
			set rs=server.createobject("adodb.recordset")
			sql="select top 6 * from dd_user where font='1' order by user_id desc"
			rs.open sql,conn,1,1
			if rs.eof then
			response.write"暂时没有最新店铺"
			else
			%><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <%
			  i=0
			do while not rs.eof
			i=i+1
			  %>
                      <td>   
						<table width="180" height="100" border="0" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td width="60" rowspan="3">
							<a href='shop_info.asp?user_id=<%=rs("user_id")%>' target='_blank'>
							<img class="border3" border="0" src="<%=rs("shop_img")%>" width="60" height="60" style="border: 1px solid #C0C0C0"></a></td>
                            <td><%=rs("user_name")%></td>
                          </tr><tr> 
                            <td align="left"></td>
                          </tr>

                          <tr> 
                            <td align="left"><%=top1(rs("star"))%></td>
                          </tr> <tr> 
                      <td colspan="2" height="37"><a href='shop_info.asp?user_id=<%=rs("user_id")%>' target='_blank'><font class=font><%=rs("shop_name")%></font></a></td> 
                   </tr>
                          </table></td>
                     <%
			if i mod 3=0 then
			%>
                    </tr>
                  
                    <%
			  end if
			if i>6 then exit do end if
			rs.movenext
			loop
			%>
                  </table>
                  <%
			end if
			rs.close
			set rs=nothing
			%>
                </td>
              </tr>
            </table></TD></TR>
        <TR>
          <TD height=5></TD></TR></TBODY></TABLE>
      <TABLE id=main_s cellSpacing=0 cellPadding=0 width=583 align=center 
      border=0>
        <TBODY>
        <TR>
          <TD class="main_title_bs06 " width="50%">论坛新贴</TD>
          <TD class=main_title_bsf><STRONG>最新留言</STRONG></TD></TR>
        <TR>
          <TD class=main_tdbg_bsd06></TD>
          <TD class=main_tdbg_bsd06></TD></TR>
        <TR>
          <TD class=main_tdbg_bs06 colSpan=2 height=138>
            <TABLE height=138 cellSpacing=0 cellPadding=0 width="100%" 
              border=0><TBODY>
              <TR>
                <TD vAlign=top width="50%"><!--#include file="bbs.asp"--></TD>
                <TD class=main2_tdbg_bs06 vAlign=top width="50%">
<% call showtopbook(12,16) %></TD></TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD colSpan=2 height=5></TD></TR></TBODY></TABLE></TD>
    <TD vAlign=top width=186>
      <TABLE id=bs1 cellSpacing=0 cellPadding=0 width=182 border=0>
        <TBODY>
        <TR>
          <TD class=right_title_bs06 align="center">用 户 排 行</TD></TR>
        <TR>
          <TD class=right_tdbgbs06 vAlign=top height=138><%call ShowTopUser(10)%></TD></TR>
        <TR>
          <TD class=right_tdbg2></TD></TR></TBODY></TABLE>
      <TABLE id=bs1 cellSpacing=0 cellPadding=0 width=182 border=0>
        <TBODY>
        <TR>
          <TD class=right_title_bs06 align="center">新 手 上 路</TD></TR>
        <TR>
          <TD class=right_tdbgbs06 vAlign=top height=138>
                             <% call showtophelps(6,30)%></TD></TR>
        <TR>
          <TD class=right_tdbg2></TD></TR></TBODY></TABLE>
      <TABLE id=bs1 cellSpacing=0 cellPadding=0 width=182 border=0>
        <TBODY>
        <TR>
          <TD class=right_title_bs06 align="center">最 新 调 查</TD></TR>
        <TR>
          <TD class=right_tdbgbs06 vAlign=top height=50><%ShowVote()%></TD></TR>
        <TR>
          <TD class=right_tdbg2></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD>
      <TABLE height=27 cellSpacing=0 cellPadding=0 width=778 align=center 
      border=0>
        <TBODY>
        <TR>
          <TD width=29  class=mainBlinks></TD>
          <TD class=mainBlinks>
            <P>友情链接</P></TD>
          <TD class=mainBlinks align=right><a target="_blank" href="FriendSiteReg.asp">申请连接</a></TD>
          </TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD>
      <TABLE cellSpacing=0 cellPadding=0 width="95%" align=center border=0>
        <TBODY> <TR>
          <TD><%call ShowFriendSite(2,7,7,2)%></TD></TR>
        <TR>
          <TD><%call ShowFriendSite(1,7,7,2)%></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="bottom.asp"-->