left.asp

ASP入门与提高实用教程 源文件(上传网站)

<table border="0" width="190" cellspacing="0" cellpadding="0">
  <tr>
    <td width="190" valign="top" align="left">
      <table border="0" width="180" cellspacing="0" cellpadding="0" height="18">
      <%if session("user_name")<>"" then%>
        <tr>
        <%sql="select * from user where user_name='"&session("user_name")&"'"
        rs.open sql,conn,3,3
        %>
       <td width="100%" bgcolor="#FF9933" height="18">用户信息</td>
        </tr>
        <tr>
          <td width="100%" height="18" bgcolor="#63CFFF">
            <table border="0" width="180" cellspacing="1">
              <tr>
                <td width="100%" bgcolor="#FFFFFF">用户名:<%=rs("user_name")%><br>地址：                        
                <%=rs("user_adds")%><br>         
                E-mail：<%=rs("user_mail")%><Br>电话：<%=rs("user_tel")%><Br>邮编：<%=rs("user_postcode")%></td>         
              </tr>         
            </table>         
          </td>         
        </tr>         
                <%rs.close%>             
        <%else%>         
                 
        <tr>         
          <td width="100%" bgcolor="#FF9933" height="18">用户登录</td>         
        </tr>         
        <tr>         
          <td width="100%" height="18" bgcolor="#63CFFF">         
            <table border="0" width="180" cellspacing="1">         
              <tr>         
                <td width="100%" bgcolor="#FFFFFF">         
                  <form method="POST" action="login.asp">         
                    用户名:<input type="text" name="user_name" size="18" class=input>         
                    <br>密&nbsp; 码:<input type="password" name="user_pass" size="18" class=input>                            
                    <br><input type="submit" value="确定" name="B1" class=input>          
                    <a href="reg.asp">用户注册</a>                          
                  </form>         
                </td>         
              </tr>         
            </table>         
          </td>         
        </tr>         
        <%end if%>         
             
        <tr>         
          <td width="100%" height="5"></td>         
        </tr>         
                 
         
             
        <tr>         
          <td width="100%" bgcolor="#FF9933" height="18">订单查询</td>         
        </tr>         
                 
        <tr>         
          <td width="100%" bgcolor="#63CFFF">         
            <table border="0" width="100%" cellspacing="1">         
              <tr>         
                <td width="100%" bgcolor="#FFFFFF">         
                  <form method="POST" action="query.asp">         
                  <input type="text" name="sub_number" size="17" class=input>          
                    <input type="submit" value="确定" name="B1" class=input>          
                  </form>         
                </td>         
              </tr>         
            </table>         
          </td>         
        </tr>         
                 
        <tr>         
          <td width="100%" height="5"></td>         
        </tr>         
              <%         
      sql="select * from newsclass"         
      rs.open sql,conn,3,3         
      if rs.eof then         
      %>         
      <tr>         
          <td width="100%" height="18" bgcolor="#FF9933">暂且没有分类         
         
          </td>         
      </tr>         
      <tr>         
          <td width="100%" height="18" bgcolor="#63CFFF">         
            <table border="0" width="100%" cellspacing="1">         
              <tr>         
                <td width="100%" bgcolor="#FFFFFF">　</td>         
              </tr>         
            </table>         
          </td>         
      </tr>         
      <tr>         
          <td width="100%" height="5"></td>         
      </tr>         
                 
      <%else         
      do while not rs.eof         
      %>         
        <tr>         
          <td width="100%" height="18" bgcolor="#FF9933"><%=rs("newsclass_name")%>         
         
          </td>         
        </tr>         
        <tr>         
          <td width="100%" height="18" bgcolor="#63CFFF">         
            <table border="0" width="100%" cellspacing="1">         
              <tr>         
                <td width="100%" bgcolor="#FFFFFF">         
                <%newsclass_id=rs("newsclass_id")         
                sql1="select top 10 * from news where newsclass_id='"&newsclass_id&"' order by news_id DESC"         
                set rs1=server.createobject("adodb.recordset")         
                rs1.open sql1,conn,3,3         
                if rs1.eof then         
                    response.write "暂且没有新闻"         
                else         
                do while not rs1.eof%>         
                <%if len(rs1("news_title"))>11 then         
                    news_title=left(rs1("news_title"),11)         
                %><a href="news.asp?news_id=<%=rs1("news_id")%>"><%=news_title%>……</a>         
                <%else%>           
                <a href="news.asp?news_id=<%=rs1("news_id")%>"><%=rs1("news_title")%></a><%end if%><br><%rs1.movenext           
                loop         
                end if         
                rs1.close         
                set rs1=nothing         
                %>         
                </td>         
              </tr>         
            </table>         
          </td>         
        </tr>         
        <tr>         
          <td width="100%" height="5"></td>         
        </tr>         
                 
        <%rs.movenext         
        loop         
        end if         
        rs.close         
        set rs1=nothing%>         
                 
      <tr>         
          <td width="100%" height="18" bgcolor="#FF9933">         
          用户投诉        
          </td>        
      </tr>        
      <tr>        
          <td width="100%" bgcolor="#63CFFF">        
            <table border="0" width="100%" cellspacing="1">        
              <tr>        
                <td width="100%" bgcolor="#FFFFFF">      
                  <form method="POST" action="userts.asp">      
                    用户名：<input type="text" name="user_name" size="14" class=input><br>      
                    订单号：<input type="text" name="sub_number" size="14" class=input><br><input type="submit" value="提交" name="B1" class=input>      
                  </form>      
                </td>       
              </tr>       
            </table>       
          </td>       
      </tr>       
               
        <tr>       
          <td width="100%" height="5"></td>       
        </tr>       
      <tr>    
          <td width="100%" height="18" bgcolor="#FF9933">         
          站内商品搜索        
          </td>        
      </tr>    
      <tr>    
          <td width="100%" bgcolor="#63CFFF">        
            <table border="0" width="100%" cellspacing="1">        
              <tr>        
                <td width="100%" bgcolor="#FFFFFF">      
                  <form method="POST" action="search.asp">      
                    商品类别：<select size="1" name="sort_id">  
                      <%sql="select * from sort"  
                      rs.open sql,conn,3,3  
                      if not rs.eof then  
                      do while not rs.eof  
                      %><option value="<%=rs("sort_id")%>"><%=rs("sort_name")%></option>  
                      <%rs.movenext  
                      loop  
                      end if  
                      rs.close  
                      %>  
                    </select><br>     
                    关键字：<input type="text" name="hw_name" size="14" class=input><br><input type="submit" value="提交" name="B1" class=input>    
                  </form>    
                </td>     
              </tr>     
            </table>     
          </td>     
      </tr>  
        <tr>     
          <td width="100%" height="18"></td>     
        </tr>     
        <tr>     
          <td width="100%" height="18"></td>     
        </tr>     
      </table>     
    </td>     
  </tr>     
</table>