k_stockbrow.asp

一个很好的在线购物系统

                 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"><%if flag<>"1" then%>最近三天<%end if %>无进货记录！                       
<p align="center">                                 
<input type="button" value="新增"  onclick="location.href='k_stock.asp'"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                             
<input type="button" value="统计"  onclick="location.href='k_stocktj.asp'"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                            
             
 <input type="button" value="进货单审核"  onclick="location.href='k_stockshbrow.asp'"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                            
                                        
 <%if fhplace=2 then%>
 <a href="k_intjdetail.htm?year1=<%=year1%>&month1=<%=month1%>&date1=<%=date1%>&year2=<%=year2%>&month2=<%=month2%>&date2=<%=date2%>&ckxh=<%=ckxh%>">返回</a>                                    

<%end if %>                        
                                           
 <%                          
 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