k_pdsybrow.asp

一个很好的在线购物系统

                         response.write ("selected")                      
                      end if                       
                 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; 　<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="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>
   <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="zdr" style="width:120">
    <%
    set rsgh=server.createobject("adodb.recordset")
    ghsql="select * 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 zdr<>"" then
         if zdr=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 %>无记录！</font>                             
                     
<font size="2">                           
<p align="center">                                     
<input type="button" value="新增"  onclick="location.href='k_pdsy.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 %>                              
<%if fhplace=3 then%>
 <a href="k_outtjdetail.htm?year1=<%=year1%>&month1=<%=month1%>&date1=<%=date1%>&year2=<%=year2%>&month2=<%=month2%>&date2=<%=date2%>&ckxh=<%=ckxh%>">返回</a>                                    

<%end if %>                                                
 <%