d_acceptrecord.asp

一个很好的在线购物系统

      </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                                                                                          
                   line=cint(line)+1%>                  
             <%if  i mod 2 =0 then%>                
                <%backcolor="ffffDf"%>                
             <%else%>                                   
                 <%backcolor="#E2F2EE"%>                
             <%end if%>                                            
                      <tr bgcolor=<%=backcolor%>>                                                                                                                                                                                                                                                                  
    <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>      
    <%   
    '找出对应的客户名称   
    Set myrst=Server.CreateObject("ADODB.RecordSet")   
    sql="select *  from D_ClientInfo where ClientNum='"&RSty("ClientNum")&"'"   
    myrst.open sql,Pubconn,1   
    %>                                                                                     
      <td width="83" height="23" align="center"><font size="2"><%=myrst("ClientName")%>  
       </font>      
    </td>                                                                                        
      <td width="61" height="23" align="center"><font size="2"></font><%=RSty("LinkMan")%></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      
         response.write("已执行")  
      else      
          response.write ("未执行")      
        end if %></td>       
            
                                                                                             
                                                                             
                                                                           
                                                                                        
                                                                                        
  </tr>                                                                            
  <%                                                                            
     RSty.movenext                                                                            
     if RSty.eof then exit for                                                                            
  next                                                                            
  %>                                                                                           
 </table> <br><br><hr>                                                                                          
                                                                          
                                                                                        
<font size="2">                                                                                          
                                                                          
                                                                                        
   共<%=RSty.pagecount%>页&nbsp; 第<%=page%>页&nbsp&nbsp  &nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp    
&nbsp&nbsp    
&nbsp&nbsp&nbsp&nbsp   <a href="D_acceptrecord.asp?index=<%=request("index")%>&page=1&weekid=<%=wid%>&txtstuff=<%=sid%>&par_id=<%=request("par_id")%>&page1=<%=request("page1")%>&par_type=<%=request("par_type")%>&par_level=<%=request("par_level")%>">首页</a>&nbsp;<%if page>1 then %>                                                                                                            
   <a href="D_acceptrecord.asp?index=<%=request("index")%>&page=<%=(page-1)%>&weekid=<%=wid%>&txtstuff=<%=sid%>&par_id=<%=request("par_id")%>&page1=<%=request("page1")%>&par_type=<%=request("par_type")%>&par_level=<%=request("par_level")%>">上一页</a>&nbsp;                                                                                                           
   <% else%>                                                                                                         
   上一页&nbsp;                                                                                                           
  <%  end if%>                                                                                                         
    <%if page<RSty.pagecount then %>                                                                                                          
   <a href="D_acceptrecord.asp?index=<%=request("index")%>&page=<%=(page+1)%>&weekid=<%=wid%>&txtstuff=<%=sid%>&par_id=<%=request("par_id")%>&page1=<%=request("page1")%>&par_type=<%=request("par_type")%>&par_level=<%=request("par_level")%>">下一页</a>&nbsp;                                                                                                           
   <% else %>                                                                                                        
   下一页&nbsp;                                                                                                           
  <%end if%><a href="D_acceptrecord.asp?index=<%=request("index")%>&page=<%=RSty.pagecount%>&weekid=<%=wid%>&txtstuff=<%=sid%>&par_id=<%=request("par_id")%>&page1=<%=request("page1")%>&par_type=<%=request("par_type")%>&par_level=<%=request("par_level")%>">尾页</a></font>             
              
        &nbsp&nbsp  &nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp <select  name="page11">                                                               
       <% for o=1 to RSty.pagecount%>                                               
         <option value=<%=o%>><%=o%></option>                      
       <%next%>                                                                                              
      </select> <input type="button" value="GO" onclick="Gopage()">                                                                                                    
       
 </form>                                                                                                            
<%   
   myrst.close   
   set myrst=nothing   
   RSty.close   
   set RSty=nothing   
   
 end if %>        
        
<%if request("index")="true" then%>     
<center><a href="D_khindexsubfrm.asp?tag=2&page1=<%=request("page1")%>&par_id=<%=request("par_id")%>&par_name=<%=request("par_name")%>&par_level=<%=request("par_level")%>&par_type=<%request("par_type")%>"><font
size="2">返回</font></a><font size="2"></center>        
<%else%>    
 <a href="D_khsubfrm.asp?tag=2&page1=<%=request("page1")%>&par_id=<%=request("par_id")%>&par_name=<%=request("par_name")%>&par_level=<%=request("par_level")%>&par_type=<%request("par_type")%>">返回</a></font>          
<%end if%>   
</body>