k_xsthrk.asp

一个很好的在线购物系统

                                                                                                                                                             
    <td width="99" height="24" align="center" width="146" bgcolor="#DDD2C4">                                                                                                                                          
     入库日期                                                         
     </td>                                                                                                                                                        
                                                                                                                                                          
    <td width="58" height="24" align="center" width="146" bgcolor="#DDD2C4">                                                                                                                                         
     入库数量                                                         
     </td>                                                                                                                                                        
                                                                                                                                                          
    <td width="66" height="24" align="center" width="146" bgcolor="#DDD2C4">                                                                                                                                         
     验收人                                                         
     </td>                                                                                                                                                        
                                                                                                                                                          
    <td width="28" height="24" align="center" width="146" bgcolor="#DDD2C4">                                                                                                                                         
     选中                                                         
     </td>                                                                                                                                                        
                                                                                                                                                          
  </tr>                                                                                                                                                     
                                                                                                                                                     
   <% for n=1  to rst.pagesize%>                                                                         
        <%if  n mod 2=1 then                                                                               
            bg="#f7f7f7"                                                                                 
       else                                                                               
            bg="#EDEBEC"                                                                                
       end if%>                                                                                                                                                   
                                                                                                                                                       
  <tr bgcolor="<%=bg%>">                                                                                                                   
                                                                                                                            
                                                                                                                                                     
                                                                                                                                         
      <td width="55" height="23" align="center" width="131"><font size="2"><%=rst("retnum")%></A></font></td>                                                                 
                                                                                                                                                     
      <td width="74" height="23" align="center" width="98"><font size="2"><%=rst("retdate")%>                                                                
       </font>                                                                
    </td>                                                                                                                                                  
      <td width="118" height="23" align="center" width="146"><%=Sname(rst("prodcode"))%></td>                                                                                                                                                   
                                                                                                                                       
      <td width="52" height="23" align="center" width="146"><%=rst("Quantity")%></td>                                                                                                                                                  
                                                                                                                                          
      <td width="89" height="23" align="center" width="146"><%=rst("ckxh")%>                                                      
        <%'获取当前系统日期                                              
		curyear=year(date())                
		Tmonth=month(date())                
		Tdate=day(date())                 
		if Tmonth<10 then                
		   curmonth="0"&Tmonth                
		else                
		   curmonth=Tmonth                
		end if                 
		if Tdate<10 then                
		   curdate="0"&Tdate                
		else                
		   curdate=Tdate                
		end if                
		m_date=curyear&"-"&curmonth&"-"&curdate     %>                                                                                                                                                      
      <td width="99" height="23" align="center" width="146"><input type="text" name="rkrq<%=n%>" size="10" value="<%=m_date%>"  readonly style="background-color: #edefef"></td>                                                                                                                                                
                                                                                                                                         
      <td width="58" height="23" align="center" width="146"><input type="text" name="rksl<%=n%>" size="4"  maxlength="4"></td>                                                                                                                                                
                                                                                                                                        
      <td width="66" height="23" align="center" width="146"><input type="text"  name="jbr<%=n%>" value="<%=session("username")%>" size="6"  readonly style="background-color: #edefef"> </td>                                                                                                                                                
                                                                                                                                     
      <td width="28" height="23" align="center" width="146"><input type="checkbox" value="<%=n%>"  name="xz">                                    
        <input type="hidden" value="<%=rst("ID")%>"  name="thid<%=n%>">                      
        <input type="hidden" value="<%=rst("Quantity")%>"  name="thsl<%=n%>">      
        <input type="hidden" value="<%=rst("ckxh")%>"  name="rkck<%=n%>">                                 
</td>                                                                                                                                                
                                                                                                                                          
  </tr>                                                                                                                                   
  <%                                                                                                                                   
     rst.movenext                                                                                                                                   
     if rst.eof then exit for                                                                                                                                   
  next                                                                                                                                   
  %>                                                                                                                                                  
 </table>                                                                                                                                                  
                                                                                                                                 
<p align="center">                                                                                                                                
<font size="2">                                                                                                                                                 
   共<%=rst.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; <a href="K_xsthrk.asp?page=1">首页</a>&nbsp;<%if page>1 then %>                                                                                                                                                                            
   <a href="K_xsthrk.asp?page=<%=(page-1)%>">上页</a>&nbsp;                                                                                                                                                                           
   <% else%>                                                                                                                                                                           
   上页&nbsp;                                                                                                                                                                           
  <%  end if%>                                                                                                                                                                           
    <%if page<rst.pagecount then %>                                                                                                                                                                          
   <a href="K_xsthrk.asp?page=<%=(page+1)%>">下页</a>&nbsp;                                                                                                                                                                           
   <% else %>                                                                                                                                                                          
   下页&nbsp;                                                                                                                                                                           
  <%end if%><a href="K_xsthrk.asp?page=<%=rst.pagecount%>">尾页</a>&nbsp;&nbsp;</font>                                                                                
 <%%>                                                                                 
                                                                               
                                                                                                                                                                       
      <select  name="page1" style="width:80" size="1">                                                                                          
                                                                                                 
                                                                                 
       <% for count=1 to rst.pagecount%>                                                                                                                  
         <option value="<%=count%>">第<%=count%>页</option>                                                                           
       <%next%>                                                                                                 
                                                                                                         
      </select><input type="button" value="GO" onclick="Gopage()"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                                                        
  <p align="center">                         
  <input type="submit" value="保存" name="bc"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                              
 &nbsp;&nbsp;&nbsp;&nbsp;<a href="k_xsthrkbrow.asp">返回</a>                                             
 </form>                                                  
                                                       
                                                                                                                                                     
<%                                                        
rst.close                                                        
set rst=nothing                                                        
 end if                                             
  %>                                                                         
                                                                      
                                                                         
 </font>                                                    
                                                                      
                                                                         
</body>