e_reinbrow.asp

一个很好的在线购物系统

     </p>                   
                   
    </td>                                                                   
                                                                        
    <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 rsts.eof then%>                      
<center><p>没有符合条件的记录！<br><input type="button" value="新增" onclick="location.href='E_rein.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                                                                                          
                                                                                          
rsts.pagesize=10                                                                                         
if page>=rsts.pagecount then                                                                                          
   page=rsts.pagecount                                                                                          
else                                                                                          
   if page<1 then                                                                                          
      page=1                                                                                          
   end if                                                                                          
end if                                                                                          
rsts.absolutepage=page                                                                                          
                                                                                           
%>                            
                                                                                         
 <form action="E_reindel.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 rsts.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='"&rsts("Prodcode")&"'"  
     rscp.open sql,Pubconn,1  
     if not rscp.eof then  
        cpmc=rscp("Prodname")  
     else  
        cpmc=""  
     end  if   
      
                    
      %>                                                                                                
                                                                                                         
    <td width="52" height="23" align="center"><font size="2"></font>      
     <input type="checkbox" name="xz" value="<%=N%>" <%if rsts("DisposePerson")<>session("userid") then%> disabled <%end if %>>    
     <input type="hidden" name="pid<%=n%>" value="<%=rsts("ID")%>">    
      
      </td>                                                                                            
      <td width="130" height="23" align="center"><font size="2"><A HREF="E_reindetail.asp?ID=<%=rsts("ID")%>"><%=rsts("billID")%></A>  
       </font>  
      </td>                                                                                                       
      <td width="155" height="23" align="center"><font size="2"><%=khname(rsts("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(rsts("DisposePerson"))%>        
      </td>                                                                                                       
                  
                                                                                                              
                                                                                            
                                                                                          
                                                                                                       
                                                                                                       
  </tr>                                                                                           
  <%                                                                                           
     rsts.movenext                                                                                           
     if rsts.eof then exit for                                                                                           
  next                                                                                           
  %>                                                                                                          
 </table>                                                                                                          
                                                                                         
<p align="center">                                                                                        
<font size="2">                                                                                                         
   共<%=rsts.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp;    
    <a href="E_reinbrow.asp?page=1&khxh=<%=khxh%>&djbh=<%=djbh%>">首页</a>&nbsp;<%if page>1 then %>                                                                                                                          
   <a href="E_reinbrow.asp?page=<%=(page-1)%>&khxh=<%=khxh%>&djbh=<%=djbh%>">上页</a>&nbsp;                                                                                                                         
   <% else%>                                                                                                                         
   上页&nbsp;                                                                                                                         
  <%  end if%>                                                                                                                         
    <%if page<rsts.pagecount then %>                                                                                                                        
   <a href="E_reinbrow.asp?page=<%=(page+1)%>&khxh=<%=khxh%>&djbh=<%=djbh%>">下页</a>&nbsp;                                                                                                                         
   <% else %>                                                                                                                        
   下页&nbsp;                                                                                                                         
  <%end if%><a href="E_reinbrow.asp?page=<%=rsts.pagecount%>&khxh=<%=khxh%>&djbh=<%=djbh%>">尾页</a>&nbsp;&nbsp;</font>                              
 <%%>                               
                            
                                                                                                                    
      <select  name="page1" style="width:80" size="1">                                        
                                              
                              
       <% for o=1 to rsts.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_rein.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>                                                                                                                          
<%                     
rsts.close                    
set rsts=nothing                    
end if %>