toolbar.asp

用ASP写的电子购物系统

<% REM ##########################################################################%>
<% REM                                                                          #%>
<% REM   HEADER.ASP                                                             #%>
<% REM                                                                          #%>
<% REM                                                                          #%>
<% REM   Copyright (c) 1999-2000 Epro Corporation.  All rights reserved.        #%>
<% REM                                                                          #%>
<% REM ##########################################################################%>

<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=720>
  <TBODY> 
  <TR> 
    <TD width="720"> 
      <TABLE border=0 cellPadding=0 cellSpacing=0 width=720>
        <TBODY> 
        <TR> 
          <TD><IMG height=71 src="newimages/logo.gif" width=167></TD>
          <TD vAlign=center><IMG height=66 src="newimages/ban(1).gif" 
            width=467></TD>
          <TD>&nbsp;</TD>
        </TR>
        </TBODY> 
      </TABLE>
    </TD>
  </TR>
  <TR valign="top"> 
    <TD width="720">
      <table border=0 cellpadding=0 cellspacing=0 width=720>
        <tr> 
          <td width=590><img border=0 height=21 src="newimages/t7.gif" 
            usemap=#Map width=577><map name=Map><area coords=6,3,63,22 
              href="../index.htm" shape=RECT><area 
              alt=报刊发行 coords=74,2,148,23 
              href="../newspaper/index.htm" shape=RECT 
              title=报刊发行><area alt=特快专递 coords=159,2,232,24 
              href="../ems/index.htm" shape=RECT 
              title=特快专递><area alt=邮政储蓄 coords=244,2,317,22 
              href="../bank/Index.htm" shape=RECT 
              title=邮政储蓄><area alt=集邮天地 coords=328,2,401,24 
              href="../stamp/index.htm" shape=RECT 
              title=集邮天地><area alt=商业信函 coords=413,3,487,21 
              href="../letter/index.htm" shape=RECT 
              title=商业信函><area alt=网上购物 coords=499,2,571,27 
              href="../ecom/index.asp" shape=RECT 
              title=网上购物></map></td>
          <td valign=bottom width=130> 
            <script language=JavaScript>
<!--
function  visitor()
{
//define variable
 var Jsay;
 var Jdayr;
 var  Jtoday= new Date();
 var  Jyear= Jtoday.getYear(); Jmonth=Jtoday.getMonth();
         Jday= Jtoday.getDay();  Jdate=Jtoday.getDate();
         Jhrs= Jtoday.getHours(); Jmin=Jtoday.getMinutes();
          Jsec=Jtoday.getSeconds();
document.write();     
document.write("<font color=black>");
  document.write('\t'+"<font color=black>"+"</font>");
  document.write("<font color=black>"+""+"</font>");
  document.write('<font color=black>'+'</font>'+Jyear+"<font color=black>"+"年"+"</font>" );
 document.write((Jmonth+1));
 document.write("<font color=black>"+"月"+"</font>"+Jdate+"<font color=black>"+"日"+"</font>");       
if (Jday==1)
 document.write("<font color=black>"+"&nbsp;星期"+"</font>"+"<font color=black>"+"一"+"</font>");
else if (Jday==2) 
 document.write("<font color=black>"+"&nbsp;星期"+"</font>"+"<font color=black>"+"二"+"</font>");
else if (Jday==3) 
 document.write("<font color=black>"+"&nbsp;星期"+"</font>"+"<font color=black>"+"三"+"</font>");
else if (Jday==4) 
 document.write("<font color=black>"+"&nbsp;星期"+"</font>"+"<font color=black>"+"四"+"</font>");
else if (Jday==5) 
 document.write("<font color=black>"+"&nbsp;星期"+"</font>"+"<font color=black>"+"五"+"</font>");
else if (Jday==6) 
 document.write("<font color=black>"+"&nbsp;星期"+"</font>"+"<font color=black>"+"六"+"</font>");
else if (Jday==7) 
 document.write("<font color=black>"+"&nbsp;星期"+"</font>"+"<font color=black>"+"日"+"</font>");
}
visitor();
// -->
</script>
          </td>
        </tr>
        <tr bgcolor="#339933"> 
          <td colspan=2 height=2></td>
        </tr>
        <%
        if market_id="" then
           m_id=trim(cstr(request("market_id")))
        else
           m_id=market_id
        end if
        if  m_id<>"" then
        %>
        <tr>
          <td bgcolor="#EFFCF1"> 
            <table width="600" border="0" cellpadding="2" cellspacing="1">
              <tr>
                <td>:::: 
                <a href="market_list.asp">网上商城</a>
                 >> 
                <%
                Set con_m = Server.CreateObject("ADODB.Connection")
                con_m.Open "DSN=Web ORA;UID=zj;PWD=zj;"
                set rs_m=server.CreateObject ("adodb.recordset")
                rs_m.Open "select name from market where id=" & m_id,con_m,1,1
                if rs_m.BOF or rs_m.EOF then
                else
                   Response.Write rs_m(0)
                end if
                rs_m.Close
                set rs_m=nothing
                con_m.Close 
                set con_m=nothing
                %>
                </td>
              </tr>
            </table>
          </td>
        </tr>
        <% end if %>
        <tr> 
          <td colspan=2> 
            <table width="100%" border="0" cellspacing="2" cellpadding="2">
              <tr> 
                <td align="center"><img src="newimages/185.gif" width="90" height="47"></td>
                <td><font color="#FF3333">·</font><font color="#FF3333">新手请跟我来</font> 
                  <img src="newimages/biao_2.gif" width="12" height="12" border="0">
                       <%   if isnull(ShopperID) or isempty(ShopperID) then %>
			<a  href="login.asp"><font color="#330066">新会员注册/登录</font></a>
		<%else %>
			<a href="accountform.asp"><font color="#330066">修改个人信息</font></a>
		<%end if%>
       <a 
            href="../ecom/orderque.asp"><font 
            color=#330066><img src="newimages/biao_2.gif" width="12" height="12" border="0">订单查询</font></a> 
                  <a 
            href="../ecom/basket.asp"><font 
            color=#330066><img src="newimages/biao_2.gif" width="12" height="12" border="0">查看购物篮</font></a> 
                  <a 
            href="../ecom/xt-checkout.asp"><font 
            color=#330066><img src="newimages/biao_2.gif" width="12" height="12" border="0">去收银台</font></a> 
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </TD>
  </TR>
   
</TABLE>