www.gusucode.com > CRM源码带手机版ASP源码程序 > Main/Recycler.asp
<!--#include file="../data/conn.asp" --><!--#include file="../data/EasyCrm.asp"--> <%Set EasyCrm = New EasyCRM_CRM%> <% action = Trim(Request("action")) oType = Trim(Request("oType")) subAction = Trim(Request("subAction")) PNN = Trim(Request.QueryString("PN")) if PNN="" then PNN=1 Session("CRM_thispage") = "Recycler.asp" Session("CRM_pagenum") = PNN If subAction = "searchItem" Then Dim cCompany,cLinkman,cTel,cArea,cSquare,cStart,cType,cSource,cUser,cTimeBegin,cTimeEnd,cETimeBegin,cETimeEnd,SHYN cCompany = EasyCrm.Searchcode(Request.Form("company")) cLinkman = EasyCrm.Searchcode(Request.Form("Linkman")) cMobile = EasyCrm.Searchcode(Request.Form("Mobile")) cTel = EasyCrm.Searchcode(Request.Form("Tel")) cArea = EasyCrm.Searchcode(Request.Form("Area")) cSquare = EasyCrm.Searchcode(Request.Form("Squares")) cStart = EasyCrm.Searchcode(Request.Form("Start")) cType = EasyCrm.Searchcode(Request.Form("Type")) cSource = EasyCrm.Searchcode(Request.Form("Source")) cUser = EasyCrm.Searchcode(Request.Form("User")) cTimeBegin = EasyCrm.Searchcode(Request.Form("TimeBegin")) cTimeEnd = EasyCrm.Searchcode(Request.Form("TimeEnd")) cETimeBegin = EasyCrm.Searchcode(Request.Form("ETimeBegin")) cETimeEnd = EasyCrm.Searchcode(Request.Form("ETimeEnd")) SHYN = EasyCrm.Searchcode(Request("SHYN")) Session("Search_Recycler_cCompany") = EasyCrm.Searchcode(Request.Form("company")) Session("Search_Recycler_cLinkman") = EasyCrm.Searchcode(Request.Form("Linkman")) Session("Search_Recycler_cMobile") = EasyCrm.Searchcode(Request.Form("Mobile")) Session("Search_Recycler_cTel") = EasyCrm.Searchcode(Request.Form("Tel")) Session("Search_Recycler_cArea") = EasyCrm.Searchcode(Request.Form("Area")) Session("Search_Recycler_cSquare") = EasyCrm.Searchcode(Request.Form("Squares")) Session("Search_Recycler_cStart") = EasyCrm.Searchcode(Request.Form("Start")) Session("Search_Recycler_cType") = EasyCrm.Searchcode(Request.Form("Type")) Session("Search_Recycler_cSource") = EasyCrm.Searchcode(Request.Form("Source")) Session("Search_Recycler_cUser") = EasyCrm.Searchcode(Request.Form("User")) Session("Search_Recycler_cTimeBegin") = EasyCrm.Searchcode(Request.Form("TimeBegin")) Session("Search_Recycler_cTimeEnd") = EasyCrm.Searchcode(Request.Form("TimeEnd")) Session("Search_Recycler_cETimeBegin") = EasyCrm.Searchcode(Request.Form("ETimeBegin")) Session("Search_Recycler_cETimeEnd") = EasyCrm.Searchcode(Request.Form("ETimeEnd")) Session("Search_Recycler_SHYN") = EasyCrm.Searchcode(Request.Form("SHYN")) Dim sql sql = "" cCompanyWhere = EasyCrm.seachKey("cCompany",cCompany) If cCompany <> "" Then sql = sql & cCompanyWhere End If If cLinkman <> "" Then sql = sql & " And cId in ( select cId from [Client] where cLinkman like '%" & cLinkman & "%' )" End If If cMobile <> "" Then sql = sql & " And cId in ( select cId from [Client] where cMobile like '%" & cMobile & "%' )" End If If cTel <> "" Then sql = sql & " And cTel Like '%" & cTel & "%'" End If If cArea <> "" Then sql = sql & " And cArea = '" & cArea & "'" End If If cSquare <> "" Then sql = sql & " And cSquare = '" & cSquare & "'" End If If cstart <> "" Then sql = sql & " And cStart = '" & cstart & "'" End If If cType <> "" Then sql = sql & " And cType = '" & cType & "'" End If If cSource <> "" Then sql = sql & " And cSource = '" & cSource & "'" End If if Accsql =1 then If cTimeBegin <> "" and cTimeEnd <> "" Then sql = sql & " And cDate >= '" & cTimeBegin & "' And cDate <= '" & cTimeEnd & "' " End If If cTimeBegin <> "" and cTimeEnd = "" Then sql = sql & " And cDate = '" & cTimeBegin & "' " End If else If cTimeBegin <> "" and cTimeEnd <> "" Then sql = sql & " And cDate >= #" & cTimeBegin & "# And cDate <= #" & cTimeEnd & "# " End If If cTimeBegin <> "" and cTimeEnd = "" Then sql = sql & " And cDate = #" & cTimeBegin & "# " End If end if if Accsql =1 then If cETimeBegin <> "" and cETimeEnd <> "" Then sql = sql & " And cLastUpdated >= '" & cETimeBegin & "' And cLastUpdated <= '" & cETimeEnd & "' " End If If cETimeBegin <> "" and cETimeEnd = "" Then sql = sql & " And DATEDIFF(d,cLastUpdated,'"&cETimeBegin&"')=0 " End If else If cETimeBegin <> "" and cETimeEnd <> "" Then sql = sql & " And cLastUpdated >= #" & cETimeBegin & "# And cLastUpdated <= #" & cETimeEnd & "# " End If If cETimeBegin <> "" and cETimeEnd = "" Then sql = sql & " And DATEDIFF('d',cLastUpdated,'"&cETimeBegin&"')=0 " End If end if If cUser <> "" Then sql = sql & " And cUser = '"&cUser &"' " End If If SHYN <> "" Then if SHYN = ""&L_Shi&"" then sql = sql & " And cOldUser <> '' " else sql = sql & " And ( cOldUser = '' or cOldUser is null ) " end if End If End If If cCompany = "" And cLinkman = "" And cMobile = "" And cTel = "" And cArea = "" And cSquare = "" And cType = "" And cSource = "" And cUser = "" And cStart = "" And cTimeBegin = "" And cTimeEnd = "" And cETimeBegin = "" And cETimeEnd = "" And SHYN = "" Then If Session("CRM_Search_Recycler") <> "" Then sql = Session("CRM_Search_Recycler") End If Else Session("CRM_Search_Recycler") = sql End If If subAction = "killSession" Then Session("CRM_Search_Recycler") = "" Session("Search_Recycler_cCompany") = "" Session("Search_Recycler_cLinkman") = "" Session("Search_Recycler_cMobile") = "" Session("Search_Recycler_cTel") = "" Session("Search_Recycler_cArea") = "" Session("Search_Recycler_cSquare") = "" Session("Search_Recycler_cStart") = "" Session("Search_Recycler_cType") = "" Session("Search_Recycler_cSource") = "" Session("Search_Recycler_cUser") = "" Session("Search_Recycler_cTimeBegin") = "" Session("Search_Recycler_cTimeEnd") = "" Session("Search_Recycler_cETimeBegin") = "" Session("Search_Recycler_cETimeEnd") = "" Session("Search_Recycler_SHYN") = "" Session("Search_Recycler_NewUser") = "" sql="" End If %> <!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=GBK" /> <link href="<%=SiteUrl&skinurl%>Style/common.css" rel="stylesheet" type="text/css"> <script language="javascript" src="<%=SiteUrl&skinurl%>Js/ajax.js"></script> <script language="javascript" src="<%=SiteUrl&skinurl%>Js/Common.js"></script> <script language="javascript" src="<%=SiteUrl&skinurl%>Js/jquery.min.js"></script> <script language="javascript" src="<%=SiteUrl&skinurl%>Js/tips.js"></script> <script language="javascript" src="<%=SiteUrl&skinurl%>Js/Float.js"></script> <script src="<%=SiteUrl&skinurl%>aridialog/jquery.artDialog.js?skin=default"></script> <script src="<%=SiteUrl&skinurl%>aridialog/iframeTools.js"></script> <script language="JavaScript"> <!-- function CheckAll(form) { for (var i=0;i<form.elements.length;i++) { var e = form.elements[i]; if (e.name != 'chkall') e.checked = form.chkall.checked; } } --> </script> </head> <body oncontextmenu=self.event.returnValue=false> <style>body{padding:35px 0 48px;}</style> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="top_bg"> <tr> <td class="top_left td_t_n td_r_n"><%=L_Here%>:<%=L_Company%> > <%=L_Page_Recycler%> </td> <td class="top_right td_t_n td_r_n"> <input type="button" class="button_top_reload" value=" " title="刷新" onClick=window.location.href="javascript:window.location.reload();" /> <input type="button" class="button_top_back" value=" " title="后退" onClick=window.location.href="javascript:history.back();" /> <input type="button" class="button_top_go" value=" " title="前进" onClick=window.location.href="javascript:history.go(1);" /> </td> </tr> </table> <% Select Case action Case "CheckSub" '批量操作 Call CheckSubject() Case "ReDel" '撤销删除 Call ReDel() Case "ReApp" '客户申请 Call ReApp() Case "ReConfirm" '通过申请 Call ReConfirm() Case "ReDenied" '拒绝申请 Call ReDenied() Case "RealDel" '彻底删除 Call RealDel() Case Else Call Main() End Select Sub Main() %> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" class="td_n pdt10"> <div class="MenuboxS"> <ul> <li <%if otype="Main" or otype="" then%>class="hover"<%end if%> id="CheckB"><span><a href="?otype=Main">客户列表</a></span></li> <li class="" id="CheckA"><span><a href="javascript:void(0)" style="cursor:pointer">高级搜索</a></span></li> </ul> </div> </td> </tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" class="td_n"> <div id="SearchBox" style="position: absolute; width:100%; height:450px; background:#ffffff; display:none; z-index:10;"> <table width="100%" border="0" cellspacing="0" cellpadding="0" style="background:#ffffff;"> <tr> <td valign="top" class="td_n pdl10 pdr10 pdt10"> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <tr class="tr_t"> <td class="td_l_l" COLSPAN="6" style="border-right:0;"><B><%=L_Top_Search%></B></td> </tr> </table> <form name="searchForm" action="?subAction=searchItem" method="post"> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="120" /><col width="260" /><col width="120" /> <tr> <td class="td_l_r title" style="border-top:0;"><%=L_Client_cCompany%></td> <td class="td_r_l" style="border-top:0;"><input name="Company" type="text" class="int" id="Company" size="30" value="<%=Session("Search_Recycler_cCompany")%>" ></td> <td class="td_l_r title" style="border-top:0;"><%=L_Client_cDate%></td> <td class="td_r_l" style="border-top:0;"><input name="TimeBegin" type="text" maxlength="10" id="TimeBegin" class="Wdate" size="15" onFocus="WdatePicker()" value="<%=Session("Search_Recycler_cTimeBegin")%>" /> ~ <input name="TimeEnd" type="text" maxlength="10" id="TimeEnd" class="Wdate" size="15" onFocus="WdatePicker()" value="<%=Session("Search_Recycler_cTimeEnd")%>" /> </td> </tr> <tr> <td class="td_l_r title"><%=L_Client_cLinkman%></td> <td class="td_r_l"><input name="Linkman" type="text" class="int" id="Linkman" size="30" value="<%=Session("Search_Recycler_cLinkman")%>" ></td> <td class="td_l_r title"><%=L_Client_cLastUpdated%></td> <td class="td_r_l"><input name="ETimeBegin" type="text" maxlength="10" id="ETimeBegin" class="Wdate" size="15" onFocus="WdatePicker()" value="<%=Session("Search_Recycler_cETimeBegin")%>" /> ~ <input name="ETimeEnd" type="text" maxlength="10" id="ETimeEnd" class="Wdate" size="15" onFocus="WdatePicker()" value="<%=Session("Search_Recycler_cETimeEnd")%>" /> </td> </tr> <tr> <td class="td_l_r title"><%=L_Client_cMobile%></td> <td class="td_r_l"><input name="Mobile" type="text" class="int" id="Mobile" size="30" value="<%=Session("Search_Recycler_cMobile")%>" ></td> <td class="td_l_r title"><%=L_Client_cArea%><%=L_Client_cSquare%></td> <td class="td_r_l"> <select name="Area" onchange="getArea(this.options[this.selectedIndex].id);"> <option value=""><%=L_Please_choose_01%></option> <% Set rsb = Conn.Execute("select * from AreaData where aFId = '0' ") If Not rsb.Eof then Do While Not rsb.Eof aId= rsb("aId") aName= rsb("aName") %> <option value="<%=aName%>" id="<%=aId%>"><%=aName%></option> <% rsb.Movenext Loop End If rsb.Close Set rss = Nothing %> </select> <span id="Squarediv" style="margin-left:10px;padding:0;"> <select name="Squares"> <option value=""><%=L_Please_choose_02%></option> <% IF ""&cArea&""<>"" then Set rss = Conn.Execute("select * from AreaData where aFId='"&EasyCrm.getNewItem("AreaData","aName","'"&cArea&"'","aId")&"' ") If Not rss.Eof then Do While Not rss.Eof aName= rss("aName") %> <option value="<%=aName%>"><%=aName%></option> <%rss.Movenext Loop End If rss.Close Set rss = Nothing End If %> </select> </span> </td> </tr> <tr> <td class="td_l_r title"><%=L_Client_cTel%></td> <td class="td_r_l"><input name="Tel" type="text" class="int" id="Tel" size="30" value="<%=Session("Search_Recycler_cTel")%>"></td> <td class="td_l_r title"><%=L_Client_cType%></td> <td class="td_r_l"><% = EasyCrm.getSelect("SelectData","Select_Type","Type",Session("Search_Recycler_cType")) %></td> </tr> <tr> <td class="td_l_r title">审核中</td> <td class="td_r_l"><% = EasyCrm.getSelect("SelectData","Select_YN","SHYN",Session("Search_Recycler_SHYN")) %></td> <td class="td_l_r title"><%=L_Client_cStart%></td> <td class="td_r_l"><% = EasyCrm.getSelect("SelectData","Select_Star","Start",Session("Search_Recycler_cStart")) %></td> </tr> <tr> <td class="td_l_r title"><%=L_Client_cUser%></td> <td class="td_r_l"> <% If Session("CRM_level") = 9 Then %> <% = EasyCrm.UserList(2,"User",Session("Search_Recycler_cUser")) %> <% Else %> <% = EasyCrm.UserList(1,"User",Session("Search_Recycler_cUser")) %> <% End If %> </td> <td class="td_l_r title"><%=L_Client_cSource%></td> <td class="td_r_l"><% = EasyCrm.getSelect("SelectData","Select_Source","Source",Session("Search_Recycler_cSource")) %></td> </tr> <tr> <td class="td_r_l" colspan="4"> <input type="submit" name="Submit" class="button42" value="<%=L_Search%>"> <input type="button" name="button" class="button43" value="<%=L_Clear%>" onClick=window.location.href="?SubAction=killSession" /> </td> </tr> </table> </form> </td> </tr> </table> </div> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="top" colspan=2 style="padding:10px 10px 0;" class="td_n"> <form name="Search" action="?action=CheckSub&SubAction=Search&PN=<%=PNN%>" method="post"> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="table_1" style="border-bottom:0px;"> <tr class="tr_t"style="border-bottom:0px;"> <td class="td_l_l"> <% If mid(Session("CRM_qx"), 9, 1) = 1 Then %> <span class="tips01" style="float:left;display:none;padding:0 10px;height:34px;line-height:34px;text-align:left;position:fixed;right:10px;top:43px;color:#000;" id="CheckSub"> <% If mid(Session("CRM_qx"), 12, 1) = 1 Then %> 新:<% If Session("CRM_level") = 9 Then %><% = EasyCrm.UserList(2,"NewUser","") %><%else%><% = EasyCrm.UserList(1,"NewUser","") %><%end if%> <input type="submit" name="Checkexecute" id="Checkexecute" class="button224" value="<%=L_Transfer%>"> <%end if%> <% If mid(Session("CRM_qx"), 15, 1) = 1 Then %> <input type="submit" name="Checkexecute" id="Checkexecute" class="button242" value="<%=L_ReConfirm%>"> <input type="submit" name="Checkexecute" id="Checkexecute" class="button243" value="<%=L_ReDenied%>"> <%end if%> <%if Session("CRM_level") = 9 then%> <input type="submit" name="Checkexecute" id="Checkexecute" class="button247" value="<%=L_RealDel%>"> <%end if%> </span> <%end if%> <B>信息列表</B> </td> </tr> </table> <script type="text/javascript"> function getBlock(ck, d) { var c = document.getElementById(ck); var d = document.getElementById(d); if (c.checked == true) { d.style.display = "block" } //else {d.style.display = "none"} } </script> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="table_1"> <tr class="tr_b"> <td width="40" class="td_l_c"><input name="chkall" type="checkbox" id="chkall" onclick="CheckAll(this.form);getBlock('chkall','CheckSub')" value="checkbox"></td> <td width="80" class="td_l_c"><%=L_Client_cId%></td> <td class="td_l_l"><%=L_Client_cCompany%></td> <td width="80" class="td_l_c"><%=L_Client_cLastUpdated%></td> <td width="100" class="td_l_c"><%=L_Client_cUser%></td> <td width="100" class="td_l_c"><%=L_Client_cOldUser%></td> <td width="100" class="td_l_c"><%=L_Top_Manage%></td> </tr> <% PN = CLng(ABS(Request("PN"))) If Not IsNumeric(PN) Or PN <= 0 Then PN = 1 intPageSize = DataPageSize pagenum = intPageSize*(PN-1) Set rs = Server.CreateObject("ADODB.Recordset") IF PN=1 THEN rs.Open "Select top "&intPageSize&" * From [client] where cYn = 0 "&sql&" Order By cId Desc",conn,1,1 ELSE rs.Open "Select top "&intPageSize&" * From [client] where cYn = 0 "&sql&" and cid < ( SELECT Min(cid) FROM ( SELECT TOP "&pagenum&" cid FROM [client] where cYn = 0 "&sql&" ORDER BY cId desc ) AS T ) Order By cId Desc ",conn,1,1 END IF Set Rsstr=conn.Execute("Select count(cid) As RecordSum From [client] where cYn = 0 "&sql&" ",1,1) TotalRecords=Rsstr("RecordSum") if Int(TotalRecords/intPageSize)=TotalRecords/intPageSize then TotalPages=TotalRecords/intPageSize else TotalPages=Int(TotalRecords/intPageSize)+1 end if Rsstr.Close Set Rsstr=Nothing If PN > TotalPages Then PN = TotalPages If rs.RecordCount > 0 Then Do While Not rs.BOF And Not rs.EOF %> <tr class="tr"> <td class="td_l_c"><input type="checkbox" name="cId" id="cId<%=rs("cId")%>" value="<%=rs("cId")%>" onclick="getBlock('cId<%=rs("cId")%>','CheckSub')"></td> <td class="td_l_c"><%=rs("cId")%></td> <td class="td_l_l"><a onclick='Client_InfoView<%=rs("cId")%>()' style="cursor:pointer"><%=rs("cCompany")%></a><%if rs("cShare") = 1 then%><span class="info_share" title="已共享"> </span><%end if%><%If EasyCrm.getCountItem("File","fId","fIdstr"," and cID="&rs("cID")&" ") > 0 Then%><span class="info_file" title="有附件"> </span><%end if%></td> <td class="td_l_c"><font color=red><%=Datediff("d",rs("cLastUpdated"),Now())%> </font>天前</td> <td class="td_l_c"><%=rs("cUser")%></td> <td class="td_l_c"><%=rs("cOldUser")%></td> <td class="td_l_c"> <%if rs("cOldUser")="" or IsNull(rs("cOldUser")) then%> <%if rs("cUser")=Session("CRM_name") then%> <input type="button" class="button_info_restore" value=" " title="<%=L_ReDel%>" onclick='Recycler_InfoReDel<%=rs("cId")%>()' style="cursor:pointer" /> <%else%> <%if YNRecycler = 1 then%> <input type="button" class="button_info_add" value=" " title="<%=L_ReApp%>" onclick='Recycler_InfoReApp<%=rs("cId")%>()' style="cursor:pointer" /> <%else%> <input type="button" class="button_info_add" value=" " title="<%=L_ReApp%>" onclick='Recycler_InfoReConfirm<%=rs("cId")%>()' style="cursor:pointer" /> <%end if%> <%end if%> <%if Session("CRM_level") = 9 then%> <input type="button" class="button_info_delete" value=" " title="<%=L_RealDel%>" onclick='Recycler_InfoRealDel<%=rs("cId")%>()' style="cursor:pointer" /> <%end if%> <%else%> <% If mid(Session("CRM_qx"), 16, 1) = 1 Then %> <input type="button" class="button_info_yes" value=" " title="<%=L_ReConfirm%>" onclick='Recycler_InfoReConfirm<%=rs("cId")%>()' style="cursor:pointer" /> <input type="button" class="button_info_del" value=" " title="<%=L_ReDenied%>" onclick='Recycler_InfoReDenied<%=rs("cId")%>()' style="cursor:pointer" /> <%end if%> <%end if%> </td> </tr> <script>function Client_InfoView<%=rs("cId")%>() {$.dialog.open('GetUpdate.asp?action=Client&sType=InfoView&cId=<%=rs("cId")%>&YNRange=0', {title: '查看', width: 900,height: 480, fixed: true}); };</script> <script>function Recycler_InfoReDel<%=rs("cId")%>() //撤销删除 { art.dialog({ content: '<%=Alert_del_restore%>', icon: 'face-smile', ok: function () { art.dialog.open('?action=ReDel&cId=<%=rs("cid")%>'); art.dialog.close(); }, cancelVal: '关闭', cancel: true }); }; </script> <script>function Recycler_InfoReApp<%=rs("cId")%>() //申请客户 { art.dialog.open('?action=ReApp&cId=<%=rs("cid")%>&uId=<%=Session("CRM_uId")%>'); art.dialog.close(); }; </script> <script>function Recycler_InfoReConfirm<%=rs("cId")%>() //通过申请 { <%if YNRecycler = 1 then%> art.dialog.open('?action=ReConfirm&cId=<%=rs("cid")%>'); <%else%> art.dialog.open('?action=ReConfirm&cId=<%=rs("cid")%>&uId=<%=Session("CRM_uId")%>'); <%end if%> art.dialog.close(); }; </script> <script>function Recycler_InfoReDenied<%=rs("cId")%>() //拒绝申请 { art.dialog.open('?action=ReDenied&cId=<%=rs("cid")%>'); art.dialog.close(); }; </script> <script>function Recycler_InfoRealDel<%=rs("cId")%>() //彻底删除 { art.dialog({ content: '<%=Alert_del_client_Del%>', icon: 'warning', ok: function () { art.dialog.open('?action=RealDel&cId=<%=rs("cid")%>'); art.dialog.close(); }, cancelVal: '关闭', cancel: true }); }; </script> <% rs.MoveNext Loop else %> <tr><td class="td_l_l" colspan="8"><%=L_Notfound%></td></tr> <% end if rs.Close Set rs = Nothing %> </table> </form> </td> </tr> </table> </td> </tr> </table> <div class="fixed_bg"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" class="td_n Bottom_pd "> <%if sql<>"" then%><span class="r"><input name="Back" type="button" id="Back" class="button227" value="清空" onClick=window.location.href="?SubAction=killSession"></span><%end if%> <%=EasyCrm.pagelist("Recycler.asp", PN,TotalPages,TotalRecords)%> </td> </tr> </table> </div> <script language="JavaScript"> <!-- for(var i=0;i<document.getElementById('Area').options.length;i++){ if(document.getElementById('Area').options[i].value == "<% = Session("Search_Recycler_cArea") %>"){ document.getElementById('Area').options[i].selected = true;}} for(var i=0;i<document.getElementById('Squares').options.length;i++){ if(document.getElementById('Squares').options[i].value == "<% = Session("Search_Recycler_cSquare") %>"){ document.getElementById('Squares').options[i].selected = true;}} --> </script> <% end Sub Sub CheckSubject() cId=Trim(Request("cId")) NewUser=Request("NewUser") PN = CLng(ABS(Request("PN"))) If Request("Checkexecute")=""&L_Transfer&"" Then If cId="" Then Response.Write "<script>alert('"&alert04&"');location.href='?PN="&PN&"' ;</script>" Response.End elseif NewUser="" then Response.Write "<script>alert('"&alert04&"');location.href='?PN="&PN&"' ;</script>" Response.End else cidarr = split(cid,",") ' 限制客户量,则循环判断是否已经达到最大客户量 if CLng(ABS(EasyCrm.getNewItem("User","uName","'"&NewUser&"'","uClientNum"))) > 0 then for i = 0 to Ubound(cidarr) if CLng(ABS(EasyCrm.getCountItem("Client","cid","cidstr"," and cYn=1 and cUser='"&NewUser&"' "))) < CLng(ABS(EasyCrm.getNewItem("User","uName","'"&NewUser&"'","uClientNum"))) then set rs=conn.execute("update [Client] set cYn = '1' ,cUser = '"&NewUser&"' where cId =" & cidarr(i) & " ") if SaveOldUser = 0 then set rs=conn.execute("update [Linkmans] set lUser = '"&NewUser&"' where cId =" & cidarr(i) & " ") set rs=conn.execute("update [Records] set rUser = '"&NewUser&"' where cId =" & cidarr(i) & " ") set rs=conn.execute("update [Order] set oUser = '"&NewUser&"' where cId =" & cidarr(i) & " ") set rs=conn.execute("update [Hetong] set hUser = '"&NewUser&"' where cId =" & cidarr(i) & " ") set rs=conn.execute("update [Service] set sUser = '"&NewUser&"' where cId =" & cidarr(i) & " ") set rs=conn.execute("update [Expense] set eUser = '"&NewUser&"' where cId =" & cidarr(i) & " ") set rs=conn.execute("update [File] set fUser = '"&NewUser&"' where cId =" & cidarr(i) & " ") end if else if ""&YNalert&"" = 1 then Response.Write "<script>alert('成功转移"&i&"条记录,"&NewUser&"的客户量达到最大配额!');</script>" end if Response.Write("<script>location.href='?PN="&PN&"' ;</script>") Response.end end if next else set rs=conn.execute("update [Client] set cYn = '1' ,cUser = '"&NewUser&"' where cId In(" & cId & ")") if SaveOldUser = 0 then set rs=conn.execute("update [Linkmans] set lUser = '"&NewUser&"' where cId In(" & cId & ") ") set rs=conn.execute("update [Records] set rUser = '"&NewUser&"' where cId In(" & cId & ") ") set rs=conn.execute("update [Order] set oUser = '"&NewUser&"' where cId In(" & cId & ") ") set rs=conn.execute("update [Hetong] set hUser = '"&NewUser&"' where cId In(" & cId & ") ") set rs=conn.execute("update [Service] set sUser = '"&NewUser&"' where cId In(" & cId & ") ") set rs=conn.execute("update [Expense] set eUser = '"&NewUser&"' where cId In(" & cId & ") ") set rs=conn.execute("update [File] set fUser = '"&NewUser&"' where cId In(" & cId & ") ") end if if ""&YNalert&"" = 1 then Response.Write("<script>alert('"&alert4&"');</script>") end if Response.Write("<script>location.href='?PN="&PN&"' ;</script>") Response.end end if End If elseIf Request("Checkexecute")=""&L_ReConfirm&"" Then '通过审核,最大客户量已判断,这里直接通过 If cId="" Then Response.Write "<script>alert('"&alert04&"');location.href='?PN="&PN&"' ;</script>" Response.End else cidarr = split(cid,",") ' 限制客户量,则循环判断是否已经达到最大客户量 for i = 0 to Ubound(cidarr) cUser = EasyCrm.getNewItem("Client","cId",""&cidarr(i)&"","cOlduser") '申请人 if cUser <> "" then cGroup = EasyCrm.getNewItem("User","uName","'"&cUser&"'","uGroup") '申请人所在的部门 conn.execute("update Client set cYn='1' ,cUser = '"&cUser&"',cOlduser = '',cGroup='"&cGroup&"' where cId = " & cidarr(i) & " ") conn.execute ("insert into Logfile(lCid,lClass,lAction,lUser,lTime) values('"&cidarr(i)&"','"&L_Client&"','"&L_ReConfirm&"','"&Session("CRM_name")&"','"&now()&"')") else Response.Write "<script>alert('"&alert04&"');location.href='?PN="&PN&"' ;</script>" Response.End end if next End If Response.Write("<script>location.href='?PN="&PN&"' ;</script>") Response.end elseIf Request("Checkexecute")=""&L_ReDenied&"" Then '拒绝申请 If cId="" Then Response.Write "<script>alert('"&alert04&"');location.href='?PN="&PN&"' ;</script>" Response.End else conn.execute("update Client set cOlduser = '' where cId In(" & cId & ") ") End If Response.Write("<script>location.href='?PN="&PN&"' ;</script>") Response.end elseIf Request("Checkexecute")=""&L_RealDel&"" Then '彻底删除 If cId="" Then Response.Write "<script>alert("""&alert_trans_no_select&""");</script><SCRIPT LANGUAGE=JavaScript>document.Search.chkall.focus()</SCRIPT>" Response.End else set rs=conn.execute("Delete from [Client] Where cId In(" & cId & ")") set rs=conn.execute("Delete from [Linkmans] Where cId In(" & cId & ")") set rs=conn.execute("Delete from [Records] Where cId In(" & cId & ")") set rs=conn.execute("Delete from [Order] Where cId In(" & cId & ")") set rs=conn.execute("Delete from [Hetong] Where cId In(" & cId & ")") set rs=conn.execute("Delete from [Service] Where cId In(" & cId & ")") set rs=conn.execute("Delete from [Expense] Where cId In(" & cId & ")") set rs=conn.execute("Delete from [File] Where cId In(" & cId & ")") set rs=conn.execute("Delete from [Logfile] Where lcId In(" & cId & ")") if ""&YNalert&"" = 1 then Response.Write("<script>alert('"&alert4&"');</script>") end if Response.Write("<script>location.href='?PN="&PN&"' ;</script>") end if End If End Sub Sub ReApp() '申请客户 Dim cid,uId cid = Trim(Request("cid")) uId = Trim(Request("uId")) If cid = "" or uId = "" Then Exit Sub End If cUser = EasyCrm.getNewItem("User","uId",""&uId&"","uName") '申请人 ReCNum = EasyCrm.getCountItem("Client","cid","cidstr"," and cYn=1 and cUser='"&cUser&"' ") '申请人客户量 ReRNum = EasyCrm.getCountItem("Client","cid","cidstr"," and cYn=0 and cOlduser='"&cUser&"' ") '已申请客户量 '判断是否限制了当前申请人的客户量 if CLng(ABS(EasyCrm.getNewItem("User","uId",""&uId&"","uClientNum"))) > 0 then if CLng(ABS(ReCNum))+CLng(ABS(ReRNum)) < CLng(ABS(EasyCrm.getNewItem("User","uId",""&uId&"","uClientNum"))) then conn.execute("update Client set cOlduser = '"&cUser&"' where cId = "&cId&" ") conn.execute ("insert into Logfile(lCid,lClass,lAction,lUser,lTime) values('"&cid&"','"&L_Client&"','"&L_ReApp&"','"&cUser&"','"&now()&"')") else Response.Write "<script>alert('您的客户量达到最大配额!');</script>" end if else conn.execute("update Client set cOlduser = '"&cUser&"' where cId = "&cId&" ") conn.execute ("insert into Logfile(lCid,lClass,lAction,lUser,lTime) values('"&cid&"','"&L_Client&"','"&L_ReApp&"','"&cUser&"','"&now()&"')") end if Response.Write("<script>art.dialog.close();art.dialog.open.origin.location.reload();</script>") End Sub Sub ReConfirm() '通过申请 Dim cid,uId cid = Trim(Request("cid")) uId = Trim(Request("uId")) If cid = "" Then Exit Sub End If if YNRecycler = 1 then '公海申请需要审核 cUser = EasyCrm.getNewItem("Client","cId",""&cId&"","cOlduser") '申请人 cGroup = EasyCrm.getNewItem("User","uName","'"&cUser&"'","uGroup") '申请人所在的部门 conn.execute("update Client set cYn='1' ,cUser = '"&cUser&"',cOlduser = '',cGroup='"&cGroup&"' where cId = "&cId&" ") conn.execute ("insert into Logfile(lCid,lClass,lAction,lUser,lTime) values('"&cid&"','"&L_Client&"','"&L_ReConfirm&"','"&Session("CRM_name")&"','"&now()&"')") else '公海申请直接通过 cUser = EasyCrm.getNewItem("User","uId",""&uId&"","uName") '申请人 cGroup = EasyCrm.getNewItem("User","uName","'"&cUser&"'","uGroup") '申请人所在的部门 ReCNum = EasyCrm.getCountItem("Client","cid","cidstr"," and cYn=1 and cUser='"&cUser&"' ") '申请人客户量 ReRNum = EasyCrm.getCountItem("Client","cid","cidstr"," and cYn=0 and cOlduser='"&cUser&"' ") '已申请客户量 '判断是否限制了当前申请人的客户量 if CLng(ABS(EasyCrm.getNewItem("User","uId",""&uId&"","uClientNum"))) > 0 then if CLng(ABS(ReCNum))+CLng(ABS(ReRNum)) < CLng(ABS(EasyCrm.getNewItem("User","uId",""&uId&"","uClientNum"))) then conn.execute("update Client set cYn='1' ,cUser = '"&cUser&"',cOlduser = '',cGroup='"&cGroup&"' where cId = "&cId&" ") conn.execute ("insert into Logfile(lCid,lClass,lAction,lUser,lTime) values('"&cid&"','"&L_Client&"','"&L_ReApp&"','"&cUser&"','"&now()&"')") else Response.Write "<script>alert('您的客户量达到最大配额!');</script>" end if else conn.execute("update Client set cYn='1' ,cUser = '"&cUser&"',cOlduser = '',cGroup='"&cGroup&"' where cId = "&cId&" ") conn.execute ("insert into Logfile(lCid,lClass,lAction,lUser,lTime) values('"&cid&"','"&L_Client&"','"&L_ReApp&"','"&cUser&"','"&now()&"')") end if end if Response.Write("<script>art.dialog.close();art.dialog.open.origin.location.reload();</script>") End Sub Sub ReDenied() '拒绝申请 Dim cid cid = Trim(Request("cid")) If cid = "" Then Exit Sub End If conn.execute("update Client set cOlduser = '' where cId = "&cId&" ") conn.execute ("insert into Logfile(lCid,lClass,lAction,lUser,lTime) values('"&cid&"','"&L_Client&"','"&L_ReDenied&"','"&Session("CRM_name")&"','"&now()&"')") Response.Write("<script>art.dialog.close();art.dialog.open.origin.location.reload();</script>") End Sub Sub ReDel() '撤销删除 Dim cid cid = Trim(Request("cid")) If cid = "" Then Exit Sub End If cUser = EasyCrm.getNewItem("Client","cID",""&cID&"","cUser") ReCNum = EasyCrm.getCountItem("Client","cid","cidstr"," and cYn=1 and cUser='"&cUser&"' ") '申请人客户量 '判断是否限制了当前客户的原业务员客户量 if CLng(ABS(EasyCrm.getNewItem("User","uName","'"&cUser&"'","uClientNum"))) > 0 then if CLng(ABS(ReCNum)) < CLng(ABS(EasyCrm.getNewItem("User","uName","'"&cUser&"'","uClientNum"))) then conn.execute("update Client set cYn = 1 where cId = "&cId&" ") conn.execute ("insert into Logfile(lCid,lClass,lAction,lUser,lTime) values('"&cid&"','"&L_Client&"','"&L_ReDel&"','"&Session("CRM_name")&"','"&now()&"')") else Response.Write "<script>alert('"&cUser&"的客户量达到最大配额!');</script>" end if else conn.execute("update Client set cYn = 1 where cId = "&cId&" ") conn.execute ("insert into Logfile(lCid,lClass,lAction,lUser,lTime) values('"&cid&"','"&L_Client&"','"&L_ReDel&"','"&Session("CRM_name")&"','"&now()&"')") end if Response.Write("<script>art.dialog.close();art.dialog.open.origin.location.reload();</script>") End Sub Sub RealDel() '彻底删除 Dim cid cid = Trim(Request("cid")) If cid = "" Then Exit Sub End If set rs=conn.execute("Delete from [Client] Where cId In(" & cId & ")") set rs=conn.execute("Delete from [Linkmans] Where cId In(" & cId & ")") set rs=conn.execute("Delete from [Records] Where cId In(" & cId & ")") set rs=conn.execute("Delete from [Order] Where cId In(" & cId & ")") set rs=conn.execute("Delete from [Hetong] Where cId In(" & cId & ")") set rs=conn.execute("Delete from [Service] Where cId In(" & cId & ")") set rs=conn.execute("Delete from [Expense] Where cId In(" & cId & ")") set rs=conn.execute("Delete from [File] Where cId In(" & cId & ")") set rs=conn.execute("Delete from [Logfile] Where lcId In(" & cId & ")") Response.Write("<script>art.dialog.close();art.dialog.open.origin.location.reload();</script>") End Sub %> <script src="../data/calendar/WdatePicker.js"></script> <div id="mjs:tip" class="tip" style="position:absolute;left:0;top:0;display:none;margin-left:10px;"></div> </body> </html><% Set EasyCrm = nothing %>