khdd.asp

一个很好的在线购物系统

                if i<=9 then   
                i="0"&i   
                end if%>                    
                <option value=<% =i%>> <% =i %> </option>    
                <%next%>     
              </select>    
              月     
              <select name=dday >    
              <%if ddate<>"" then   
              dday=mid(ddate,9,2) 
              else 
               dday=day(date()) 
               if len(dday)=1 then 
               dday="0"&dday 
               end if 
                end if%>   
          <option value=<% =dday%> selected> <% =dday %> </option>   
   
                <% for i=1 to 31    
                if i<=9 then   
                i="0"&i   
                end if%>                     
                <option value=<% =i %>> <% =i%> </option>    
                <%next%>     
              </select>    
              日    </td>                                                                           
  </tr>                                                                           
  <tr>                                                                           
                                                                 
    <td width="12%" align="right" bordercolor="#F7F4E5">      
 <font size="2"> 客户编号</font></td>                                                                                                                                                                                                                                                                                                                                                           
<td width="104" bordercolor="#F7F4E5" >  
<%if khbz<>"1" and spbz<>"1" and khxh="" then%>   
<input type="text" size=15 name="m_khid1" readonly   value=<%=session("par_id")%>  style="background-color: #edefef">     
<%else       
if khbz="1" then       
for i=0 to Request("m_line")%>       
<%if Request("checkbox1"&i)<>"" then%>       
<%aa=trim(Request("m_id"&i))       
bb=trim(Request("m_name"&i))       
cc=trim(request("khlx"&i))%><%exit for%>       
<%end if%>   
<%next%>   
<input type="text" size=15 name="m_khid1" readonly   value="<%=session("par_id")%>" style="background-color: #edefef">   
<%end if            
if spbz="1" or khxh<>"" then%>         
<input type="text" size=15 name="m_khid1" readonly   value="<%=session("par_id")%>"  style="background-color: #edefef">    
<%end if        
end if%><input type=hidden name=bcbz value="<%=bcbz%>" bordercolor="#F7F4E5"><%'<input type="button" name="B1" value="..." onclick="click1()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                                                                                                                           %>   
    </td>           
                                                                                                                                                                                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                                                                                                                                                                        
   </center>             
   <td width="14%" align="right" bordercolor="#F7F4E5">                                    
       <font size="2"> 客户名称</font>                                                                                                                                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                                                                                                                                                                           
    </td>                                                                                                                                                                                                                                                                                                                                                                                                         
    <td width="103" align="right" bordercolor="#F7F4E5">                                   
                                                                                                                                                                                                                                                                                                            
  <p align="left">      
     
<%'&&&&&&&&&&&&&&&&&&&&77777取出相应客户信息%>    
<%set rsclient=server.CreateObject("adodb.recordset")    
 if  rsclient.state=1 then rsclient.close    
 rsclient.open "select * from D_clientinfo where clientnum='"& session("par_id") &"'",pubconn,1,3    
 %>    
    
    
         
<%'if khbz<>1 and spbz<>1 and khxh=""  then%>            
     <input type="text" size=19 name="m_name"  value="<%=rsclient("ClientName")%>"  readonly style="background-color: #edefef">            
                                                                                                                                                                                                                                                                                                                                                                                                       
    </td>              
                                                                                                                                                                                                                                                                                                                                                                                                              
      <td width="95" align="right" bordercolor="#F7F4E5"><font size="2">销售部门</font></td>                                                                                    
    <td width="95" bordercolor="#F7F4E5">           
    <%bmsql="select * from viewcd where clientnum='"&session("par_id")&"'"           
    bmrs=pubconn.execute(bmsql)%>    
    <input type="hidden" size=20 name="xsbm" value=<%=bmrs("departcode")%>>           
    <input type="text" size=12 name="xsbm1" value="<%=bmrs("name")%>" readonly style="background-color: #edefef">           
    </td>                                                                                                                                                                                                                                                                                                                                                                                                                        
     </tr>                                                                                                                                                                                                                                                                                                                                                                                                        
    <center>                                                                                                                                                                                                                                                                                                          
  <tr>                                                                                                                                                                                                                                                                                                              
    <td width="12%" align="left" bordercolor="#F7F4E5">                                 
    <p align="right">                                                                                                                                                                                                                                                                               
    <font size="2">业务员</font>                                                                                                                                                                                                                                                                                                                                                                            
    </p> </td><td width=509 align="left" colspan="6" bordercolor="#F7F4E5">                                 
    <%ywysql="select * from viewcs where clientnum='"&session("par_id")&"'"           
      ywyrs=pubconn.execute(ywysql)%>    
     <input type="hidden" size=15 name="ywy" value=<%=ywyrs("stuffnum")%>>                                                                                                                                                                                                                                                                                                                                                                                           
     <input type="text" size=15 name="ywy1" value="<%=ywyrs("name")%>" readonly style="background-color: #edefef">            
   </td>                                                                                                                                                                                                                                                                                                       
  </tr>                                                                                                                                                                                                                                                                                                                                                                                                      
  <tr>                                                                                                                                                                                                                                                                                                                                                         
                                                                                                                                                                                                                                                                                                                                                                                                       
    <td width="12%" align="right" bordercolor="#F7F4E5">                                                                                                                                                                                                                                                                                                                                                                                                     
                                                                                                                                                                                                                                                                                                                                                                                                           
        <font size="2">商品编码</font></td>                                                                                                                                                                                                                                                                                                                                                                                                     
    <td width="104" bordercolor="#F7F4E5">             
              
    <%if spxh<>"" then%>             
                                                                                                                                                                                                                                                                                                                                                                                    
    <input type="text" size=10 name="f_spxh"  value="<%=spxh%>" onkeyup="key2()" onchange=zkch2()>             
    <%else%>            
    <input type="text" size=10 name="f_spxh" onkeyup="key2()" onchange=zkch2()>            
    <%end if%>            
    <input type="button" name="B8" value="..." onclick="click2()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">            
                       
    </td>                                                                                                                                                                                                                                                                                                                                                                                                                   
    <td width="14%" align="right" bordercolor="#F7F4E5">             
                
    <font size="2">商品名称</font>                                                                                                                                                                                                                                                                                                                                                                                                                
    </td>                                                                                                                                                                                                                                                                                                                                                                                                                   
    <td width="103" bordercolor="#F7F4E5">                
         <%if spxh<>"" then%>               
               
     <input type="text" name="spmc" size="19" value=<%=sprs("prodname")%> readonly style="background-color: #F4F4F2">                                                                                                                                                                                                                                                                                                                                                                                                         
         <%else%>             
    <input type="text" name="spmc" size="19" readonly style="background-color: #edefef">                                                                                                                                                                                                                                                                                                                                                                                                     
         <%end if%>                                                                                                                                                                                                                                                                                                                            
    </td>                 
    <td width="95" align="right" bordercolor="#F7F4E5">                                                                                                                                                                                                                                                                                                                                                                             
    <font size="2">数&nbsp;量</font>                                                                                                                                                                                                                                                                                                                                                                         
    </td>