g_lostsh.asp

一个很好的在线购物系统

     </td>                                                                                                             
                                                                                                               
  </tr>                                                                                                           
                                                                                                           
     <% for n=1  to RSlost.RecordCount%>                               
                                                                                                        
       <%if  n mod 2=1 then                      
            bg="#f7f7f7"                        
       else                      
            bg="#EDEBEC"                       
       end if%>                                                                                                                    
  <tr bgcolor="<%=bg%>">                                                                         
       <%                    
       '找出对应的客户名称与业务员名字                    
       set Rsname=server.createobject("adodb.recordset")                    
       sql="select *  from D_ClientInfo where ClientNum='"&Rslost("ClientNum")&"'"                    
       Rsname.open sql,Pubconn,1  
       if not Rsname.eof then 
          khmc=Rsname("ClientName") 
       else 
          khmc=Rslost("ClientNum") 
       end  if                    
                           
       set RSywy=server.createobject("adodb.recordset")                    
       sql="select *  from A_StuffInfo where StuffNum='"&Rslost("StuffNum")&"'"                    
       RSywy.open sql,Pubconn,1                    
                    
       %>                                                                                                 
                                                                                                           
    <td width="69" height="23" align="center" width="122"><font size="2"></font><a href="G_ClientInfo.asp?ClientID=<%=Rslost("ClientNum")%>"><%=khmc%></a></td>                                                                                              
      <td width="53" height="23" align="center" width="131"><font size="2"><%=RSywy("Name")%>                       
       </font>                       
    </td>                                                                                                         
      <td width="105" height="23" align="center" width="84"><font size="2"><%=RSlost("ReportDate")%>                       
       </font>                       
    </td>                                                                                                         
      <td width="83" height="23" align="center" width="98"><font size="2"><%=RSlost("Production")%>                       
       </font>                       
    </td>                                                                                                         
      <td width="61" height="23" align="center" width="120"><font size="2"></font><%=RSlost("Maker")%></td>                                                                                                         
      <td width="104" height="23" align="center" width="146"><font size="2"></font><%=RSlost("OrderDate")%></td>                                                                                                          
                             
                                                                                                              
                                                                                              
                                                                                            
                                                                                                         
                                                                                                         
  </tr>                                                                                       
                                                                                                     
                            
  <%                                                                                             
     Rslost.movenext                                                                                             
     if Rslost.eof then exit for                                                                                             
  next                                                                                             
  %>                                                                                                            
 </table>                     
 </center>                     
 <p align="left">                     
 <a href="G_LostRemark.asp?Stuffid=<%=sid%>&wid=<%=wid%>">请审核</a>                                                                                                            
 </form>                                                                                                                             
<% response.end                      
end if   '有数据时                     
                     
end  if     '在已选择了业务员与周次时                     
                     
 %>                        
 <center>                              
                                                                                           
                                                                                                       
<form method="post" action="G_lostsh.asp" name="myform">                          
                                                  
                                                                     
                                                                     
                                                                     
<table border="0" cellspacing="0" width="100%" align="center" >                                                                      
  <tr>                                                                       
    <td width="12%" align="center" bgcolor="#F1E8DA" >                      
                      
     <p align="right">                     
     <font size="2">月份                    
     </font>                    
                     
     </p>                     
                     
    </td>                                                                        
    <td width="19%" align="center" bgcolor="#F1E8DA">                                                                      
                     
    <p align="left">                     
    <select name="WeekID" size="1" style="width:100" >                                                                    
                                                      
              <option value="">请选择</option>                                                                   
           <%for i=1 to 12 %>                                                                   
              <option value="<%=i%>" ><%=i%>月</option>                                                                   
          <%next%>                                    
                                                    
                                                                    
                                                                    
    </select>                     
                     
    </p>                     
                     
    </td>                                                                               
    <td width="11%" align="center" bgcolor="#F1E8DA">                     
                     
     <p align="right">                     
     业务员                     
                     
     </p>                     
                     
    </td>                                                                     
                                                                           
    <td width="29%" align="center" bgcolor="#F1E8DA">                                                                           
                     
      <p align="left">                     
      <select  name="txtstuff" style="width:100" size="1">                                    
      <%                                 
                                        
      %>                                                                  
            <%                                                                    
    '业务员列表                                                                    
    set rst=Server.CreateObject("ADODB.RecordSet")                                                                    
    sql="Select * from A_StuffInfo Where SaleFlag='1'and delflag='0'"                                                                    
    rst.open sql,pubconn,1                                                                    
                                                                        
    %>                                                                 
       <option value="">请选择</option>                                                             
       <%do while not rst.eof%>                                                                    
        <option  value="<%=rst("StuffNum")%>" >  <%=rst("Name")%></option>                                                                    
       <%                                                                   
       rst.movenext                                                                   
       loop                                                                   
      set rst=nothing                                                                   
        %>                                                                   
                                                                    
      </select>&nbsp;&nbsp;&nbsp;&nbsp; <input type="button" value="查询" onclick="check1()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >&nbsp;&nbsp;&nbsp;&nbsp; 
      <a href="G_mainlost.asp"><font size="2">返回</font></a>                     
                     
      </p>                     
                     
    </td>                                                                                            
 </tr>                                                                                           
</table>                                                                                    
</form>                    
                      
</body>