f_swhtshbrow.asp

一个很好的在线购物系统

      </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" >&nbsp; &nbsp;&nbsp;</font>                        
                        
    </td>                                                                                               
 </tr>                                                                                              
</table>                                                                                       
 </form>                                                                                       
 
<p align="center">
 <%                           
 if htcx.eof then%>                           
                   
<font size="2">无任何记录！&nbsp; <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_swhtdel.asp" name="form1" method="post">                                                                                                  
  <tr>                                                                                                                
                                                                                                
    <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                  
                  
       %>                                                                                               
                                                                                                         
       <input type="hidden" name="htID<%=n%>" value="<%=htcx("ID")%>">                                                                                           
      <td width="53" height="23" align="center" width="131"><font size="2"><%=htcx("Contractnum")%> </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("YesorNo")="1" then            
         response.write ("未评审")            
      end if             
      if  htcx("YesorNo")="2"  then             
          response.write ("评审未通过")            
      end if            
      if  htcx("YesorNo")="3"  then            
          response.write ("正在评审")            
      end if                  
      if  htcx("YesorNo")="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("YesorNo")<>"4" then%><a href="F_swhtbrow1.asp?ID=<%=htcx("ID")%>"><%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_swhtshbrow.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_swhtshbrow.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_swhtshbrow.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_swhtshbrow.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>         
           
<p>           
 &nbsp;                 
               
                                       
 </form>           
                                                                                                      
<%         
htcx.close         
set htcx=nothing         
 end if %>                          
                       
                          
 </font>     
                       
                          
</center>     
                       
                          
</body>