k_stockbrow2.asp

一个很好的在线购物系统

           ><%="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="ghdwxh" style="width: 172; height: 23"> 
    <% 
    set rsgh=server.createobject("adodb.recordset") 
    ghsql="select * from k_tblprovider" 
    rsgh.open ghsql,pubconn,1,3 
    %> 
    <option value="">全部</option> 
    <%do while not rsgh.eof %> 
    <option value="<%=rsgh("pronum")%>" 
    <%if ghdwxh<>"" then 
         if ghdwxh=rsgh("pronum") then 
             response.write ("selected") 
         end if  
      end if  
    %> 
     
    ><%=rsgh("proname")%></option> 
    <%rsgh.movenext 
      loop 
      rsgh.close 
      set rsgh=nothing 
     
    %> 
    </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="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>  
  
 
 
  </td> 
 </tr> 
</table>                                                                                       
 </form>                                                                                       
 
<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