top.asp

一套很早的多用户电子商务程序

<%
set rs=server.createobject("adodb.recordset")
sql="select * from Manager"
rs.open sql,conn,1,1
if rs("logo_type")="tp1" then
logo=rs("logo_name")
else
logo="<img src="&rs("logo_pic")&">"
end if
open_win=rs("open_win")
banner=rs("banner")
banner_link=rs("banner_link")
center_pic=rs("center_pic")
center_pic_link=rs("center_pic_link")
bottom_pic=rs("bottom_pic")
bottom_pic_link=rs("bottom_pic_link")
copyright=rs("copyright")
Domain_Name=rs("Domain_Name")
phone=rs("phone")
Email=rs("Email")
rs.close:set rs=nothing
%>


<div align="center"> 
  <TABLE width=778 border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
    <TBODY>
      <TR> 
        <TD colSpan=3 height=4></TD>
      </TR>
      <TR> 
        <TD width=196 rowSpan=2 style="line-height: 600%"><div align="center"><%=logo%></div></TD>
        <TD align=middle width=404 rowSpan=2><div align="center"><a href="<%=banner_link%>" target="_blank"><img src="<%=banner%>"  border="0"></a></div></TD>
        <TD width=179 height="45" vAlign=center class=hangju><div align="center">◇<a href="about.asp">关于本站</a>　◇ 
            <a href="guestbook/book.asp">顾客留言</a><br>
            ◇<a href="servers.asp">本站服务</a>　◇ <a 
      href="daogou.asp">购物帮助</a> </div></TD>
      </TR>
      <TR> 
        <TD vAlign=center class=hangju><TABLE cellSpacing=0 cellPadding=0 width=170 border=0>
            <TBODY>
              <TR> 
                <TD width=90><A href="More.asp"><IMG height=18 
            src="pic/top001.gif" width=81 border=0></A></TD>
                <TD width=90><A 
            href="shopadd.asp"><IMG height=18 
            src="pic/top002.gif" width=77 
      border=0></A></TD>
              </TR>
            </TBODY>
          </TABLE></TD>
      </TR>
      <TR> 
        <TD background=pic/bg001.gif colSpan=3 height=24> <TABLE cellSpacing=3 cellPadding=0 width="100%" border=0>

            <TBODY>
              <TR> 
                <TD align=center><a href="default.asp">首页</a><font color="#BB7100"> 丨 </font><%
'读取一级分类目录名称=========================================
set rs=server.createobject("adodb.recordset")
sql="select * from Class_1 "
rs.open sql,conn,1
Tsum=rs.recordcount
Tj=1
while not rs.eof and not rs.bof
response.Write"<a href=ProductClass2.asp?ProductClass_1="&rs("Class_1_Name")&">"&rs("Class_1_Name")&"</a>" 
if Tj<Tsum then
response.write"<font color=#BB7100> 丨 </font>"
end if

rs.movenext
 Tj=Tj+1
wend
rs.close
%>
                </TD>
              </TR>
            </TBODY>
          </TABLE></TD>
      </TR>
      <TR> 
        <TD height=1 colSpan=3 bgcolor="#EBEBEB"></TD>
      </TR>
    </TBODY>
  </TABLE>

</div>