<!--#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" />
<script language="javascript" src="js/jquery-1.7.2.min.js"></script>
<script type="text/javascript" src="js/js.js"></script>
<script type="text/javascript" src="xheditor-1.1.9/xheditor-1.1.9-zh-cn.min.js"></script>
<script>
$(document).ready(function(){
$('.txt2').xheditor({
tools:'full',hoverExecDelay:-1,urlBase:'system/',//urlType:'root',//plugins:allPlugin,
upLinkUrl:"upload.asp",upLinkExt:"zip,rar,txt,pdf",
upImgUrl:"upload.asp",upImgExt:"jpg,jpeg,gif,png",
upFlashUrl:"upload.asp",upFlashExt:"swf",
upMediaUrl:"upload.asp",upMediaExt:"wmv,avi,wma,mp3,mid"//,loadCSS:'css/edit.css'
});
});
</script>
</head>
<body>
<div id="man_zone">
<%
Act = Request.QueryString("act")
If act = "save" Then
Set Rs = Server.CreateObject("ADODB.RecordSet")
isedit = False
id = Request.Form("id")
If id<>"" And IsNumeric(id) Then isedit = True
cs_code=TextEnCode(Request.Form("cs_code"))
cs_company=TextEnCode(Request.Form("cs_company"))
cs_name=TextEnCode(Request.Form("cs_name"))
cs_belong=Request.Form("cs_belong")
cs_country=Request.Form("cs_country")
cs_from=Request.Form("cs_from")
cs_tel=TextEnCode(Request.Form("cs_tel"))
cs_email=TextEnCode(Request.Form("cs_email"))
cs_whatsapp=TextEnCode(Request.Form("cs_whatsapp"))
cs_wechat=TextEnCode(Request.Form("cs_wechat"))
cs_linkedin=TextEnCode(Request.Form("cs_linkedin"))
cs_facebook=TextEnCode(Request.Form("cs_facebook"))
cs_alibaba=TextEnCode(Request.Form("cs_alibaba"))
cs_state=Request.Form("cs_state")
cs_deal=Request.Form("cs_deal")
no_content=HtmlEnCode(Request.Form("no_content"))
allowedit=Request.Form("allowedit")
IF allowedit<>1 Then allowedit=0
If isedit Then
Rs.Open "Select * From customer Where id="&id,Conn,1,3
If Not Rs.bof and Not Rs.eof Then
Rs("cs_code") = cs_code
Rs("cs_company") = cs_company
Rs("cs_name")=cs_name
Rs("cs_belong") = cs_belong
Rs("cs_country")=cs_country
Rs("cs_from") = cs_from
Rs("cs_tel")=cs_tel
Rs("cs_email")=cs_email
Rs("cs_whatsapp")=cs_whatsapp
Rs("cs_wechat")=cs_wechat
Rs("cs_linkedin")=cs_linkedin
Rs("cs_facebook")=cs_facebook
Rs("cs_alibaba")=cs_alibaba
Rs("cs_state") = cs_state
Rs("cs_deal")=cs_deal
Rs("cs_note")=no_content
Rs("allowedit")=allowedit
myArray=split(Rs("cs_chain"),",")
myLen=UBound(myArray)
Litem=myArray(myLen)
IF Litem+0<>cs_belong+0 Then
Rs("cs_chain")=Rs("cs_chain")&","&cs_belong
End If
Rs.Update:Rs.Close
Page = Request.QueryString("Page")
Keys=Server.UrlEnCode(Request.QueryString("Keys"))
Response.Redirect "?keys="&Keys&"&Page="&Page&urlStr
Set Rs=Nothing:Conn.Close:Set Conn=Nothing
Else
Response.write "<script>alert('不存在该客户');history.back();</script>"
Rs.close
Set Rs=Nothing
Conn.close
Set Conn=Nothing
Response.End
End If
End If
Conn.Close:Set Conn=Nothing
Response.End
End If 'end save
If Act = "edit" Then
id = Request.QueryString("id")
isedit = False
If id<>"" And IsNumeric(id) Then isedit=True
If isedit Then
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "Select * From customer Left Join myNote on customer.cs_code=myNote.c_code Where customer.id="&id,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
cs_code=TextUnCode(Rs("cs_code"))
cs_company=TextUnCode(Rs("cs_company"))
cs_name=TextUnCode(Rs("cs_name"))
cs_country=Rs("cs_country")
cs_from=Rs("cs_from")
cs_tel=TextUnCode(Rs("cs_tel"))
cs_telBu=TextUnCode(Rs("cs_telBu"))
cs_Wechat=TextUnCode(Rs("cs_Wechat"))
cs_WechatBu=TextUnCode(Rs("cs_WechatBu"))
cs_Whatsapp=TextUnCode(Rs("cs_Whatsapp"))
cs_WhatsappBu=TextUnCode(Rs("cs_WhatsappBu"))
cs_email=TextUnCode(Rs("cs_email"))
cs_emailBu=TextUnCode(Rs("cs_emailBu"))
cs_linkedin=TextUnCode(Rs("cs_linkedin"))
cs_linkedinBu=TextUnCode(Rs("cs_linkedinBu"))
cs_facebook=TextUnCode(Rs("cs_facebook"))
cs_facebookBu=TextUnCode(Rs("cs_facebookBu"))
cs_alibaba=TextUnCode(Rs("cs_alibaba"))
cs_alibabaBu=TextUnCode(Rs("cs_alibabaBu"))
cs_address=TextUnCode(Rs("cs_address"))
cs_addtime=Rs("cs_addtime")
cs_updatetime=Rs("cs_updatetime")
cs_belong=Rs("cs_belong")
cs_state=Rs("cs_state")
cs_deal=Rs("cs_deal")
cs_note=HtmlUnCode(Rs("cs_note"))
allowedit=Rs("allowedit")
Else
isedit = False
End If
Rs.Close:Set Rs=Nothing
End If
Page = Request.QueryString("Page")
Keys=Server.UrlEnCode(Request.QueryString("Keys"))
Ord=Server.UrlEnCode(Request.QueryString("Ord"))
hrefstr = "?keys="&Keys&"&Page="&Page&"&Ord="&Ord
%>
<form name="form1" method="post" action="<%=hrefstr%>&act=save">
<table width="100%" border="0" cellpadding="3" cellspacing="1" class="table1">
<tbody>
<tr>
<th width="8%">客户编号</th>
<td ><input type="text" id="cs_code" name="cs_code" value="<%=cs_code%>" class="txt1" /><input type="hidden" name="id" value="<%=id%>" /></td>
</tr>
<tr>
<th width="8%">公司名称</th>
<td ><input type="text" id="cs_company" name="cs_company" value="<%=cs_company%>" class="txt1" /></td>
</tr>
<tr>
<th width="8%">联系人</th>
<td ><input type="text" id="cs_name" name="cs_name" value="<%=cs_name%>" class="txt1" /></td>
</tr>
<tr>
<th width="8%">所属业务</th>
<td ><select name="cs_belong">
<option value="0">请选择</option>
<%
Set Rs1=Server.CreateObject("ADODB.RecordSet")
Rs1.Open "Select id,em_user from employee",conn,1,1
Do while Not Rs1.bof and Not Rs1.eof
%>
<option value="<%=Rs1("id")%>" <%If Rs1("id")=cs_belong Then Response.write "Selected=""Selected""" End If%>><%=Rs1("em_user")%></option>
<%
Rs1.moveNext
loop
Rs1.close
%>
</select>
</td>
</tr>
<tr>
<th width="8%">国家</th>
<td ><select name="cs_country" >
<option value="0">请选择</option>
<%
Set Rs1=Server.CreateObject("ADODB.RecordSet")
Rs1.Open "Select id,countryCode,countryName from country",conn,1,1
Do while Not Rs1.bof and Not Rs1.eof
%>
<option value="<%=Rs1("id")%>" <%If Rs1("id")=cs_country Then Response.write "Selected=""Selected""" End If%>><%=Rs1("countryName")%></option>
<%
Rs1.moveNext
loop
Rs1.close
%>
</select>
</td>
</tr>
<tr>
<th width="8%">来源</th>
<td ><select name="cs_from" >
<option value="0">请选择</option>
<%
Set Rs1=Server.CreateObject("ADODB.RecordSet")
Rs1.Open "Select id,ch_name from qudao",conn,1,1
Do while Not Rs1.bof and Not Rs1.eof
%>
<option value="<%=Rs1("id")%>" <%If Rs1("id")=Cint(cs_from) Then Response.write "Selected=""Selected""" End If%>><%=Rs1("ch_name")%></option>
<%
Rs1.moveNext
loop
Rs1.close
%>
</select>
</td>
</tr>
<tr>
<th width="8%">录入时间</th>
<td ><%=cs_addtime%></td>
</tr>
<tr>
<th width="8%">更新时间</th>
<td ><%=cs_updatetime%></td>
</tr>
<tr>
<th width="8%" rowspan="7">联系方式</th>
<td><input type="text" id="cs_tel" name="cs_tel" value="<%=cs_tel%>" class="txt5 tel" />备份:<%=cs_telbu%></td>
</tr>
<tr>
<td><input type="text" id="cs_email" name="cs_email" value="<%=cs_email%>" class="txt5 mail" />备份:<%=cs_emailBu%></td>
</tr>
<tr>
<td><input type="text" id="cs_whatsapp" name="cs_whatsapp" value="<%=cs_whatsapp%>" class="txt5 whatsapp" />备份：<%=cs_whatsappBu%></td>
</tr>
<tr>
<td><input type="text" id="cs_wechat" name="cs_wechat" value="<%=cs_wechat%>" class="txt5 wechat" />备份：<%=cs_wechatBu%></td>
</tr>
<tr>
<td><input type="text" id="cs_linkedin" name="cs_linkedin" value="<%=cs_linkedin%>" class="txt5 linkedin" />备份：<%=cs_linkedinbu%></td>
</tr>
<tr>
<td><input type="text" id="cs_facebook" name="cs_facebook" value="<%=cs_facebook%>" class="txt5 facebook" />备份：<%=cs_facebookBu%></td>
</tr>
<tr>
<td><input type="text" id="cs_alibaba" name="cs_alibaba" value="<%=cs_alibaba%>" class="txt5 alibaba" />备份：<%=cs_alibabaBu%></td>
</tr>
<tr>
<th width="8%">地址</th>
<td ><input type="text" id="cs_address" name="cs_address" value="<%=cs_address%>" class="txt1" /></td>
</tr>
<tr>
<th width="8%">标签</th>
<td >
<%
Rs1.Open "Select id,tagName from tagTable where customerId="&id,conn,1,1
Do while Not Rs1.bof and Not Rs1.eof
%>
<%=Rs1("tagName")%>,
<%
Rs1.moveNext
loop
Rs1.close
Set Rs1=Nothing
%>
</td>
</tr>
<tr>
<th width="8%">状态</th>
<td >
<label><input type="radio" name="cs_state" value="1"<%If cs_state=1 Then Response.Write " checked=""checked""" End If%> />有效</label>
<label><input type="radio" name="cs_state" value="0"<%If cs_state<>1 Then Response.Write " checked=""checked""" End If%> />不再跟进</label>
</td>
</tr>
<tr>
<th width="8%">是否误报</th>
<td >
<label><input type="radio" name="allowedit" value="1"<%If allowedit=1 Then Response.Write " checked=""checked""" End If%> />审核通过</label>
<label><input type="radio" name="allowedit" value="0"<%If allowedit<>1 Then Response.Write " checked=""checked""" End If%> />一般处理</label>
</td>
</tr>
<tr>
<th width="8%">是否成交</th>
<td >
<label><input type="radio" name="cs_deal" value="3"<%If cs_deal=3 Then Response.Write " checked=""checked""" End If%> />成交</label>
<label><input type="radio" name="cs_deal" value="2"<%If cs_deal=2 Then Response.Write " checked=""checked""" End If%> />明确需求</label>
<label><input type="radio" name="cs_deal" value="1"<%If cs_deal=1 Then Response.Write " checked=""checked""" End If%> />背景调查</label>
<label><input type="radio" name="cs_deal" value="0"<%If cs_deal=0 Then Response.Write " checked=""checked""" End If%> />无响应</label>
</td>
</tr>
<tr>
<th>内容</th>
<td ><textarea id="no_content" name="no_content" class="txt2"><%=cs_note%></textarea></td>
</tr>
<tr>
<th></th>
<td >
<input type="submit" name="save" id="save" value="确定" class="btn1" /> <input type="reset" name="save" id="save" value="重置" class="btn1" /> <input type="button" value="返回" class="btn1" onClick="location.href='<%=hrefstr%>'" />
</td>
</tr>
</tbody>
</table>
</form>
</div>
</body>
</html>
<%
Response.End
End If 'End Edit
If Act="postchk" Then
Keys = Server.UrlEnCode(Request.QueryString("Keys"))
Page = Request.QueryString("Page")
chkact = Request.Form("chkact")
SqlStr = ""
For i = 1 To Request.Form("chkbox").Count
If SqlStr<>"" Then
SqlStr = SqlStr & " Or id="&Request.Form("chkbox")(i)
Else
SqlStr = " Where id="&Request.Form("chkbox")(i)
End If
Next
Select Case chkact
Case "0":SqlStr = "Update customer Set cs_state="&chkact&SqlStr
Case "1":SqlStr = "Update customer Set cs_state="&chkact&SqlStr
Case Else:SqlStr = "Delete From customer"&SqlStr
End Select
Conn.Execute(SqlStr):Conn.Close:Set Conn=Nothing
Response.Redirect "?Keys="&Keys&"&Page="&Page
Response.End
End If 'End postchk
fliterQudao=Request.QueryString("fliterQudao")
fliterDeal=Request.QueryString("fliterDeal")
fliterTeam=Request.QueryString("fliterTeam")
fliterContact=Request.QueryString("fliterContact")
fliterEmployee=Request.QueryString("fliterEmployee")
fliterStr=""
If fliterQudao<>"" Then
fliterStr=fliterStr&" and cs_from="&Cint(fliterQudao)
urlStr=urlStr&"&fliterQudao="&fliterQudao
End If
If fliterDeal<>"" Then
fliterStr=fliterStr&" and cs_deal="&Cint(fliterDeal)
urlStr=urlStr&"&fliterDeal="&fliterDeal
End If
If fliterTeam<>"" Then
fliterStr=fliterStr&" and (cs_belong="&Cint(fliterTeam)&" or cs_belong in (select id from employee where em_role="&Cint(fliterTeam)&") )"
urlStr=urlStr&"&fliterTeam="&fliterTeam
End If
If fliterEmployee<>"" Then
fliterStr=fliterStr&" and cs_belong="&Cint(fliterEmployee)
urlStr=urlStr&"&fliterEmployee="&fliterEmployee
End If
If fliterContact<>"" Then
Select Case fliterContact
Case "1":fliterStr=fliterStr&" and cs_tel<>''"
Case "2":fliterStr=fliterStr&" and cs_wechat<>''"
Case "3":fliterStr=fliterStr&" and cs_whatsapp<>''"
Case "4":fliterStr=fliterStr&" and cs_email<>''"
Case "5":fliterStr=fliterStr&" and cs_linkedin<>''"
Case "6":fliterStr=fliterStr&" and cs_facebook<>''"
Case Else:fliterStr=fliterStr&" and cs_alibaba<>''"
End Select
urlStr=urlStr&"&fliterContact="&fliterContact
End If
Keys=Request.QueryString("Keys")
Keyscode=TextEnCode(Keys)
Page = Request.QueryString("Page")
Ord=Request.QueryString("Ord")
Keys=Server.UrlEnCode(Request.QueryString("Keys"))
If Ord<>"" Then
OrdStr=Ord&","
Else
OrdStr=""
End If
sqlStr="Select id,cs_code,cs_name,cs_country,cs_address,cs_tel,cs_email,cs_whatsapp,cs_wechat,cs_linkedin,cs_facebook,cs_addtime,cs_alibaba,cs_from,cs_deal,cs_updatetime,cs_belong,cs_note,cs_claimFrom,cs_chain,cs_dealdate From customer Where ( cs_code like '%"&Keyscode&"%' or cs_name like '%"&Keyscode&"%' or cs_Wechat like '%"&Keyscode&"%' or cs_alibaba like '%"&Keyscode&"%' or cs_telformat like '%"&Keyscode&"%' or cs_Whatsappformat like '%"&Keyscode&"%' or cs_email like '%"&Keyscode&"%' ) "&fliterStr&" Order By "&OrdStr&" cs_updatetime Desc"
Set Rs=Server.CreateObject("ADODB.RecordSet")
hrefstr = "?keys="&Keys&urlStr
Set Rs1=Server.CreateObject("ADODB.RecordSet")
%>
<form id="form1" method="post" action="?act=postchk&Keys=<%=keys%>&Ord=<%=Ord%>&Page=<%=Page%>" onSubmit="return false" />
<div class="fastSelect clear">
<H1>搜索条件</H1>
<div class="selectItem">
<label>来源渠道</label>
<select name="fliterQudao" class="filterSearch">
<option value="">请选择渠道</option>
<%Rs.Open "Select id,ch_name from qudao",conn,1,1
Do while Not Rs.Bof And Not Rs.eof
%>
<option value="<%=Rs("id")%>" <%if StrComp(fliterQudao,Rs("id"))=0 Then response.Write "Selected=""Selected"""%>><%=Rs("ch_name")%></option>
<%
Rs.moveNext
loop
Rs.close
%>
</select>
</div>
<div class="selectItem">
<label>是否成交</label>
<select name="fliterDeal" class="filterSearch">
<option value="">请选择</option>
<option value="3" <%if StrComp(fliterDeal,"3")=0 Then response.Write "Selected=""Selected"""%>>已成交</option>
<option value="2" <%if StrComp(fliterDeal,"2")=0 Then response.Write "Selected=""Selected"""%>>明确需求</option>
<option value="1" <%if StrComp(fliterDeal,"1")=0 Then response.Write "Selected=""Selected"""%>>背景调查</option>
<option value="0" <%if StrComp(fliterDeal,"0")=0 Then response.Write "Selected=""Selected"""%>>无响应</option>
</select>
</div>
<div class="selectItem">
<label>按组</label>
<select name="fliterTeam" class="filterSearch">
<option value="">请选择</option>
<%Rs.Open "Select id,em_user from employee where em_role=0",conn,1,1
Do while Not Rs.Bof And Not Rs.eof
%>
<option value="<%=Rs("id")%>" <%if StrComp(fliterTeam,Rs("id"))=0 Then response.Write "Selected=""Selected"""%>><%=Rs("em_user")%>组</option>
<%
Rs.moveNext
loop
Rs.close
%>
</select>
</div>
<div class="selectItem">
<label>业务</label>
<select name="fliterEmployee" class="filterSearch">
<option value="">请选择</option>
<%Rs.Open "Select id,em_user from employee",conn,1,1
Do while Not Rs.Bof And Not Rs.eof
%>
<option value="<%=Rs("id")%>" <%if StrComp(fliterEmployee,Rs("id"))=0 Then response.Write "Selected=""Selected"""%>><%=Rs("em_user")%></option>
<%
Rs.moveNext
loop
Rs.close
%>
</select>
</div>
<div class="selectItem">
<label>联系方式</label>
<select name="fliterContact" class="filterSearch">
<option value="">请选择</option>
<option value="1" <%if StrComp(fliterContact,"1")=0 Then response.Write "Selected=""Selected"""%>>电话</option>
<option value="2" <%if StrComp(fliterContact,"2")=0 Then response.Write "Selected=""Selected"""%>>微信</option>
<option value="3" <%if StrComp(fliterContact,"3")=0 Then response.Write "Selected=""Selected"""%>>WhatsApp</option>
<option value="4" <%if StrComp(fliterContact,"4")=0 Then response.Write "Selected=""Selected"""%>>邮箱</option>
<option value="5" <%if StrComp(fliterContact,"5")=0 Then response.Write "Selected=""Selected"""%>>领英</option>
<option value="6" <%if StrComp(fliterContact,"6")=0 Then response.Write "Selected=""Selected"""%>>Facebook</option>
<option value="7" <%if StrComp(fliterContact,"7")=0 Then response.Write "Selected=""Selected"""%>>阿里巴巴</option>
</select>
</div>
<div class="inputSearch">
<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="if(event.keyCode==13){location.href='?Keys='+escape(document.getElementById('keys').value)+'<%=urlStr%>'}" /><input type="button" id="searchgo" class="searchgo" value="go" onClick="location.href='?Keys='+escape(document.getElementById('keys').value)+'<%=urlStr%>'" />
</div>
</div>
<table width="100%" border="0" cellpadding="3" cellspacing="1" class="table1">
<thead>
<tr>
<th width="4%"><input type="checkbox" name="chkall" id="chkall" onClick="chkboxall(this,'chkbox')" /></th>
<th width="6%">序号</th>
<th width="20%">客户编码</th>
<th width="10%">联系人</th>
<th width="10%">国家地区</th>
<th width="7.5%">来源</th>
<th width="7.5%"><a href="<%=hrefstr%><%If Ord="cs_dealdate" Then Response.Write "&Ord=cs_dealdate+Desc" Else Response.Write "&Ord=cs_dealdate"%>">是否成交</a></th>
<th width="10%">业务员</th>
<th width="10%">操作</th>
</tr>
</thead>
<tbody>
<%
Rs.Open sqlStr,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then
Rs.PageSize = 18
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)
Set Rs1=Server.CreateObject("ADODB.RecordSet")
For i=1 To Rs.PageSize
If Rs.Bof Or Rs.Eof Then Exit For
TempNum=TempNum+1:classid=Rs(1)
%>
<tr onMouseOver="this.style.background='#F7FCFF'" onMouseOut="this.style.background='#FFFFFF'">
<td align="center"><input type="checkbox" name="chkbox" value="<%=Rs(0)%>" /></td>
<td align="center" ><%=TempNum%></td>
<td align="center" class="code" data-id="<%=Rs(0)%>"><%=Rs("cs_code")%><%If Rs("cs_claimFrom")>0 Then%><img src="../images/yijiao.png" class="handover"></div><%End If%></td>
<td align="center"><%=Rs("cs_name")%></td>
<td align="center"><%
Rs1.Open "Select id,countryName from country where id="&Rs("cs_country")&"",conn,1,1
If Not Rs1.bof and Not Rs1.eof Then
Response.write Rs1("countryName")
Else
Response.write "未选择"
End If
Rs1.close
%></td>
<td align="center"><%
Rs1.Open "Select ch_name from qudao where id="&Rs("cs_from"),conn,1,1
If not Rs1.bof and not Rs1.eof Then
response.write Rs1("ch_name")
Else
response.write "未选择"
End If
Rs1.close
%>
</td>
<td align="center"><% If Rs("cs_deal")=3 Then
response.write "<span style='color:red;font-size:10px;'>"&Rs("cs_dealdate")&"成交</span>"
elseif Rs("cs_deal")=2 Then
Response.write "明确需求"
elseif Rs("cs_deal")=1 Then
Response.write "背景调查"
else
Response.write "无响应"
End If%>
</td>
<td align="center"><%
Rs1.Open "Select em_user from employee where id="&Rs("cs_belong"),conn,1,1
If not Rs1.bof and not Rs1.eof Then
response.write Rs1("em_user")
Else
response.write "未选择"
End If
Rs1.close
%>
</td>
<td align="center"><a href="?Keys=<%=keys%>&Page=<%=Page%><%=urlStr%>&act=edit&id=<%=Rs(0)%>" class="ico_edit ico">修改</a></td>
</tr>
<tr class="detail_panel code<%=Rs(0)%>__panel">
<td colspan="2"></td>
<td colspan="7" class="cs_detail">
<ul>
<li class="cs_detail_addtime">录入时间:<%=Rs("cs_addtime")%></li>
<li class="cs_detail_addtime">更新时间:<%=Rs("cs_updatetime")%></li>
<li class="cs_detail_addtime">
流转记录：
<% myArray=split(Rs("cs_chain"),",")
sqlStr="Select em_user from employee where id="&myArray(0)
for j=1 to UBound(myArray)
sqlStr=sqlStr&" union all Select em_user from employee where id="&myArray(j)
next
Rs1.open sqlStr,conn,1,1
Do while Not Rs1.bof and Not Rs1.eof
Response.write Rs1("em_user")&" > "
Rs1.moveNext
loop
Rs1.close
%>
</li>
<%IF Rs("cs_tel")<>"" Then%><li class="tel"><%=Rs("cs_tel")%></li><%End if%>
<%IF Rs("cs_email")<>"" Then%><li class="mail"><%=Rs("cs_email")%></li><%End if%>
<%IF Rs("cs_whatsapp")<>"" Then%><li class="whatsapp"><%=Rs("cs_whatsapp")%></li> <%End if%>
<%IF Rs("cs_wechat")<>"" Then%><li class="wechat"><%=Rs("cs_wechat")%></li> <%End if%>
<%IF Rs("cs_linkedin")<>"" Then%><li class="linkedin"><%=Rs("cs_linkedin")%></li> <%End if%>
<%IF Rs("cs_facebook")<>"" Then%><li class="facebook"><%=Rs("cs_facebook")%></li> <%End if%>
<%IF Rs("cs_alibaba")<>"" Then%><li class="alibaba"><%=Rs("cs_alibaba")%></li> <%End if%>
<%IF Rs("cs_address")<>"" Then%><li class="address"><%=Rs("cs_address")%></li> <%End if%>
</ul>
<div class="cs_detail_note"><%=HtmlUnCode(Rs("cs_note"))%></div>
</td>
</tr>
<%
Rs.MoveNext
Next
Else
If Keys="" Then
%>
<tr>
<td align="center" colspan="9">Sorry，当前暂无信息</td>
</tr>
<%
Else
%>
<tr>
<td align="center" colspan="9"><a href="?">Sorry，没有找到“<%=Keyscode%>”相关的信息，点击返回</a></td>
</tr>
<%
End If
End If
%>
</tbody>
<tfoot>
<tr>
<td colspan="9">
<div class="showpagebox">
<%
If Rs.PageCount > 1 Then
PageName="?Keys="&Keys&"&Ord="&Ord&urlStr&"&"
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
Response.Write "<input type=""text"" id=""Pagego"" value="""&Page&""" onFocus=""if(this.value == '"&Page&"'){this.value='';}"" onBlur=""if(this.value == ''){this.value='"&Page&"';}"" onKeyUp=""this.value=this.value.replace(/\D/g,'')"" onKeyDown=""if(event.keyCode==13){location.href='"&PageName&"Page='+document.getElementById('Pagego').value}"" />"
End If
%> </div>
<div class="postchkbox">
<select id="chkact" name="chkact">
<option value="1">显示</option>
<option value="0">隐藏</option>
<option value="-1">删除</option>
</select>
<input type="button" value="执行" onClick="postchk(1)" class="btn1" />
<input type="button" value="新增" onClick="location.href='?act=add'" class="btn1" />
</div>
</td>
</tr>
</tfoot>
</table>
</form>
<%Rs.Close:Set Rs=Nothing:Set Rs1=Nothing:Conn.Close:Set Conn=Nothing%>
</div>
</body>
</html>