k_xsckbrow.asp

一个很好的在线购物系统

                 if date1<>"" then                          
                      if cint(date1)=i  then                          
                         response.write ("selected")                          
                      end if                           
                 end if                           
               %>                          
           ><%="0"&i%></option>                                             
       <%next%>                          
        <%for i =10 to 31%>                           
           <option value="<%=i%>"                           
                <%                           
                 if date1<>"" then                          
                      if cint(date1)=i  then                          
                         response.write ("selected")                          
                      end if                           
                 end if                           
               %>                          
           ><%=i%></option>                                             
       <%next%>                          
                                                                                   
      </select>日&nbsp;至                    
      <input type="text" size="4" name="year2" <%if year2<>"" then%> value="<%=year2%>" <%end if %> value="<%=year(date())%>" maxlength="4">年                    
      <select  name="month2" style="width: 51; height: 23" size="1">                                                     
                                      
       <option value=""></option>                                                                            
       <%for i=1 to 9%>                           
           <option value="<%="0"&i%>"                           
              <%                           
                 if month2<>"" then                          
                      if cint(month2)=i  then                          
                         response.write ("selected")                          
                      end if                           
                 end if                           
               %>                          
           ><%="0"&i%></option>                                             
       <%next%>                          
        <%for i =10 to 12%>                           
           <option value="<%=i%>"                           
                <%                           
                 if month2<>"" then                          
                      if cint(month2)=i  then                          
                         response.write ("selected")                          
                      end if                           
                 end if                           
               %>                          
           ><%=i%></option>                                             
       <%next%>                          
                           
                                                                              
      </select>月<select  name="date2" style="width: 51; height: 23" size="1">                                                    
                                                          
       <option value=""></option>                                                                           
         <%for i=1 to 9%>                          
           <option value="<%="0"&i%>"                         
              <%                          
                 if date2<>"" then                         
                      if cint(date2)=i  then                         
                         response.write ("selected")                         
                      end if                          
                 end if                          
               %>                         
                                    
           ><%="0"&i%></option>                                            
       <%next%>                          
       <%for i=10 to 31%>                           
           <option value="<%=i%>"                          
                  <%                           
                 if date2<>"" then                          
                      if cint(date2)=i  then                          
                         response.write ("selected")                          
                      end if                           
                 end if                           
               %>                          
                          
                                     
           ><%=i%></option>                                             
       <%next%>                           
                                     
                                                                                   
      </select>日&nbsp; 　<input type="submit" value="查询" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" ></td> 
 </tr> 
 <tr> 
  <td width="71" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" align="right"> 
 
   
   出库仓库</td> 
   <td width="176" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" > 
 
    <p align="left"> 
    <select size="1" name="rkck" style="width: 131; height: 23"> 
   <option value="">全部</option>        
           <%for i=0 to UBound(storemc) %>        
             <option value="<%=storemc(i)%>" <%if rkck=storemc(i)  then%> selected <%end if %>><%=storemc(i)%></option>                                                      
           <%next %>                          </select> 
 
 
  </td> 
   <td width="43" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" > 
 
   
   经办人</td> 
   <td width="240" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" > 
    <select size="1" name="ysr" style="width:120"> 
    <% 
    set rsgh=server.createobject("adodb.recordset") 
    ghsql="select * from a_stuffinfo where delflag='0'" 
    rsgh.open ghsql,pubconn,1,3 
    %> 
    <option value="">全部</option> 
    <%do while not rsgh.eof %> 
    <option value="<%=rsgh("stuffnum")%>" 
    <%if ysr<>"" then 
         if ysr=rsgh("stuffnum") then 
             response.write ("selected") 
         end if  
      end if  
    %> 
 
     
    ><%=rsgh("name")%></option> 
    <%rsgh.movenext 
      loop 
      rsgh.close 
      set rsgh=nothing 
     
    %> 
 
    </select> 
 
 
  </td> 
 </tr> 
</table>                                                                                       
 </form>                              
 
<p align="center"> 
 <%                            
 if rst.eof then%>                            
                    
<font size="2"><%if flag<>"1" then%>最近三天<%end if %>无出库记录！                              
<p align="center">                                        
<input type="button" value="出库"  onclick="location.href='k_xsck.asp'"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                                  
<input type="button" value="统计"  onclick="location.href='k_xscktj.asp'"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1"></font>&nbsp; </form>                           
                                      
 <%if fhplace=3 then%> 
 <a href="k_outtjdetail.htm?year1=<%=year1%>&month1=<%=month1%>&date1=<%=date1%>&year2=<%=year2%>&month2=<%=month2%>&date2=<%=date2%>&ckxh=<%=rkck%>">返回</a>                                     
 
<%end if %>                                                  
 <%                                  
    response.end                                  
 else