g_execdetail.asp

一个很好的在线购物系统

       loop                                                             
      set rst=nothing                                                             
        %>                                                             
                                                              
      </select>&nbsp;&nbsp;&nbsp;&nbsp;</td>       
  <td width="149" bgcolor="#F1E8DA">&nbsp;&nbsp;<a href="G_execshbrow.asp">查看历史评语</a>&nbsp;  </td>             
 </tr>          
      <tr>          
      <td width="73" bgcolor="#F1E8DA">           
           
       <p align="right" >          
       客户序号         
         
       </p>         
         
    </td>         
      <td width="152"  bgcolor="#F1E8DA">         
      <input type="text" name="khxh" size="14" value="<%=khxh%>" onkeyup="khxx()">    
      <input type="button" value="..." onclick="kh()"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" ></td>        
       <td width="73" bgcolor="#F1E8DA">         
        
        <p align="right">       
 客户名称       
       
        </p>       
       
 </td>       
       <td width="163" bgcolor="#F1E8DA">        
       
      <input type="text" name="khmc" size="24" value="<%=khmc%>"  readonly  style="background-color: #edefef" >        
        
    </td>        
    <td width="149" bgcolor="#F1E8DA">           
      <input type="submit" value="查询" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1"  >                
           
    </td>         
                                                                                   
 </tr>                                                                                 
</table>                                                                          
                                                                              
                                                                           
 <%            
 if RSty.eof then%>            
<center><p>没有符合条件的记录！&nbsp; <a href=G_mainexec.asp>返回</a></center>            
           
 <%else          
'若有数据时，则分页                                                                              
   if request.querystring("page")<>"" then                                                                               
   page=cint(request.querystring("page"))                                                                              
else                                                                              
   page=1                                                                              
end if                                                                              
                                                                              
RSty.pagesize=9                                                                             
if page>=RSty.pagecount then                                                                              
   page=RSty.pagecount                                                                              
else                                                                              
   if page<1 then                                                                              
      page=1                                                                              
   end if                                                                              
end if                                                                              
RSty.absolutepage=page                                                                              
                                                                               
