e_returnbrow.asp

一个很好的在线购物系统

                                                                      
    <td width="492" align="center" bgcolor="#F1E8DA">                                                                       
                 
      <p align="left">                 
      <input type="text" name="khxh" size="14" value="<%=khxh%>" onkeyup="khxx()">&nbsp;<input type="button" value="..." onclick="kh()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">&nbsp;&nbsp;    
      <font size="2">&nbsp;&nbsp;客户名称    
      </font>    
      &nbsp;<input type="text" name="khmc" size="18" value="<%=khmc%>" readonly style="background-color: #edefef" ><input type="submit" value="查询" class="hand"  style="background-color: #D1D1D1; border-style: solid; border-width: 1" >                    
               
    </td>           
 </tr>              
</table> 
</form>                                                                             
                                                                                  
 <%                   
 if rsfk.eof then%>                   
<center><p>没有符合条件的记录！<br><input type="button" value="新增" onclick="location.href='E_return.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                  
                   
 <%else                         
 '有数据时开始分页                                                                                    
   if request.querystring("page")<>"" then                                                                                        
   page=cint(request.querystring("page"))                                                                                       
else                                                                                       
   page=1                                                                                       
end if                                                                                       
                                                                                       
rsfk.pagesize=10                                                                                      
if page>=rsfk.pagecount then                                                                                       
   page=rsfk.pagecount                                                                                       
else                                                                                       
   if page<1 then                                                                                       
      page=1                                                                                       
   end if                                                                                       
end if                                                                                       
rsfk.absolutepage=page                                                                                       
                                                                                        
%>                         
                                                                                      
 <form action="E_returndel.asp" method="post"  name="form1">                                                                                                  
<table border="1" cellspacing="0" width="100%" height="30">                                                                                          
                                                                                               
  <tr>                                                                                                          
                                                                                          
     <td width="52" height="24" align="center" bgcolor="#DDD2C4">                                                                                        
      　                                                                                        
     </td>                                                                                                          
    <td width="130" height="24" align="center" bgcolor="#DDD2C4">                                                                                        
     <font size="2">单据编号    
     </font>    
     </td>                                                                                                        
    <td width="155" height="24" align="center" bgcolor="#DDD2C4">                                                                                       
     <font size="2">客户名称    
     </font>    
     </td>                                                                                                        
     <td width="122" height="24" align="center" bgcolor="#DDD2C4">                                                                                       
      <font size="2">产品名称    
      </font>    
     </td>                                                                                                        
                                                                                                           
    <td width="90" height="24" align="center" bgcolor="#DDD2C4">                                                                                       
     <font size="2">制单人    
     </font>    
     </td>                                                                                                        
                                                                                                           
  </tr>                                                                                                       
                                                                                                       
     <% for n=1  to rsfk.pagesize%>                           
                                                                                                    
        <%if  n mod 2=1 then                           
            bg="#f7f7f7"                             
       else                           
            bg="#EDEBEC"                            
       end if%>                                                                                                         
  <tr bgcolor="<%=bg%>">                                                                     
      <%                   
               
     '找出产品的名称
     set rscp=Server.CreateObject("ADODB.RecordSet")
     sql="select ProdName from A_ProductInfo where Prodcode='"&rsfk("Prodcode")&"'"
     rscp.open sql,Pubconn,1
     if not rscp.eof then
        cpmc=rscp("Prodname")
     else
        cpmc=""
     end  if 
    
   '  response.write rsfk("zdr")&"--"&session("userid")             
      %>                                                                                              
                                                                                                       
    <td width="52" height="23" align="center"><font size="2"></font>    
     <input type="checkbox" name="xz" value="<%=N%>" <%if rsfk("zdr")<>session("UserID") then%> disabled  <%end if %>>  
     <input type="hidden" name="pid<%=n%>" value="<%=rsfk("ID")%>">  
    
      </td>                                                                                          
      <td width="130" height="23" align="center"><font size="2"><A HREF="E_returndetail.asp?ID=<%=rsfk("ID")%>"><%=rsfk("billID")%></A></td>                                                                                                     
      <td width="155" height="23" align="center"><font size="2"><%=khname(rsfk("ClientNum"))%>&nbsp;</td>         
     <td width="122" height="23" align="center"><font size="2"><%=cpmc%>&nbsp;</a>     
      </font>     
      </td>                                                                                                     
      <td width="90" height="23" align="center"><font size="2"></font><%=Pname(rsfk("zdr"))%>      
      </td>                                                                                                     
                
                                                                                                            
                                                                                          
                                                                                        
                                                                                                     
                                                                                                     
  </tr>                                                                                         
  <%                                                                                         
     rsfk.movenext                                                                                         
     if rsfk.eof then exit for                                                                                         
  next                                                                                         
  %>                                                                                                        
 </table>                                                                                                        
                                                                                       
<p align="center">                                                                                      
<font size="2">                                                                                                       
   共<%=rsfk.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; 
    <a href="E_returnbrow.asp?page=1&khxh=<%=khxh%>&djbh=<%=djbh%>">首页</a>&nbsp;<%if page>1 then %>                                                                                                                       
   <a href="E_returnbrow.asp?page=<%=(page-1)%>&khxh=<%=khxh%>&djbh=<%=djbh%>">上页</a>&nbsp;                                                                                                                      
   <% else%>                                                                                                                      
   上页&nbsp;                                                                                                                      
  <%  end if%>                                                                                                                      
    <%if page<rsfk.pagecount then %>                                                                                                                     
   <a href="E_returnbrow.asp?page=<%=(page+1)%>&khxh=<%=khxh%>&djbh=<%=djbh%>">下页</a>&nbsp;                                                                                                                      
   <% else %>                                                                                                                     
   下页&nbsp;                                                                                                                      
  <%end if%><a href="E_returnbrow.asp?page=<%=rsfk.pagecount%>&khxh=<%=khxh%>&djbh=<%=djbh%>">尾页</a>&nbsp;&nbsp;</font>                           
 <%%>                            
                         
                                                                                                                 
      <select  name="page1" style="width:80" size="1">                                     
                                           
                           
       <% for o=1 to rsfk.pagecount%>                                                            
           <option value="<%=o%>">第<%=o%>页</option>                           
       <%next%>                                                 
                                                         
      </select> <input type="button" value="GO" onclick="Gopage()"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">&nbsp;&nbsp;                                                                                                                    
  <p align="center">
 <input type="button" value="新增" onclick="location.href='E_return.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                 
                  
<input type="submit" value="删除"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                 
                  
 
 </form>                                                                                                                       
<%                  
rsfk.close                 
set rsfk=nothing                 
end if %>