f_swhtreportsh.asp

一个很好的在线购物系统

              
           ><%="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>                                                                                        
                                                                                       
<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%">                                                                                                 
                                                                                                  
  <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("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")<>"4" then%><a href="F_swbgdetail.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_swhtReportsh.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_swhtReportsh.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_swhtReportsh.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_swhtReportsh.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;&nbsp;                 
               
                                       
 </form>            
                                                                                                       
<%          
htcx.close          
set htcx=nothing          
 end if %>                           
                        
                           
 </font>      
                        
                           
</body>