<html xmlns="http://www.w3.org/1999/xhtml">
<!--#include file="../Inc/Conn.asp" -->
<!--#include file="../Inc/SK.Session.asp" -->
<!--#include file="../Inc/SK.Funtion.asp" -->
<!--#include file="../Inc/SK.PageClass.asp" -->
<%if Not (Getconfig("SK_Client")="0") then Call ReturnError()%>
<%
Set Page = new MyPages				'创建对象
Set Page.Conn = conn				'得到数据库连接对象
With Page
if Cint(F("PNum"))="" then
.PageSize=20		             '每页记录条数
else
.PageSize=Cint(F("PNum"))		'每页记录条数
end if
.PageParm = "P"					'页参数
'.PageIndex = 10				'当前页，可选参数，一般是生成静态时需要
.Database = "mssql"				'数据库类型,AC为access,MSSQL为sqlserver2000存储过程版,MYSQL为mysql,PGSQL为PostGreSql
.Table="SK_Client INNER JOIN SK_SystemUsers ON SK_Client.SK_SalesID=SK_SystemUsers.UsersID"
.Pkey="ClientID"			'主键
.Field="SK_Client.ClientID,SK_Client.SK_AreaID,SK_Client.SK_Di,SK_Client.SK_No,SK_Client.SK_Wname,SK_Client.SK_Jname,SK_Client.SK_SalesID,SK_Client.SK_Share"

'//搜索关键字开始
if F("AA")="1" AND F("Akey")<>"" then srt1=" AND SK_Client.SK_No Like '%"&F("Akey")&"%'"
if F("AA")="2" AND F("Akey")<>"" then srt1=" AND (SK_Client.SK_Wname Like '%"&F("Akey")&"%' OR SK_Client.SK_Jname Like '%"&F("Akey")&"%')"
if F("AA")="3" AND F("Akey")<>"" then srt1=" AND Datediff(day,SK_Client.SK_Atime,'"&F("Akey")&"')=0"
if F("AA")="4" AND F("Akey")<>"" then srt1=" AND (SK_Client.SK_Content Like '%"&F("Akey")&"%' OR SK_Client.SK_Status Like '%"&F("Akey")&"%' OR SK_Client.SK_Prospect Like '%"&F("Akey")&"%' OR SK_Client.SK_Plot Like '%"&F("Akey")&"%')"
if F("AA")="5" AND F("Akey")<>"" then srt1=" AND SK_SystemUsers.SK_Oname Like '%"&F("Akey")&"%'"

set RsField=server.createobject("adodb.recordset")
sqlField="SELECT * from SK_ClientFields where SK_Di=0 and SK_ShowOnForm=0 Order by SK_OrderID asc"
RsField.Open sqlField,conn,1,1
for Fieldi=5+1 to RsField.recordCount+5
if F("AA")=""&Fieldi&"" AND F("Akey")<>"" then srt1=" AND SK_Client."&RsField("SK_FieldName")&" Like '%"&F("Akey")&"%'"
RsField.movenext
next
RsField.close
set RsField=Nothing
'//搜索关键字结束

'//权限判断开始
if Session("Manager")=1 or Session("Manager")=2 then
.Condition="SK_Client.SK_Del=0 AND SK_Client.SK_Locked=0 AND SK_Client.SK_SalesID<>0"&srt1&""
elseif Session("Manager")=3 then
.Condition="SK_Client.SK_Del=0 AND SK_Client.SK_Locked=0 AND SK_Client.SK_SalesID<>0 AND SK_SystemUsers.SK_Dept1="&Session("Dept1")&""&srt1&""
elseif Session("Manager")=4 then
.Condition="SK_Client.SK_Del=0 AND SK_Client.SK_Locked=0 AND SK_Client.SK_SalesID<>0 AND SK_SystemUsers.SK_Dept1="&Session("Dept1")&" and SK_SystemUsers.SK_Dept2="&Session("Dept2")&""&srt1&""
elseif Session("Manager")=5 then
.Condition="SK_Client.SK_Del=0 AND SK_Client.SK_Locked=0 AND SK_Client.SK_SalesID<>0 AND SK_SystemUsers.SK_Dept1="&Session("Dept1")&" and SK_SystemUsers.SK_Dept2="&Session("Dept2")&" and SK_SystemUsers.SK_Dept3="&Session("Dept3")&""&srt1&""
elseif Session("Manager")=6 then
.Condition="SK_Client.SK_Del=0 AND SK_Client.SK_Locked=0 AND SK_Client.SK_SalesID<>0 AND SK_Client.SK_SalesID="&Session("UID")&""&srt1&""
end if
'//权限判断结束

'//指定排序条件开始
.OrderBy="SK_Client.ClientID Desc"

if F("BB")="0" AND F("PX")="1" then
.OrderBy="SK_Client.ClientID Asc"
elseif F("BB")="0" AND F("PX")="2" then
.OrderBy="SK_Client.ClientID Desc"
end if

if F("BB")="1" AND F("PX")="1" then
.OrderBy="SK_Client.SK_No Asc"
elseif F("BB")="1" AND F("PX")="2" then
.OrderBy="SK_Client.SK_No Desc"
end if

