k_xsthrkbrow.asp

一个很好的在线购物系统

       <%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: 172; height: 23"> 
     <option value="">全部</option>        
           <%for i=0 to UBound(house) %>        
             <option value="<%=house(i)%>" <%if rkck=house(i)  then%>  selected <%end if %>><%=house(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 stuffnum,name 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_xsthrk.asp'"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                                
<input type="button" value="统计"  onclick="location.href='k_xsthrktj.asp'"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1"></font>&nbsp; </form>                          
                                   
                            
                                                
 <%                                
    response.end                                
 else                                                                                                                   
   if request.querystring("page")<>"" then                                                                                                                  
      page=cint(request.querystring("page"))                                                                                                                 
   else                                                                                                                 
      page=1                                                                                                                 
   end if                                                                                                                 
                                                                                                                 
rst.pagesize=10                                                                                                                
if page>=rst.pagecount then                                                                                                                 
   page=rst.pagecount                                                                                                                 
else                                                                                                                 
   if page<1 then                                                                                                                 
      page=1                                                                                                                 
   end if                                                                                                                 
end if                                                                                                                 
rst.absolutepage=page