k_stockshbrow.asp

一个很好的在线购物系统

       <%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="cgy" 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 cgy<>"" then
         if cgy=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 fhbz<>2 then%>                                      
 <a href="k_stockbrow.asp">返回</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                                                                                                              
end if                                                                                                              
rst.absolutepage=page                                                                                                              
                                                                                                               
%>