k_rktj.asp

一个很好的在线购物系统

                 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; 　
  </font>
  </td>
 </tr>
 <tr>
  <td width="71" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" align="right">

  
   <font size="2">

  
   入库仓库
   </font>
  </td>
   <td width="176" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" >

    <p align="left">
    <font size="2">
    <select size="1" name="ckxh" style="width: 131; height: 23">
   <option value="">全部</option>       
           <%for i=0 to UBound(storemc) %>       
             <option value="<%=storemc(i)%>" <%if ckxh=storemc(i)  then%> selected <%end if %>><%=storemc(i)%></option>                                                     
           <%next %>                          </select>  
  
  
    </font>  
  
  
  </td>  
   <td width="283" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" >  
  
    
   <p align="left"> 
   <font size="2"><input type="submit" value="查询" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" > 
   </font> 
  </td> 
 </tr> 
</table>                                                                                       
                                                                                      
<p align="center"> 
                                                                                      
<%                            
 if rst.eof then%>                            
                    
<font size="2">无记录！                               
                            
                                
                                                   
 <%                                  
 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                                                                                                                   
                                                                                                                    
%>                                                                                
                                                                                       
<div align="center" style="width: 655; height: 62">                                           
                                                                                                         
                                                                                                                             
<table border="1" cellspacing="0" width="616" height="30" width="100%" width="100%">                                                                                                                     
        
 </font>                        
                                          
                                             
  <tr>