%>                
                                                                             
                                                                                         
<table border="1" cellspacing="0" width="100%" height="30">                                                                                 
                                                                                       
  <tr>                                                                                                 
                                                                                 
     <td width="69" height="24" align="center" bgcolor="#DDD2C4">                                                                               
      <font size="2">计划跟进日期                                                                               
      </font>                                                                               
     </td>                                                                                                 
    <td width="53" height="24" align="center" bgcolor="#DDD2C4">                                                                               
     <font size="2">星期                                                                               
     </font>                                                                               
     </td>                                                                                                
    <td width="105" height="24" align="center" bgcolor="#DDD2C4">                                                                               
     <font size="2">跟进时间                                                                               
     </font>                                                                               
     </td>                                                                                                
     <td width="83" height="24" align="center" bgcolor="#DDD2C4">                                                                               
      <font size="2">跟进客户                                                                               
      </font>                                                                               
     </td>                                                                                                
                                                                                                   
    <td width="61" height="24" align="center" bgcolor="#DDD2C4">                                                                               
     <font size="2">跟进对象                                                                               
     </font>                                                                               
     </td>                                                                                                
    <td width="104" height="24" align="center" bgcolor="#DDD2C4">                                                                               
     <font size="2">职务                                                                               
     </font>                                                                               
     </td>                                                                                                
     <td width="82" height="24" align="center" bgcolor="#DDD2C4">                                                                               
      <font size="2">跟进方式                                                                               
      </font>                                                                               
     </td>                                                                                                
                                                                                                   
     <td width="82" height="24" align="center" bgcolor="#DDD2C4">           
      <font size="2">跟进目的          
      </font>          
     </td>                                                                                               
                                                                                                  
     <td width="82" height="24" align="center" bgcolor="#DDD2C4">          
      <font size="2">执行情况          
      </font>          
     </td>                                                                                               
                                                                                                  
  </tr>                                                                                              
                                                                                              
     <% for n=1  to RSty.pagesize%>                  
                                                                                           
       <%if  n mod 2=1 then                       
            bg="#f7f7f7"                         
       else                       
            bg="#EDEBEC"                        
       end if%>                                                                                                       
  <tr  bgcolor="<%=bg%>">                                                            
                                                                                           
                                                                                              
    <td width="69" height="23" align="center"><font size="2"></font><%=RSty("CloseDate")%></td>                                                                                 
      <td width="53" height="23" align="center"><font size="2"><%show(RSty("PlanWeek"))%>          
       </font>          
    </td>                                                                                            
      <td width="105" height="23" align="center"><font size="2"><%=RSty("CloseTime")%>          
       </font>          
    </td>          
                                                                                      
      <td width="83" height="23" align="center"><font size="2"><a Href="G_ClientInfo.asp?ClientID=<%=Rsty("ClientNum")%>" ><%=khname(Rsty("ClientNum"))%></a>          
       </font>          
    </td>                                                                                            
      <td width="61" height="23" align="center"><font size="2"></font><%      
      if RSty("LinkMan")="" then     
         response.write "&nbsp;"     
      else     
         response.write  RSty("LinkMan")     
      end if %></td>                                                                                            
      <td width="104" height="23" align="center"><font size="2"></font><%      
      if  RSty("ObjectDuty")="" then      
          response.write "&nbsp;"      
      else      
          response.write RSty("ObjectDuty")      
      end if       
     %></td>                                                                                             
      <td width="82" height="23" align="center"><font size="2"></font><%=RSty("CloseMode")%></td>                                                                                             
      <td width="82" height="23" align="center"><font size="2"><%=RSty("ClosePurpose")%>          
       </font>          
    </td>                                                                                             
                                                    
      <td width="82" height="23" align="center"><font size="2"></font>          
      <%if RSty("ExecYN")="Y"  then%>          
         <a href="G_execbrow.asp?ID=<%=Rsty("ID")%>&wid=<%=wid%>&sid=<%=sid%>">已执行</a>          
      <%else          
          response.write ("未执行")          
        end if %></td>           
                
                                                                                                 
                                                                                 
                                                                               
                                                                                            
                                                                                            
  </tr>                                                                                
  <%                                                                                
     RSty.movenext                                                                                
     if RSty.eof then exit for                                                                                
  next                                                                                
  %>                                                                                               
 </table>                                                                                               
                                                                              
<p align="center">                                                                             
<font size="2">                                                                                              
   共<%=RSty.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; <a href="G_execdetail.asp?page=1&weekid=<%=wid%>&txtstuff=<%=sid%>&khxh=<%=khxh%>"">首页</a>&nbsp;<%if page>1 then %>                                                                                                              
   <a href="G_execdetail.asp?page=<%=(page-1)%>&weekid=<%=wid%>&txtstuff=<%=sid%>&khxh=<%=khxh%>"">上页</a>&nbsp;                                                                                                             
   <% else%>                                                                                                             
   上页&nbsp;                                                                                                             
  <%  end if%>                                                                                                             
    <%if page<RSty.pagecount then %>                                                                                                            
   <a href="G_execdetail.asp?page=<%=(page+1)%>&weekid=<%=wid%>&txtstuff=<%=sid%>&khxh=<%=khxh%>"">下页</a>&nbsp;                                                                                                             
   <% else %>                                                                                                            
   下页&nbsp;                                                                                                             
  <%end if%><a href="G_execdetail.asp?page=<%=RSty.pagecount%>&weekid=<%=wid%>&txtstuff=<%=sid%>&khxh=<%=khxh%>"">尾页</a>&nbsp;&nbsp;</font>                  
 <%%>                   
                
                                                                                                        
      <select  name="page1" style="width:80" size="1">                            
                                  
                  
       <% for o=1 to RSty.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" > <font size="2">&nbsp;&nbsp; 
<a href="javascript:window.print()">打印</a>&nbsp;&nbsp;&nbsp; <a href="G_mainexec.asp">返回</a>                                                                                                             
</font>                                                                                                            
 </form>                                                                                                               
<%      
        
   RSty.close      
   set RSty=nothing      
      
 end if %>           
           
</body>