📄 left.asp

📁 网上商城～～手机类型的网站源码Asp
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
      </table>
      <marquee direction="up" height="130" onMouseOut="this.start()" onMouseOver="this.stop()" scrollamount="1" scrolldelay="60">
      <table width="100%" border="0" cellspacing="0" cellpadding="0"  align="center">
<%
sql="select top 12 * from Net008_news where type1='1' order by adddate desc"
set rs=server.createobject("adodb.recordset")
rs.open sql ,conn,1,2
for i=1 to rs.recordcount
response.write"<tr>"
response.write"<td height=20>"
response.write "<a href=browse.asp?id="&rs("id")&" class=LeftTypeLink target=_blank>"
response.write i&"."
if len(rs("title"))>19 then
	response.write left( rs("title"),19)&"..."
else
	response.write rs("title")
end if
response.write "</a>"
response.write "</td>"
response.write "</tr>"
rs.movenext
next
rs.close
set rs=nothing
%>
        <tr> 
           <td align=right>[ <a href="news.asp" class=LeftTypeTitle>更多消息</a> ]</td>
        </tr>
            </table>
	  </marquee>
      <table width="100%" border="0" cellspacing="0" cellpadding="2">
        <tr> 
          <td width="25" height="25" background="images/bg_diagonal.gif"> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
                <TR> 
                  <TD bgColor=#a7afc3 height=3></TD>
                </TR>
              </TBODY>
            </TABLE></td>
          <td width="90" background="images/bg_diagonal.gif" class="lefttitle"><img src="images/items.gif" width="11" height="11" align="absmiddle"> 
            热卖商品</td>
          <td background="images/bg_diagonal.gif"> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
                <TR> 
                  <TD bgColor=#a7afc3 height=3></TD>
                </TR>
              </TBODY>
            </TABLE></td>
        </tr>
      </table>
<%
sql="select top 3 * from Net008_productlist where hotproduct='1' order by adddate desc"
set rs=server.createobject("adodb.recordset")
rs.open sql ,conn,1,2

if rs.recordcount<0 then
	response.write "暂无商品!"
else
	for i=1 to rs.recordcount
%>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="100" valign="top"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="2">
              <tr> 
                
          <td align="center"><a href="showproduct.asp?id=<%=rs("id")%>" target="_blank"><img src="<%if rs("imgsize")=0 then%>images/noimageX.gif<%else%>admin/show_productimg.asp?id=<%=rs("id")%><%end if%>" width="65" height="71" border="0" align="absmiddle"></a></td>
              </tr>
              <tr> 
                
          <td height="30" align=center>[ <a href="showproduct.asp?id=<%=rs("id")%>" target="_blank" class="LeftTypeTitle">详细查看</a> 
            ]</td>
              </tr>
            </table></td>
          <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td align="center" class="producttitle" height="30"><%=rs("productname")%></td>
              </tr>
              <tr> 
                <td><table width="100%" border="0" cellspacing="0" cellpadding="2">
                    <tr> 
                      <td width="50" align="right">市场价：</td>
                      <td><s>￥<%=rs("marketprice")%>元</s></td>
                    </tr>
                    <tr> 
                      
                <td align="right">会员价：</td>
                      <td>￥<%=rs("newprice")%>元</td>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                
          <td height="25"><a href="shopping.asp?id=<%=rs("id")%>" target="_blank"><img src="images/shopcart.gif" width="74" height="23" border="0"></a></td>
              </tr>
            </table>
            
          </td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td background="images/dot.gif" height="1"></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table>
<%
rs.movenext
next
end if
rs.close
%>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
        <tr> 
          <td width="25" height="25" background="images/bg_diagonal.gif"> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
                <TR> 
                  <TD bgColor=#a7afc3 height=3></TD>
                </TR>
              </TBODY>
            </TABLE></td>
          <td width="90" background="images/bg_diagonal.gif" class="lefttitle"><img src="images/items.gif" width="11" height="11" align="absmiddle"> 
            商品分类</td>
          <td background="images/bg_diagonal.gif"> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
                <TR> 
                  <TD bgColor=#a7afc3 height=3></TD>
                </TR>
              </TBODY>
            </TABLE></td>
        </tr>
      </table>

<%
sql="select * from Net008_productsort where sortlevel='1'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,2

if rs.recordcount<1 then
	response.write "<font color=#ff0000>无类别!</font></br></br></br></br>"
	response.end
end if
for i=1 to rs.recordcount

'计算该类别下的商品件数
sql_number="select * from Net008_productlist where left(sortid,3)='"&rs("sortid")&"'"
set rs_number=server.createobject("adodb.recordset")
rs_number.open sql_number,conn,1,2
rs_number_sum=rs_number.recordcount
rs_nubmer.close
set rs_number=nothing
'计算该类别下的商品件数---结束
%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td class="lefttitle"><img src="images/img_03.gif" width="12" height="12"><a href=productlist.asp?sortid=<%=rs("sortid")%> class="LeftTypeTitle"><%=rs("sortname")%><%response.write "("&rs_number_sum&"件)"%></a></td>
  </tr>
  <tr> 
    <td background="images/dot.gif" height="3"></td>
  </tr>
</table>
<%
sortid_temp=rs("sortid")
'response.write sortid_temp
'response.end

sql_in="select * from Net008_productsort where sortlevel='2' and left(sortid,3)='"&sortid_temp&"'"
set rs_in=server.createobject("adodb.recordset")
rs_in.open sql_in,conn,1,2
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
	<%
	if rs_in.recordcount<1 then
		response.write "　</br>"
	else
for j=1 to rs_in.recordcount/2
'计算该类别下的商品件数
sql_number="select * from Net008_productlist where sortid='"&rs_in("sortid")&"'"
set rs_number=server.createobject("adodb.recordset")
rs_number.open sql_number,conn,1,2
rs_number_sum=rs_number.recordcount
rs_nubmer.close
set rs_number=nothing
'计算该类别下的商品件数---结束
			response.write"<tr><td>"
			response.write "<a href=productlist.asp?sortid="&rs_in("sortid")&" class='LeftTypeLink'>"
			response.write rs_in("sortname")&"("&rs_number_sum&"件)</a></td>"
			rs_in.movenext
			If rs_in.EOF Then Exit For
'计算该类别下的商品件数
sql_number="select * from Net008_productlist where sortid='"&rs_in("sortid")&"'"
set rs_number=server.createobject("adodb.recordset")
rs_number.open sql_number,conn,1,2
rs_number_sum=rs_number.recordcount
rs_nubmer.close
set rs_number=nothing
'计算该类别下的商品件数---结束
			response.write "<td>"
			response.write "<a href=productlist.asp?sortid="&rs_in("sortid")&" class='LeftTypeLink'>"
			response.write rs_in("sortname")&"("&rs_number_sum&"件)</a></td>"
			response.write "</tr>"
			rs_in.MoveNext  
			If rs_in.EOF Then Exit For
		next
	end if
	%>
</table>
<%
	 rs.MoveNext  
	 If rs.EOF Then Exit For
	 next
rs.close
set rs=nothing
%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -