f_swbgbrow.asp

一个很好的在线购物系统

               %>    
    
               
           ><%=i%></option>                       
       <%next%>     
               
                                                             
      </select>日&nbsp; <input type="submit" value="查询" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >&nbsp; &nbsp;&nbsp;</font>                       
                       
    </td>                                                                                              
 </tr>                                                                                             
</table>                                                                                      
 </form>                                                                                      
 
<p align="center">
 <%                          
 if htcx.eof then%>                          
                  
<font size="2">无任何记录！ <a href="f_htjm.htm">返回</a>             
<p align="center">                       
&nbsp;                  
                
              
                             
 <%            
 response.end            
 else                                                                                               
   if request.querystring("page")<>"" then                                                                                              
   page=cint(request.querystring("page"))                                                                                             
else                                                                                             
   page=1                                                                                             
end if                                                                                             
                                                                                             
htcx.pagesize=10                                                                                            
if page>=htcx.pagecount then                                                                                             
   page=htcx.pagecount                                                                                             
else                                                                                             
   if page<1 then                                                                                             
      page=1                                                                                             
   end if                                                                                             
end if                                                                                             
htcx.absolutepage=page                                                                                             
                                                                                              
%>                               
                                                                                            
                                                                                                        
 <center>                                                            
                                                     
                                                                 
<div align="center">                     
 <center>                              
                                                                                           
                                                                                                       
<table border="1" cellspacing="0" width="100%" height="30" width="100%" width="100%">                                                                                               
  <form action="F_swbgdel.asp" name="form1" method="post">                                                                                                 
  <tr>                                                                                                               
                                                                                               
     <td width="69" height="24" align="center" width="122" bgcolor="#DDD2C4">                                                                                             
      　                    
     </td>                                                                                                             
    <td width="53" height="24" align="center" width="131" bgcolor="#DDD2C4">                                                                                           
     <font size="2">合同号            
     </font>            
     </td>                                                                                                           
    <td width="105" height="24" align="center" width="84" bgcolor="#DDD2C4">                                                                                          
     <font size="2">销售代表            
     </font>            
     </td>                                                                                                           
     <td width="83" height="24" align="center" width="98" bgcolor="#DDD2C4">                                                                                          
      <font size="2">签订日期            
      </font>            
     </td>                                                                                                           
                                                                                                              
    <td width="61" height="24" align="center" width="120" bgcolor="#DDD2C4">                                                                                          
     <font size="2">客户名称            
     </font>            
     </td>                                                                                                           
    <td width="104" height="24" align="center" width="146" bgcolor="#DDD2C4">                                                                                          
     <font size="2">合同状态            
     </font>            
     </td>                                                                                                           
                                                                                                             
    <td width="104" height="24" align="center" width="146" bgcolor="#DDD2C4">                                                                                          
     操作           
     </td>                                                                                                          
                                                                                                            
  </tr>                                                                                                        
                                                                                                        
   <% for n=1  to htcx.pagesize%>                            
        <%if  n mod 2=1 then                                  
            bg="#f7f7f7"                                    
       else                                  
            bg="#EDEBEC"                                   
       end if%>                                                                                                      
                                                                                                          
  <tr bgcolor="<%=bg%>">                                                                      
       <%                 
       '找出对应的客户名称与业务员名字                 
       set RSkh=server.createobject("adodb.recordset")                 
       sql="select *  from D_ClientInfo where ClientNum='"&htcx("ClientNum")&"'"                 
       RSkh.open sql,Pubconn,1                 
                        
       set RSywy=server.createobject("adodb.recordset")                 
       sql="select *  from A_StuffInfo where StuffNum='"&htcx("SaleDelegate")&"'"                 
       RSywy.open sql,Pubconn,1                 
                 
       %>                                                                                              
                                                                                                        
    <td width="69" height="23" align="center" width="122"><font size="2"></font>              
     <input type="checkbox" name="xz" value="<%=n%>" <%if ( htcx("Reportsh")<>"1" and  htcx("Reportsh")<>"2") or (ucase(htcx("Authors"))<>ucase(Session("Username"))) then%> disabled <%end if%>></td>         
     <input type="hidden" name="htID<%=n%>" value="<%=htcx("ID")%>">                                                                                          
      <td width="53" height="23" align="center" width="131"><font size="2"><a href="F_swbgdetail.asP?ID=<%=htcx("ID")%>&flag=liu"><%=htcx("Contractnum")%></A> </font></td>                    
                                                                                                        
      <td width="105" height="23" align="center" width="84"><font size="2"><%=RSywy("Name")%>                   
       </font>                   
    </td>                                                                                                     
      <td width="83" height="23" align="center" width="98"><font size="2"><%=htcx("signtime")%>                   
       </font>                   
    </td>                                                                                                     
      <td width="61" height="23" align="center" width="120"><font size="2"></font><%=rskh("ClientName")%></td>                                                                                                     
      <td width="104" height="23" align="center" width="146"><%           
      if htcx("Reportsh")="1" then           
         response.write ("未评审")           
      end if            
      if  htcx("Reportsh")="2"  then            
          response.write ("评审未通过")           
      end if           
      if  htcx("Reportsh")="3"  then           
          response.write ("正在评审")           
      end if                 
     if  htcx("Reportsh")="4"  then           
          response.write ("已评审")           
      end if              
      %></td>                                                                                                      
                         
                                                                                                          
                                                                                          
                                                                                        
                                                                                                     
                                                                                                     
      <td width="104" height="23" align="center" width="146"><font size="2"></font>         
                 
<font size="2">                                                                                          
     <% if htcx("Reportsh")="1" or htcx("Reportsh")="2" then%><a href="F_swbginput.asp?ID=<%=htcx("ID")%>&ywy=<%=htcx("SaleDelegate")%>"><%end if %>操作</a>         
       </font>         
                 
     </td>                                                                                                      
                         
                                                                                                          
                                                                                          
                                                                                        
                                                                                                     
                                                                                                     
  </tr>                                                                                         
  <%                                                                                         
     htcx.movenext                                                                                         
     if htcx.eof then exit for                                                                                         
  next                                                                                         
  %>                                                                                                        
 </table>                                                                                                        
                                                                                       
 </center>                 
</div>                 
                                                                                       
<p align="center">                                                                                      
<font size="2">                                                                                                       
   共<%=htcx.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; <a href="F_swbgbrow.asp?page=1&hth=<%=hth%>&year1=<%=year1%>&month1=<%=month1%>&date1=<%=date1%>&year2=<%=year2%>&month2=<%=month2%>&date2=<%=date2%>">首页</a>&nbsp;<%if page>1 then %>                                                                                                                           
   <a href="F_swbgbrow.asp?page=<%=(page-1)%>&hth=<%=hth%>&year1=<%=year1%>&month1=<%=month1%>&date1=<%=date1%>&year2=<%=year2%>&month2=<%=month2%>&date2=<%=date2%>">上页</a>&nbsp;                                                                                                                          
   <% else%>                                                                                                                          
   上页&nbsp;                                                                                                                          
  <%  end if%>                                                                                                                          
    <%if page<htcx.pagecount then %>                                                                                                                         
   <a href="F_swbgbrow.asp?page=<%=(page+1)%>&hth=<%=hth%>&year1=<%=year1%>&month1=<%=month1%>&date1=<%=date1%>&year2=<%=year2%>&month2=<%=month2%>&date2=<%=date2%>">下页</a>&nbsp;                                                                                                                          
   <% else %>                                                                                                                         
   下页&nbsp;                                                                                                                          
  <%end if%><a href="F_swbgbrow.asp?page=<%=htcx.pagecount%>&hth=<%=hth%>&year1=<%=year1%>&month1=<%=month1%>&date1=<%=date1%>&year2=<%=year2%>&month2=<%=month2%>&date2=<%=date2%>">尾页</a>&nbsp;&nbsp;</font>                               
 <%%>                                 
                               
                                                                                                                       
      <select  name="page1" style="width:80" size="1">                                          
                                                 
                                 
       <% for count=1 to htcx.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">                
   &nbsp; <a href="F_htjm.htm">返回</a>        
          
</center>        
          
<p align="center">          
 &nbsp;               
             
<!-- <input type="submit" value="删除"   class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">               
             -->
                                     
 </form>          
                                                                                                     
<%        
htcx.close        
set htcx=nothing        
 end if %>                         
                      
                         
 </font>    
                      
                         
</body>