left.asp

A Design and Implementation of The Online Shopping System Abstract: Along with the development

<table border="1" width="100%" cellspacing="0" cellpadding="0" bordercolorlight="#FF9933" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
      <tr>         
          <td width="100%" height="18" bgcolor="#63CFFF" align="center"><font color=red><b>最新公告</b></font></td>  
      </tr>         
      <%
      Set rs = Server.CreateObject("ADODB.RecordSet")
      '显示公告信息     
      sql = "Select  * From Board"   
      Set rs = Conn.Execute(sql)        
      If rs.Eof Then         
      %>         
      <tr>         
          <td width="100%" height="70" bgcolor="#E1F5FF">暂且没有公告 </td>         
      </tr>             
    <%Else%>
        <tr>         
          <td width="100%" bgcolor="#E1F5FF" height="70" valign="top">      
      <% '按时间显示最新的10条公告信息
            sql1 = "Select Top 10 * From Board Order By PostTime Desc"
			Set rs1 = Server.CreateObject("ADODB.RecordSet")         
            Set rs1 = Conn.Execute(sql)     
            Do While Not rs1.Eof
                title = rs1("Title")
                '显示公告标题以及网页链接
                If Len(title)>11 Then         
                    title = Left(title,11)         
              %><a href="/shop/BoardView.asp?id=<%=rs1("Id")%>" onclick="return newswin(this.href)"><%=title%>……</a>         
              <%Else%>            
                <a href="/shop/BoardView.asp?id=<%=rs1("Id")%>" onclick="return newswin(this.href)"><%=title%></a> 
              <%End If%><br> 
              <%rs1.MoveNext           
            Loop        
            rs1.Close%>
          </td>         
        </tr>
        <%      
        End If
        rs.Close
        %> 

     
      <%
      'isUser用来判断是否为注册用户，如果不是则为False，否则为True
      Dim isUser
      isUser = False
      uid = Session("user_id")
      pwd = Session("user_pwd")
      If uid<>"" And pwd<>"" Then
        '判断用户名和密码是否正确
		  sql = "Select * From Users Where UserId='"&uid&"' And Pwd='"&pwd&"'"
          Set rs = conn.Execute(sql)
          If Not rs.Eof Then
            isUser = True    
      %>
       <tr>
       <td width="100%" bgcolor="#97DDFF" height="18" align="center">用户信息</td>
        </tr>
        <tr>
          <td width="100%" height="18" bgcolor="#E1F5FF">
            <table border="0" cellspacing="1" width="100%">
              <tr>
                <td width="100%" bgcolor="#E1F5FF">用户名:<%=rs("UserId")%><br>地址：                         
                <%=rs("Address")%><br>         
                E-mail：<%=rs("Email")%><Br>电话：<%=rs("Telephone")%></td>         
              </tr> 
              <tr>
                <td width="100%" align="center" bgcolor="#E1F5FF">
                <a href="/shop/user/UserEdit.asp?uid=<%=uid%>" onclick="return newswin(this.href)">更改用户信息</a>
                <a href="/shop/user/PwdChange.asp?uid=<%=uid%>" onclick="return newswin(this.href)">更改密码</a>
                </td>         
              </tr> 
              <tr>
                <td width="100%" align="center" bgcolor="#E1F5FF">
                <a href="/shop/user/ComplainAdd.asp" onclick="return newswin(this.href)">客户投诉</a>
                <a href="/shop/user/ComplainView.asp" onclick="return newswin(this.href)">我的投诉</a>
                <a href="/shop/LoginExit.asp" onclick="return newswin(this.href)">退出登录</a>
                </td>         
              </tr>     
            </table>         
          </td>         
        </tr> 
           <%
           Else
             isUser = False
           End If
           rs.Close%>             
     <%End If
       If isUser = False Then  
          %>
        <tr>         
          <td width="100%" bgcolor="#97DDFF" height="18" align="center">用户登录</td>
        </tr>         
        <tr>         
          <td width="100%" height="18" bgcolor="#E1F5FF">         
            <table border="0" cellspacing="1" height="58">         
              <tr>         
                <td width="100%" bgcolor="#E1F5FF" height="55">         
                  <form method="POST" action="putSession.asp">         
                    用户名: 
                    <input type="text" name="loginname" size="18" value="">         
                    <br>密&nbsp; 码: 
                    <input type="password" name="password" size="18" value="">                            
                    <br><input type="submit" value="确定" name="B1">          
                    <a href="/shop/user/UserAdd.asp" onclick="return newswin(this.href)">用户注册</a>                           
                  </form>         
                </td>         
              </tr>         
            </table>         
          </td>         
        </tr>         
        <%End If%>         
        <tr>         
          <td width="100%" bgcolor="#97DDFF" height="18" align="center">订单查询</td>         
        </tr>         
                 
        <tr>         
          <td width="100%" bgcolor="#E1F5FF">  
          <Script language="javascript">
          function queryOrder(){
			var onum;
			onum = document.FrmQuery.sub_number.value;
			if (onum==""){
			  alert("请输入订单号！");
			  return false;
			}
			newOrder('/shop/shop/queryOrder.asp?onum='+onum);
		  }
          </Script>       
            <table border="0" width="100%" cellspacing="1">         
              <tr>         
                <td width="100%" bgcolor="#E1F5FF" height="31"> 
                  <form method="POST"  name="FrmQuery">         
                  <input type="text" name="sub_number" size="17">          
                    <input type="button" value="确定" name="B1" onclick="return queryOrder()">          
                  </form>         
                </td>         
              </tr>         
            </table>         
          </td>         
        </tr>
      <tr>       
          <td width="100%" height="18" bgcolor="#97DDFF" align="center">站内商品搜索</td>        
      </tr>    
      <tr>    
          <td width="100%" bgcolor="#E1F5FF">
           <script language="javascript">
          function onSearch(){
			var gname,itype,url;
			gname = document.Search.name.value;
			itype = document.Search.typeid.value;
			url = "/shop/Search.asp?gname="+gname+"&tid="+itype;
			window.open(url,null,"");
			return false;
		  }
          </script> 
            <table border="0" width="100%" cellspacing="1">        
              <tr>        
                <td width="100%" bgcolor="#E1F5FF">
                  <form method="POST" action="/shop/Search.asp" name="Search">      
                    商品类别：<select size="1" name="typeid">  
                      <%sql = "Select * From GoodsType"  
                      rs.Open sql,conn,3,3  
                      If Not rs.Eof Then  
                      Do While Not rs.Eof  
                      %><option value="<%=rs("Id")%>"><%=rs("Type")%></option>  
                      <%rs.MoveNext  
                      Loop  
                      End If  
                      rs.close  
                      %>  
                    </select>
                    <br>关 键 字：<input type="text" name="name" size="10">
                    <br><center><input type="button" value=" 提 交 " name="B1" onclick="return onSearch()"></center>
                  </form>    
                </td>     
              </tr>     
            </table>     
          </td>     
      </tr>   
      </table>