igamebox
/
mtb_crm_asp


			
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178
							<!--#include file="Conn.asp"--><%Checklogin()%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>管理区域</title>
<link rel="stylesheet" href="css/common.css" type="text/css" />
<link rel="stylesheet" href="css/alert.css" type="text/css" />
<script language="javascript" src="system/js/jquery-1.7.2.min.js"></script>
<script type="text/javascript" src="js/js.js"></script>
<script>
function goSearch(){

	var keys=document.getElementById("keys").value;
	var myselect=document.getElementById("searcheType");
	var index=myselect.selectedIndex;
	var searcheType=myselect.options[index].value;
	location.href='?Keys='+escape(keys)+'&searcheType='+searcheType;
	
}
function keyDownSearch(){
     var e = window.event || event;
     if (e.keyCode == 13) {
		var keys=document.getElementById("keys").value;
		var myselect=document.getElementById("searcheType");
		var index=myselect.selectedIndex;
		var searcheType=myselect.options[index].value;
		location.href='?Keys='+escape(keys)+'&searcheType='+searcheType;
     }	
}

</script>
</head>
<body class="clear">
<!--#include file="panel.asp"-->
<%
	Set Rs=Server.CreateObject("ADODB.RecordSet")
	Page = Request.QueryString("Page")
	Keys=Request.QueryString("Keys")
	Keyscode=TextEnCode(Keys)
	searcheType=Request.QueryString("searcheType")
	
Select Case searcheType
Case "1": filterStr="where originalEmp like '%"&Keyscode&"%'"
Case "2": filterStr="where newEmp like '%"&Keyscode&"%'"
Case "3": filterStr="where oldCode like '%"&Keyscode&"%'"
Case "4": filterStr="where cs_id in (select id from customer where cs_code like '%"&Keyscode&"%')"
Case Else:filterStr=""
End Select


%>
<div id="man_zone">
	<form id="form1" method="post" action="?Keys=<%=Keyscode%>&Page=<%=Page%>&searcheType="<%=searcheType%> onSubmit="return false"  >
	<div class="fastSelect clear">
		<H1>搜索条件</H1>
		<div class="inputSearch">
			<select name="searcheType" id="searcheType">
				<option value="">未筛选</option>			
				<option value="1" <%If StrComp(searcheType,"1")=0 Then response.write "Selected=""Selected"""%>>原属业务员</option>
				<option value="2" <%If StrComp(searcheType,"2")=0 Then response.write "Selected=""Selected"""%>>新跟进业务员</option>
				<option value="3" <%If StrComp(searcheType,"3")=0 Then response.write "Selected=""Selected"""%>>原编号</option>
				<option value="4" <%If StrComp(searcheType,"4")=0 Then response.write "Selected=""Selected"""%>>新编号</option>				
			</select>
			<input type="text" id="keys" class="inputTxt" value="<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>" onFocus="if(this.value == '<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>'){this.value='';}" onBlur="if(this.value == ''){this.value='<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>';}" onKeyDown="keyDownSearch();" /><input type="button" id="searchgo" class="searchgo" value="go" onClick="goSearch();" />
		</div>
	</div>
		
	<table class="teamStatistics table1" border="1px" bordercollapse="collapse" cellspacing="0" cellpadding="5" bordercolor="#DDD">
		<tr  class="theader">
			<th>序号</th>
			<th>时间</th>
			<th>记录</th>
			<th>新编号</th>
		</tr>
		<tbody>
		<%
		 
		 Set Rs1=Server.CreateObject("ADODB.RecordSet")
		 Rs.Open "Select * from claimRecord "&filterStr&" order by claimTime DESC" ,Conn,1,1
			If Not Rs.Bof And Not Rs.Eof Then
				Rs.PageSize = 20
				If Page = "" Then Page = 1
				If Page = "end" Then Page = Rs.PageCount
				If Not IsNumeric(Page) Or Page < 1 Then Page = 1
				Page = Cint(Page)
				If Page > Rs.PageCount Then Page = Rs.PageCount
				Rs.AbsolutePage = Page
				TempNum = Rs.PageSize * (Page - 1)
					For i=1 To Rs.PageSize
					If Rs.Bof Or Rs.Eof Then Exit For
					TempNum=TempNum+1:classid=Rs(1)
			%>	
				<tr>
				<td><%=TempNum%></td>
				<td><%=Rs("claimTime")%></td>
				<td><span style="color:#0099CC;"><%=Rs("newEmp")%></span> 认领了 <span style="color:#0099CC;"><%=Rs("originalEmp")%> </span>的客户（<%=Rs("oldCode")%>)</td>	
				<td><%
					Rs1.Open "Select cs_code from customer where id="&Rs("cs_id"),conn,1,1
						If Not Rs1.bof and Not Rs1.eof Then
						  Response.write Rs1("cs_code")
						End If
					Rs1.close
				%>
				</td>	
				</tr>
			<%
					Rs.moveNext
					Next
			Else
			%>
				<tr>
					<td colspan="4">当前暂无认领记录</td>
				</tr>				
			<%
			End If

		%>
		</tbody>
		<tfoot>
		<tr>
			<td colspan=4>
				<div class="showpagebox">
				<%
					If Rs.PageCount > 1 Then
						PageName="?Keys="&Keys&urlStr&"&searcheType="&searcheType&"&"
						Pagelen=3
						If Page>1 Then
							Response.Write "<a href="""&PageName&"Page=1"">首页</a>"
							Response.Write "<a href="""&PageName&"Page="&Page-1&""">上一页</a>"
						End If

						If Pagelen*2+1 >= Rs.PageCount Then
							StartPage=1:EndPage=Rs.PageCount
						Else
							If Page<=Pagelen+1 Then
								StartPage=1
								EndPage=Pagelen*2+1
							Else
								StartPage=Page-Pagelen
								EndPage=Page+Pagelen
							End If
							If Page+Pagelen>Rs.PageCount Then StartPage=Rs.PageCount-Pagelen*2:EndPage=Rs.PageCount
						End If

						For i = StartPage To EndPage
							If i = Page Then
								Response.Write "<a class=""current"">"&i&"</a>"
							Else
								Response.Write "<a href="""&PageName&"Page="&i&""">"&i&"</a>"
							End If
						Next

						If Page<Rs.PageCount Then
							If Rs.PageCount - Page > Pagelen Then Response.Write "<a href="""&PageName&"Page="&Rs.PageCount&""">..."&Rs.PageCount&"</a>"
							Response.Write "<a href="""&PageName&"Page="&Page+1&""">下一页</a>"
							Response.Write "<a href="""&PageName&"Page="&Rs.PageCount&""">尾页</a>"
						End If


					End If
					Rs.close
				%>	
				</div>
			</td>				
		</tr>
		</tfoot>
	</table>
	</form>
	<%
	Set Rs1=Nothing
	Set Rs=Nothing
	Conn.Close
	Set Conn=Nothing%>
</div>
</body>
</html>