prodtree.asp

全功能网上商城 免费版

<%

response.write "<table width='175' border='0' align='center' cellpadding=1 cellspacing=1>"
	'分大类显示产品
	Dim a,b,c '定义临时变量
	sqllar="select Distinct LarCode,LarSeq,MidCode,MidSeq from ProdClass order by LarSeq,MIdSeq "
	Set rsprodtree=Server.CreateObject("ADODB.RecordSet") 
	rsprodtree.Open sqllar,conn,1,1 
	if rsprodtree.bof and rsprodtree.eof then
		response.write "<tr><td width=175 colspan="&tree_col&" height=100 align=center>您好！<br>&nbsp;新的商城，商品准备中</td></tr>"
	else
		a=rsprodtree("LarCode")
		Do While Not rsprodtree.eof	
			if instr(rsprodtree("LarCode"),"*")= 0 then	'根据*号判断是否是屏蔽掉的类别大类
				if (a<>b) then
				response.write " <tr><td width=175 colspan="&tree_col&"><img height=3 src='images/line_0110.gif' width=175  align=bottom border=0></td></tr>"
				response.write "<td  align=center   width='175' bgcolor='#e7e7e7' class='dfont' height=20 colspan="&tree_col&">&nbsp;<img src='images/arrow4.gif' width='11' height='13' border='0' align=absmiddle>&nbsp;"
				response.write "<a href='sublist.asp?LarCode="&rsprodtree("LarCode")&"'>"&rsprodtree("LarCode")&"</a></td></tr>"
				a=rsprodtree("LarCode")		
				else 		
				end if
				if instr(rsprodtree("MidCode"),"*")= 0 then 	'根据*号判断是否是屏蔽掉的类别中类				
					 response.write "<tr>"
					 for i=0 to rsprodtree.recordcount
							if i mod tree_col =0 and i<>0 then
								response.write "</tr>"&vbcrlf&"<tr>"
								response.write vbcrlf&"<TD align=center class='dfont' onMouseOver=""bgColor='#FFE3D2'"" onMouseOut=""bgColor='#FFFBF7'""><a href='sublist.asp?LarCode="&rsprodtree("LarCode")&"&MidCode="&rsprodtree("MidCode")&"'><font color=#0066ff>"&rsprodtree("MidCode")&"</font></a></TD>"
							else
								response.write vbcrlf&"<TD  align=center  class='dfont' onMouseOver=""bgColor='#FFE3D2'"" onMouseOut=""bgColor='#FFFBF7'""><a href='sublist.asp?LarCode="&rsprodtree("LarCode")&"&MidCode="&rsprodtree("MidCode")&"'><font color=#0066ff>"&rsprodtree("MidCode")&"</font></a></TD>"
							end if					
							rsprodtree.movenext	
							if rsprodtree.eof then exit do
							if a<>rsprodtree("LarCode") then
							b=rsprodtree("LarCode")
							exit for						
							end if
					  next
				end if
			end if

		Loop
	end if
	set rsprodtree=nothing
response.write "</td></tr></table>"
%>
  
<table width="185" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td align="center"> 
    
    
      
<table width="185" border=0 align="center" cellpadding=2 cellspacing=3 class="new">
  <tr><td height=1 bgcolor="#E3B9B5"></td></tr>
		<tr class=row bgcolor=#f2f2f2><td valign=top align="center">
            <p align="center"><font color="#FF3300">【 在 线 客 服 】</font></p>   
          </td></tr>
         <tr><td height=15  valign=top align="left">
            <p align="center"><%=adm_kf%></p> 
          </td></tr> 
		 <tr class=row bgcolor=#f2f2f2><td valign=top align="center"><a href="liucheng.asp"><font color="#FF3300">【 
            购 物 指 南 】</font></a></td></tr>         
		 <tr class=row bgcolor=#f2f2f2><td valign=top align="center"><a href="b_about.asp"><font color="#FF3300">【 
            付 款 方 法 】</font></a></td></tr>        
        <tr class=row bgcolor=#f2f2f2>  <td valign=top align="center"><a href="helpcenter.asp"><font color="#FF3300">【 
            帮 助 中 心 】</font></a></td></tr>  
        <tr class=row bgcolor=#f2f2f2>  <td valign=top align="center"><a href="news_detail.asp?NewsId=1" target="_blank"><font color="#FF3300">【 
            发 货 通 知 】</font></a></td></tr>              
        <tr class=row bgcolor=#f2f2f2>  <td valign=top align="center">
            <p align="center"><font color="#FF3300"><br>
            本站LOGO<br>
            </font><img border="1" src="IMAGES/logo.gif" width="88" height="31"></td></tr>              
        <tr> <td height=1 bgcolor="#E3B9B5"></td></tr>
         
         
         
         
     </table>
    </td>
  </tr>
</table>