client relation management system

				
				
				
								tid=request("tid")
				if  tid"" and tid"0"  then
				set rs=server.CreateObject("adodb.recordset")
				sql="select * from tb_Linkman where LinkmanClient="&tid&" order by id desc"
				rs.open sql,conn,1,1
				else
				set rs=server.CreateObject("adodb.recordset")
				sql="select * from tb_Linkman order by id desc"
				rs.open sql,conn,1,1
				end if
				
				set rsk=server.CreateObject("adodb.recordset")
				sqlk="select * from tb_Client order by id desc"
				rsk.open sqlk,conn,1,1
				
				%>
				
				
				
				无标题文档
				
				
								body,td,th {
					font-size: 12px;
				}
				body {
					background-color: #DFEEFF;
				}
				.style3 {color: #FFFFFF}
				-->
				
				
				function MM_jumpMenu(targ,selObj,restore){ //v3.0
				  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
				  if (restore) selObj.selectedIndex=0;
				}
				
				
				
				function HLItem(obj){
					obj.oldClassName=obj.className;
					obj.className="List";
				}
				function Re(obj){
				 obj.className=obj.oldClassName
				}
				
				
				
				
				  
				    	
				  
				  
				  Email管理  
				  发件人管理
				  
				    
				      
				        所属客户：
				        
						请选择客户名称
												if not rsk.eof then
						for i=1 to rsk.recordcount 
						%>
				          
												rsk.movenext
						next
						else
						response.Write("没有联系人信息，请添加")
						end if
						%>
				        
				        
				    
				    
				      
				         
				        联系人姓名
				        部门
				        职务
				        手机
				        E-mail
				      
				      						  if not rs.eof then
						  tol=rs.recordcount
						  rs.pagesize=15
						  maxpage=rs.pagecount
						  requestpage=clng(request("p"))
						  if requestpage="" or requestpage=0 then
						  requestpage=1
						  end if
						  if requestpage>maxpage then
						  requestpage=maxpage
						  end if
						  if requestpage1 then
						  rs.move (requestpage-1)*rs.pagesize
						  end if
						  for i=1 to rs.pagesize and not rs.eof 
						  if i mod 2=1 then
						  bg="#FFFFFF"
						  else
						  bg="#efefef"
						  end if
						  %>
				      
				        
				        
				        
				        
				        
				        
				      
				      						  	rs.movenext
							if rs.eof then exit for
							next
							else
							response.Write("没有客户信息，请添加")
							end if
						  %>
				    
				    
				      
				        
				          
				        
						
						首页 上一页 下一页 最后一页 
												else
						%>
								首页 上一 下一 最后一页 
						
						当前页： 总页数： 总条数： 
						每页显示15条信息