if F("BB")="2" AND F("PX")="1" then
.OrderBy="SK_Client.SK_Wname Asc"
elseif F("BB")="2" AND F("PX")="2" then
.OrderBy="SK_Client.SK_Wname Desc"
end if

if F("BB")="3" AND F("PX")="1" then
.OrderBy="SK_SystemUsers.SK_Oname Asc"
elseif F("BB")="3" AND F("PX")="2" then
.OrderBy="SK_SystemUsers.SK_Oname Desc"
end if
'//指定排序条件结束

.RecordCount = 0	'总记录数，可以外部赋值，0不保存（适合搜索），-1存为session，-2存为cookies，-3存为applacation
.NumericJump = 3 '数字上下页个数，可选参数，默认为3，负数为跳转个数，0为显示所有
.Template = "总记录数：{$RecordCount} 总页数：{$PageCount} 每页记录数：{$PageSize} 当前页数：{$PageIndex} {$FirstPage} {$PreviousPage} {$NumericPage} {$NextPage} {$LastPage} {$InputPage} {$SelectPage}" '整体模板，可选参数，有默认值
.FirstPage = "首页" '可选参数，有默认值
.PreviousPage = "上一页" '可选参数，有默认值
.NextPage = "下一页" '可选参数，有默认值
.LastPage = "尾页" '可选参数，有默认值
.NumericPage = " {$PageNum} " '数字分页部分模板，可选参数，有默认值
End With
rs = Page.ResultSet() '记录集
rc = Page.RowCount() '可选，输出总记录数
nav = Page.Nav() '分页样式
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<title>选择客户</title>
<META http-equiv=Page-Enter content=SKCRM>
<META http-equiv=Page-Exit content=SKCRM>
<META content="MSHTML 6.00.3790.2858" name=GENERATOR>
<LINK href="../images/style.css" type=text/css rel=stylesheet>
<script type="text/javascript" src="../Inc/Check.js"></script>
<script type="text/javascript" src="../Inc/Calendar.js"></script>
<style type="text/css">
<!--
body {
margin: 5px 0px 5px 0px;
overflow-x:hidden;
overflow-y:auto;
}
-->
</style>
</head>
<body>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<TBODY>
  <tr>
    <td class="SK_Td_Top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="12" height="25"><img src="../images/tab_03.gif" width="12" height="25" /></td>
        <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="46%" valign="middle">选择客户</td>
<td width="54%"></td>
</tr>
</table></td>
        <td width="16"><img src="../images/tab_07.gif" width="16" height="25" /></td>
      </tr>
    </table></td>
  </tr>
  <tr>
<td>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form method="Get">
<tr>
<td background="../images/tab_12.gif"></td>
<td>
<select name="AA" size="1">
<option value="1" <%if RQ("AA")=1 OR RQ("AA")="" then Response.Write("selected=""selected""")%>>客户编号</option>
<option value="2" <%if RQ("AA")=2 then Response.Write("selected=""selected""")%>>客户名称</option>
<option value="3" <%if RQ("AA")=3 then Response.Write("selected=""selected""")%>>录入日期</option>
<option value="4" <%if RQ("AA")=4 then Response.Write("selected=""selected""")%>>客户备注</option>
<option value="5" <%if RQ("AA")=5 then Response.Write("selected=""selected""")%>>业务人员</option>
<%
set RsFields=server.createobject("adodb.recordset")
sqlFields="SELECT * from SK_ClientFields where SK_Di=0 and SK_ShowOnForm=0 Order by SK_OrderID asc"
RsFields.Open sqlFields,conn,1,1
for Fieldsi=5+1 to RsFields.recordCount+5
%>
<option value="<%=Fieldsi%>" <%if RQ("AA")=""&Fieldsi&"" then Response.Write("selected=""selected""")%>><%=RsFields("SK_Title")%></option>
<%
RsFields.movenext
next
RsFields.close
set RsFields=Nothing
%>
</select> 
<input name="Akey" type="text" value="<%=F("Akey")%>" size="15">
 排序
<select name="BB" size="1">
<option value="0" <%if RQ("BB")=0 then Response.Write("selected=""selected""")%>>录入日期</option>
<option value="1" <%if RQ("BB")=1 OR RQ("BB")="" then Response.Write("selected=""selected""")%>>客户编号</option>
<option value="2" <%if RQ("BB")=2 then Response.Write("selected=""selected""")%>>客户名称</option>
</select>
<select name="PX" size="1">
<option value="2" <%if RQ("PX")=2 then Response.Write("selected=""selected""")%>> 降序</option>
<option value="1" <%if RQ("PX")=1 then Response.Write("selected=""selected""")%>> 升序</option>
</select>
 每页显示
