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 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 class='dfont' onMouseOver=""bgColor='#FFE3D2'"" onMouseOut=""bgColor='#FFFBF7'""><a href='sublist.asp?MidCode="&rsprodtree("MidCode")&"'><font color=#0066ff>"&rsprodtree("MidCode")&"</font></a></TD>"
							else
								response.write vbcrlf&"<TD class='dfont' onMouseOver=""bgColor='#FFE3D2'"" onMouseOut=""bgColor='#FFFBF7'""><a href='sublist.asp?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 cellspacing=3 cellpadding=5 width="100%" border=0 class="new">
        <tr align=middle bgcolor=#000000> 
          <td height=1 bgcolor="#E3B9B5"></td>
        </tr>
        <tr class=row bgcolor=#f2f2f2> 
        <td valign=top align="center"><font color="#FF3300">【快 速 搜 索 通 道】</font></td></tr>
         <tr><td height=100 align="center" valign=top> 
         <!--#include file="type.asp"-->
          </td>
        </tr>
      </table>
      <table cellspacing=3 cellpadding=5 width="100%" border=0 class="new">
        <tr > 
          <td height=1 bgcolor="#E3B9B5"></td>
        </tr>
		<tr class=row bgcolor=#f2f2f2> 
        <td valign=top align="center"><font color="#FF3300">【在线服务联系方式】</font></td></tr>
         <tr><td height=15  valign=top><p><B>oicq:</B><%=adm_qq%><br>
        <B>telephone:</B><%=adm_tel%></p>
      <p><br>
      </p></td>
        </tr>          <tr class=row bgcolor=#f2f2f2> 
          <td valign=top align="center"><a href="contactus.asp"><font color="#FF3300">【 <%=sitename%> 帐号 】</font></a></td></tr> 
        <tr > 
          <td height=1 bgcolor="#E3B9B5"></td>
        </tr>
        <tr class=row bgcolor=#f2f2f2> 
          <td valign=top align="center"><a href="helpcenter.asp"><font color="#FF3300">【 服务项目及业务流程 】</font></a></td></tr>

      </table>
    </td>
  </tr>
  <tr>
    
  <td align="center"><br>
      <font color="#FF3300">[首页友情链接]</font>
</td>
  </tr>
</table>