left.asp

网络商城系统

 <table width="178" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr> 
              <td><img src="img/menu1.gif" width="178" height="34"></td>
            </tr>
          </table> 

          <table width="178" height="56" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
            <tr> 
              <td> 
                <%
			set rs=server.createobject("adodb.recordset")
			sql="select top 4 * from news where sort='新闻动态' order by id desc"
			rs.open sql,conn,1,1
			if rs.eof then
			response.write"暂时没有新闻动态"
			else
			do while not rs.eof 
			%>
                · 
                <%if len(trim(rs("title")))>14 then%>
                <a href=javascript:rewindow('newsinfo.ASP?id=<%=rs("id")%>',500,380)><font color="#000000"><%=left(rs("title"),14)%></font></a> 
                <%else%>
                <a href=javascript:rewindow('newsinfo.ASP?id=<%=rs("id")%>',500,380)><font color="#000000"><%=rs("title")%></font></a> 
                <%end if%>
                <br> 
                <% rs.movenext
			loop
			end if
			rs.close
			set rs=nothing
			%>
                &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 　　　　　　<a href="newslist.asp"><font color="#000000">更多>>></font></a></td>
            </tr>
          </table>
          
         <table width="178" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr> 
              <td><img src="img/menu2.gif" width="178" height="34"></td>
            </tr>
          </table> 
          <table width="178" height="56" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
            <tr> 
              <td> 
                <%
			set rs=server.createobject("adodb.recordset")
			sql="select * from bigclass"
			rs.open sql,conn,1,1
			if rs.eof then
			response.write"暂时没有商品分类"
			else
			do while not rs.eof 
			xsid=rs("bcid")
			%>
                &nbsp;&nbsp;※<a href="bigclass.asp?id=<%=xsid%>"><font color="#000000"><%=rs("bcname")%></font></a><br> 
                <%
			set rs1=server.createobject("adodb.recordset")
			sql1="select * from smallclass where bcid="&xsid
			rs1.open sql1,conn,1,1
			if rs1.eof then
			response.write"<br>"
			else
			do while not rs1.eof
			%>
                &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[<a href="smallclass.asp?id=<%=xsid%>&id1=<%=rs1("scid")%>"><font color="#000000"><%=rs1("scname")%></font></a>]<br> 
                <%
			rs1.movenext
			loop
			end if
			rs1.close
			set rs1=nothing
			%>
                <% rs.movenext
			loop
			end if
			rs.close
			set rs=nothing
			%>
              </td>
            </tr>
          </table> 
      
       
     
          <table width="178" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr> 
              <td><img src="img/menu3.gif" width="178" height="34"></td>            </tr>
          </table>
                 <table width="178"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
            <tr> 
              <td align="center">
                <%set rs=server.createobject("adodb.recordset")
		sql="select * from link order by id desc"
		rs.open sql,conn,1,1
		if rs.eof then
		response.write"暂时没有友情连接"
		else
		i=0
		do while not rs.eof
		%>
                [<a href="<%=rs("href")%>" target="_blank"><%=rs("website")%></a>]&nbsp;
                &nbsp;&nbsp; 
                <%
				i=i+1
				if i mod 2=0 then
				%><br><%end if
				rs.movenext
		loop
		end if
		rs.close
		set rs=nothing%>
              </td>
            </tr>
          </table>
        
          
         <table width="178" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr> 
              <td><img src="img/menu4.gif" width="178" height="34"></td>
            </tr>
          </table> 
          <table width="178" height="56" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
            <tr> 
              <td><table width="115" height="251" border="0" align="center" cellpadding="0" cellspacing="0">
                  
                        
                             
   <tr> 
                                    <td height=40 align="center" >
									<img border="0" src="links/ebayLogo.gif" width="115" height="40"></td>
                             </tr>   
                                <tr> 
                                    <td height=40 align="center" >
									<img border="0" src="links/logo_1pai.gif" width="115" height="40"></td>
                             </tr>   
                                <tr> 
                                    <td height=40 align="center" >
									<img border="0" src="links/trust_logo.gif" width="115" height="40"></td>
                             </tr> 
                                                         
   <tr> 
                                    <td height=40 align="center" >
									<img border="0" src="images/pp1.gif" width="115" height="40"></td>
                             </tr>   

                            
   <tr> 
                                    <td height=40 align="center" >
									<img border="0" src="images/pp3.gif" width="115" height="40"></td>
                             </tr>   
    
                   
                </table></td>
            </tr>
          </table>