<select name="PNum" size="1">
<option value="20" <%if RQ("PNum")=20 then Response.Write("selected=""selected""")%>>20</option>
<option value="25" <%if RQ("PNum")=25 then Response.Write("selected=""selected""")%>>25</option>
<option value="30" <%if RQ("PNum")=30 then Response.Write("selected=""selected""")%>>30</option>
<option value="40" <%if RQ("PNum")=40 then Response.Write("selected=""selected""")%>>40</option>
<option value="50" <%if RQ("PNum")=50 then Response.Write("selected=""selected""")%>>50</option>
<option value="60" <%if RQ("PNum")=60 then Response.Write("selected=""selected""")%>>60</option>
<option value="80" <%if RQ("PNum")=80 then Response.Write("selected=""selected""")%>>80</option>
<option value="100" <%if RQ("PNum")=100 then Response.Write("selected=""selected""")%>>100</option>
<option value="120" <%if RQ("PNum")=120 then Response.Write("selected=""selected""")%>>120</option>
<option value="150" <%if RQ("PNum")=150 then Response.Write("selected=""selected""")%>>150</option>
<option value="200" <%if RQ("PNum")=200 then Response.Write("selected=""selected""")%>>200</option>
<option value="300" <%if RQ("PNum")=300 then Response.Write("selected=""selected""")%>>300</option>
<option value="400" <%if RQ("PNum")=400 then Response.Write("selected=""selected""")%>>400</option>
<option value="500" <%if RQ("PNum")=500 then Response.Write("selected=""selected""")%>>500</option>
<option value="600" <%if RQ("PNum")=600 then Response.Write("selected=""selected""")%>>600</option>
<option value="800" <%if RQ("PNum")=800 then Response.Write("selected=""selected""")%>>800</option>
<option value="1000" <%if RQ("PNum")=1000 then Response.Write("selected=""selected""")%>>1000</option>
<option value="2000" <%if RQ("PNum")=2000 then Response.Write("selected=""selected""")%>>2000</option>
<option value="5000" <%if RQ("PNum")=5000 then Response.Write("selected=""selected""")%>>5000</option>
<option value="10000" <%if RQ("PNum")=10000 then Response.Write("selected=""selected""")%>>10000</option>
</select>
<input type="submit" name="go" value="查询" class="button1" />
</td>
<td background="../images/tab_15.gif"></td>
</tr>
</form>

<tr>
<td width="8" background="../images/tab_12.gif"></td>
<td>

<%
If IsNull(Rs) Then
response.write"对不起，没有你要的信息!"
else
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="b5d6e6">
<form name="thisForm" id="form1" method="post" action="">	  
<tr>
  <td width="10%" class="SK_Title">客户类型</td>
  <td width="12%" class="SK_Title">客户编号</td>
  <td width="58%" class="SK_Title">客户名称</td>
  <td width="10%" class="SK_Title">业务人员</td>
  <td width="10%" class="SK_Title">选择客户</td>
</tr>
<%For i=0 To Ubound(Rs,2)%>
<tr onMouseOver="changeto()" onMouseOut="changeback()">
<td <%if i mod 2 = 0 then%>class="SK_Text"<%else%>class="SK_Texttwo"<%end if%>><%if Rs(2,i)=0 then response.write"单位客户" else Response.write"个人客户" end if%></td>
<td <%if i mod 2 = 0 then%>class="SK_Text"<%else%>class="SK_Texttwo"<%end if%>><%=Rs(3,i)%></td>
<td <%if i mod 2 = 0 then%>class="SK_Text1"<%else%>class="SK_Text1two"<%end if%>><a href="javascript:void(0)" onClick="javascript:var win=window.open('SK.ReClient.asp?id=<%=Rs(0,i)%>','Read','width=820,height=400,top=170,left=161,center:yes,status:no,help:no,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=yes,scrollbars=yes'); win.focus()"><font color=red><%=Rs(4,i)%></font></a></td>
<td <%if i mod 2 = 0 then%>class="SK_Text"<%else%>class="SK_Texttwo"<%end if%>><%
set RsFuser=server.createobject("adodb.recordset")
SqlFuser="select * from SK_SystemUsers where UsersID="&Rs(6,i)&""
RsFuser.open SqlFuser,conn,1,1
Response.write"<font color=#999999>"&RsFuser("SK_OName")&"</font>"
RsFuser.close
Set RsFuser=Nothing
%></td>
<td <%if i mod 2 = 0 then%>class="SK_Text"<%else%>class="SK_Texttwo"<%end if%>><a onClick="window.opener.document.form1.S_ClientID.value='<%=Rs(0,i)%>';window.opener.document.form1.S_Client.value='<%=Rs(4,i)%>';window.close();" style="cursor:hand">选择此客户</a></td>
</tr>
<%next%>
</form>

<tr><td colspan="5" class="SK_Text"><%Response.Write nav%></td></tr>
</table>
<%
end if
%>
</td>
<td width="8" background="../images/tab_15.gif"></td>
</tr>
</table></td>
</tr>
<tr>
<td class="SK_Td_Foot">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="1%" height="20"><img src="../images/tab_18.gif" width="12" height="20" /></td>
<td width="98%" class="SK_Td_Page"></td>
<td width="1%"><img src="../images/tab_20.gif" width="16" height="20" /></td>
</tr>
</table>

</td>
</tr>
</TBODY>
</table>
</body>
<%
Page = Null
Set Page = Nothing
Call CloseDB()
%>
</html>