www.gusucode.com > CRM源码带手机版ASP源码程序 > Plugin/Workschedule/index.asp
<!--#include file="../../data/conn.asp" --><!--#include file="config.asp" --><!--#include file="../../data/EasyCrm.asp"--> <%Set EasyCrm = New EasyCRM_CRM%> <% '获取当前页码 PNN = Trim(Request.QueryString("PN")) subAction = Trim(Request("subAction")) if PNN="" then PNN=1 otype = Request.QueryString("otype") if otype="" then otype="Main" ecarr = split(""&Plugin_Workschedule_State&"",",") if otype="" or otype="Main" then sql = sql & " and wClass <> '草稿' " elseif otype="Item1" then if Accsql=1 then sql = sql & " And ( wState <> '" & ecarr(0) & "' or wState is Null ) And wSH = 0 And wCompletiontime > '" & EasyCrm.FormatDate(now(),1) & "' And wClass <> '草稿'" else sql = sql & " And ( wState <> '" & ecarr(0) & "' or wState is Null ) And wSH = 0 And wCompletiontime > #" & EasyCrm.FormatDate(now(),1) & "# And wClass <> '草稿' " end if elseif otype="Item2" then sql = sql & " And wState = '" & ecarr(0) & "' And wSH = 1 and wClass <> '草稿' " '待审核,不限制完成期限 elseif otype="Item3" then sql = sql & " And wState = '" & ecarr(0) & "' And wSH = 2 and wClass <> '草稿' " '已完成,不限制完成期限 elseif otype="Item4" then if Accsql = 1 then sql = sql & " And wSH = 0 And wCompletiontime < '" & EasyCrm.FormatDate(now(),1) & "' and wClass <> '草稿' " '未提交完成并且超过期限 else sql = sql & " And wSH = 0 And wCompletiontime < #" & EasyCrm.FormatDate(now(),1) & "# and wClass <> '草稿' " '未提交完成并且超过期限 end if elseif otype="Item5" then sql = sql & " And wClass = '草稿' " '草稿 end if if Session("CRM_level")< 9 then if inStr(Plugin_Workschedule_manage,session("CRM_name"))=0 then sql = sql & " And ( wUserb = '" & Session("CRM_name") & "' or wUsers like '" & Session("CRM_name") & "' )" end if end if If subAction = "searchItem" Then Dim wTitle,wUserb,TimeBegin,TimeEnd wTitle = EasyCrm.Searchcode(Request("wTitle")) wUserb = EasyCrm.Searchcode(Request("User")) TimeBegin = EasyCrm.Searchcode(Request("TimeBegin")) TimeEnd = EasyCrm.Searchcode(Request("TimeEnd")) Session("Search_Plugin_Workschedule_wTitle") = EasyCrm.Searchcode(Request("wTitle")) Session("Search_Plugin_Workschedule_wUserb") = EasyCrm.Searchcode(Request("User")) Session("Search_Plugin_Workschedule_TimeBegin") = EasyCrm.Searchcode(Request("TimeBegin")) Session("Search_Plugin_Workschedule_TimeEnd") = EasyCrm.Searchcode(Request("TimeEnd")) If wTitle <> "" Then sql = sql & " And wTitle like '%" & wTitle & "%' " End If If wUserb <> "" Then sql = sql & " And wUserb = '" & wUserb & "' " End If if Accsql =1 then If TimeBegin <> "" Then sql = sql & " And wCompletiontime >= '" & TimeBegin & "' " End If If TimeEnd <> "" Then sql = sql & " And wCompletiontime <= '" & TimeEnd & "' " End If else If TimeBegin <> "" Then sql = sql & " And wCompletiontime >= #" & TimeBegin & "# " End If If TimeEnd <> "" Then sql = sql & " And wCompletiontime <= #" & TimeEnd & "# " End If end if end if If wTitle = "" And wUserb = "" And TimeBegin="" And TimeEnd="" Then If Session("Search_Plugin_Workschedule_Search") <> "" Then sql = Session("Search_Plugin_Workschedule_Search") End If Else Session("Search_Plugin_Workschedule_Search") = sql End If If subAction = "killSession" Then Session("Search_Plugin_Workschedule_Search") = "" Session("Search_Plugin_Workschedule_wTitle") = "" Session("Search_Plugin_Workschedule_wUserb") = "" Session("Search_Plugin_Workschedule_TimeBegin") = "" Session("Search_Plugin_Workschedule_TimeEnd") = "" Response.Write "<script>location.href='?PN="&PNN&"';</script>" End If Dim intTotalRecords,intTotalPages,PN,intPageSize'记录总数,总页数,当前页,分页数量 PN = CLng(ABS(Request("PN"))) If Not IsNumeric(PN) Or PN <= 0 Then PN = 1 intPageSize = DataPageSize pageNums = intPageSize*(PN-1) Set rs = Server.CreateObject("ADODB.Recordset") IF PN=1 THEN rs.Open "Select top "&intPageSize&" * From [Plugin_Workschedule] where 1=1 "&sql&" Order By wID desc ",conn,1,1 ELSE rs.Open "Select top "&intPageSize&" * From [Plugin_Workschedule] where 1=1 "&sql&" and wID < ( SELECT Min(wID) FROM ( SELECT TOP "&pageNums&" wID FROM [Plugin_Workschedule] where 1=1 "&sql&" ORDER BY wID desc ) AS T ) Order By wID desc ",conn,1,1 END IF SQLstr="Select count(wID) As RecordSum From [Plugin_Workschedule] where 1=1 "&sql&" " '统计页码 Dim TotalRecords,TotalPages Set Rsstr=conn.Execute(SQLstr,1,1) TotalRecords=Rsstr("RecordSum") if Int(TotalRecords/DataPageSize)=TotalRecords/DataPageSize then TotalPages=TotalRecords/DataPageSize else TotalPages=Int(TotalRecords/DataPageSize)+1 end if Rsstr.Close Set Rsstr=Nothing If PN > TotalPages Then PN = TotalPages '翻页代码开始 strCounter = strCounter & " "&EasyCrm.pagelist("index.asp", PN,TotalPages,TotalRecords)&"" '翻页代码结束 Dim i i = 0 Do While Not rs.BOF And Not rs.EOF i = i + 1 strToPrint = strToPrint & " <tr class=""tr"">" & VBCrlf if rs("wYd") = 1 then strToPrint = strToPrint & " <td class=""td_l_c""><img src="""&SiteUrl&skinurl&"images/ico/message_old.png""></td>" & VBCrlf else strToPrint = strToPrint & " <td class=""td_l_c""><img src="""&SiteUrl&skinurl&"images/ico/message_new.png""></td>" & VBCrlf end if strToPrint = strToPrint & " <td class=""td_l_c"">" & rs("wID") & "</td>" & VBCrlf strToPrint = strToPrint & " <td class=""td_l_c"">" & rs("wCompletiontime") & "</td>" & VBCrlf strToPrint = strToPrint & " <td class=""td_l_c"">" & rs("wClass") & "</td>" & VBCrlf if rs("wStar")="" or isnull(rs("wStar")) then strToPrint = strToPrint & " <td class=""td_l_c"">无</td>" & VBCrlf elseif rs("wStar") =1 then strToPrint = strToPrint & " <td class=""td_l_c""><img src=""ico/star.png""></td>" & VBCrlf elseif rs("wStar") =2 then strToPrint = strToPrint & " <td class=""td_l_c""><img src=""ico/star.png""><img src=""ico/star.png""></td>" & VBCrlf elseif rs("wStar") =3 then strToPrint = strToPrint & " <td class=""td_l_c""><img src=""ico/star.png""><img src=""ico/star.png""><img src=""ico/star.png""></td>" & VBCrlf elseif rs("wStar") =4 then strToPrint = strToPrint & " <td class=""td_l_c""><img src=""ico/star.png""><img src=""ico/star.png""><img src=""ico/star.png""><img src=""ico/star.png""></td>" & VBCrlf elseif rs("wStar") =5 then strToPrint = strToPrint & " <td class=""td_l_c""><img src=""ico/star.png""><img src=""ico/star.png""><img src=""ico/star.png""><img src=""ico/star.png""><img src=""ico/star.png""></td>" & VBCrlf end if strToPrint = strToPrint & " <td class=""td_l_l""><a href='?action=view&wID=" & rs("wID") & "&PN="&PN&"'>" & rs("wTitle") & "</a></td>" & VBCrlf strToPrint = strToPrint & " <td class=""td_l_c"">" & rs("wUserb") & "</td>" & VBCrlf if rs("wSH") = 1 then strToPrint = strToPrint & " <td class=""td_l_c"">待审核</td>" & VBCrlf else strToPrint = strToPrint & " <td class=""td_l_c"">" & rs("wState") & "</td>" & VBCrlf end if if rs("wMsg") = 1 then strToPrint = strToPrint & " <td class=""td_l_c""><img src=""ico/new.gif""></td>" & VBCrlf else strToPrint = strToPrint & " <td class=""td_l_c"">暂无</td>" & VBCrlf end if strToPrint = strToPrint & " <td class=""td_l_c"">" & rs("wUser") & "</td>" & VBCrlf if inStr(Plugin_Workschedule_manage,session("CRM_name"))>0 or Session("CRM_level")=9 then strToPrint = strToPrint & " <td class=""td_l_c"">" & VBCrlf strToPrint = strToPrint & " <input type=""button"" class=""button_info_edit"" value=' ' title="""&L_Edit&""" onClick=""window.location.href='?action=edit&wID=" & rs("wID") & "&PN="&PN&"'"" />" & VBCrlf strToPrint = strToPrint & " <input type=""button"" class=""button_info_del"" value=' ' title="""&L_Del&""" onClick="" if(confirm('"&Alert_del_YN&"'))window.location.href='?action=delete&wID=" & rs("wID") & "&PN="&PN&"';else return false;"" />" & VBCrlf strToPrint = strToPrint & " </td>" & VBCrlf end if strToPrint = strToPrint & " </tr>" & VBCrlf If i >= intPageSize Then Exit Do rs.MoveNext Loop rs.Close Set rs = Nothing %> <!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 src="<%=SiteUrl&skinurl%>TQEditor/TQEditor.js" type="text/javascript"></script> <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 language="JavaScript"> <!-- function CheckInput() { if(document.all.wCompletiontime.value == ""){ alert("任务要求完成时间不能为空!"); document.all.wCompletiontime.focus(); return false; } if(document.all.wTitle.value == ""){ alert("任务标题不能为空!"); document.all.wTitle.focus(); return false; } if(document.all.wUserb.value == ""){ alert("负责人不能为空!"); document.all.wUserb.focus(); return false; } } --> </script> </head> <body style="padding-top:35px;"> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="top_bg"> <tr> <td class="top_left td_t_n td_r_n">当前位置:功能插件 > 任务发布</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> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" class="td_n pdr10 pdt10"> <div class="MenuboxS"> <ul> <li <%if otype="Main" then%>class="hover"<%end if%>><span><a href="?action=List&otype=Main">全部事项</a></span></li> <li class="" id="CheckA"><span><a href="javascript:void(0)" style="cursor:pointer">高级搜索</a></span></li> <li <%if otype="Item1" then%>class="hover"<%end if%>><span><a href="?action=Item1&otype=Item1">待完成</a></span></li> <li <%if otype="Item2" then%>class="hover"<%end if%>><span><a href="?action=Item2&otype=Item2">待审核</a></span></li> <li <%if otype="Item3" then%>class="hover"<%end if%>><span><a href="?action=Item3&otype=Item3">已完成</a></span></li> <li <%if otype="Item4" then%>class="hover"<%end if%>><span><a href="?action=Item4&otype=Item4">未完成</a></span></li> <li <%if otype="Item5" then%>class="hover"<%end if%>><span><a href="?action=Item5&otype=Item5">草稿箱</a></span></li> <% if inStr(Plugin_Workschedule_manage,session("CRM_name"))>0 or Session("CRM_level") = 9 then %> <li <%if otype="Add" then%>class="hover"<%end if%>><span><a href="?action=Add&otype=Add">新增事项</a></span></li> <li <%if otype="Manage" then%>class="hover"<%end if%>><span><a href="?action=Manage&otype=Manage">高级管理</a></span></li> <%end if%> </ul> </div> </td> </tr> </table> <div id="SearchBox" style="position: absolute; width:100%; height:450px; background:#ffffff; display:none; z-index:10;"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" class="td_n pdl10 pdr10 pdt10 pdb10"> <form name="searchForm" action="?subAction=searchItem&otype=<%=otype%>" method="post"> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <tr class="tr_t"> <td class="td_l_l" COLSPAN="6"><B><%=L_Top_Search%> <font color="#FFFFFF">(*)</font></B></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1" style="margin-bottom:10px;"> <col width="100" /><col width="160" /><col width="100" /><col width="100" /><col width="100" /> <tr> <td class="td_l_c title" style="border-top:0;">任务关键词</td> <td class="td_r_l" style="border-top:0;"><input name="wTitle" type="text" id="wTitle" class="int" size="20" value="<%=Session("Search_Plugin_Workschedule_wTitle")%>" ></td> <td class="td_l_c title" style="border-top:0;">负责人</td> <td class="td_r_l" style="border-top:0;"><% If Session("CRM_level") = 9 Then %><% = EasyCrm.UserList(2,"User",""&Session("Search_Plugin_Workschedule_wUserb")&"") %><%else%><% = EasyCrm.UserList(1,"User",""&Session("Search_Plugin_Workschedule_wUserb")&"") %><%end if%></td> <td class="td_l_c title" style="border-top:0;">到期时间</td> <td class="td_r_l" style="border-top:0;"><input name="TimeBegin" type="text" id="TimeBegin" class="Wdate" value="<%=Session("Search_Plugin_Workschedule_TimeBegin")%>" style="width:130px;" onFocus="WdatePicker({dateFmt:'yyyy-MM-dd HH:mm:ss'})" /> ~ <input name="TimeEnd" type="text" id="TimeEnd" class="Wdate" value="<%=Session("Search_Plugin_Workschedule_TimeEnd")%>" style="width:130px;" onFocus="WdatePicker({dateFmt:'yyyy-MM-dd HH:mm:ss'})" /></td> </tr> <tr> <td class="td_r_l" colspan="6" style="padding:5px 10px;"> <input type="submit" name="Submit" class="button45" 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> <% action = Trim(Request("action")) Select Case action Case "Install" Call Install() Case "Add" Call infoadd() Case "save" Call infosave() Case "view" Call infoview() Case "infore" Call infore() Case "inforepf" Call inforepf() Case "Audit" Call Audit() Case "edit" Call infoedit() Case "saveEdit" Call infosaveEdit() Case "Manage" Call infoManage() Case "Managesave" Call infoManagesave() Case "delete" Call infodelete() Case Else Call infolist() End Select %> <% Sub infolist() %> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" class="td_n pdl10 pdr10 pdt10 pdb10"> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <tr class="tr_t"> <td width="50" class="td_l_c">阅读</td> <td width="80" class="td_l_c">编号</td> <td width="130" class="td_l_c">期限</td> <td width="80" class="td_l_c">分类</td> <td width="100" class="td_l_c">星标</td> <td class="td_l_c">任务标题</td> <td width="80" class="td_l_c">负责人</td> <td width="60" class="td_l_c">进度</td> <td width="60" class="td_l_c">反馈</td> <td width="60" class="td_l_c">发布人</td> <%if inStr(Plugin_Workschedule_manage,session("CRM_name"))>0 or Session("CRM_level")=9 then%> <td width="100" class="td_l_c">管理</td> <%end if%> </tr> <% = strToPrint %> </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("index.asp", PN,TotalPages,TotalRecords)%> </td> </tr> </table> </div> <% end sub %> <% Sub infoadd() %><style>body{padding-bottom:55px;}</style> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" class="td_n pdl10 pdr10 pdt10 pdb10"> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <tr class="tr_t"> <td class="td_l_l" COLSPAN="6"><B>新增 <font color="#FFF">(*)</font></B></td> </tr> </table> <form name="infoadd" id="infoadd" action="?action=save" method="post" onSubmit="return CheckInput();"> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="100" /><col width="300" /><col width="100" /> <tr> <td class="td_l_c title" style="border-top:0;">分类</td> <td class="td_r_l" style="border-top:0;" colspan=3> <% str = split(""&Plugin_Workschedule_class&"",",") for i = 0 to ubound(str) response.Write "<input name=""wClass"" type=""radio"" class=""noborder"" value="""&str(i)&"""> "&str(i)&" " next response.Write "<input name=""wClass"" type=""radio"" class=""noborder"" value=""草稿""> 草稿 " %> </td> </tr> <tr> <td class="td_l_c title">任务标题</td> <td class="td_r_l"><input name="wTitle" type="text" class="int" id="wTitle" size="40"> <font color="#ff0000">*</font></td> <td class="td_l_c title" >要求完成时间</td> <td class="td_r_l" ><input name="wCompletiontime" type="text" maxlength="10" id="wCompletiontime" class="Wdate" size="25" onFocus="WdatePicker({dateFmt:'yyyy-MM-dd HH:mm:00'})" value="" /> <font color="#ff0000">*</font></td> </tr> <tr> <td class="td_l_c title">任务星标</td> <td class="td_r_l" colspan=3> <input name="wStar" type="radio" class="noborder" value="" checked> 无 <input name="wStar" type="radio" class="noborder" value="1"> <img src="ico/star.png"> <input name="wStar" type="radio" class="noborder" value="2"> <img src="ico/star.png"><img src="ico/star.png"> <input name="wStar" type="radio" class="noborder" value="3"> <img src="ico/star.png"><img src="ico/star.png"><img src="ico/star.png"> <input name="wStar" type="radio" class="noborder" value="4"> <img src="ico/star.png"><img src="ico/star.png"><img src="ico/star.png"><img src="ico/star.png"> <input name="wStar" type="radio" class="noborder" value="5"> <img src="ico/star.png"><img src="ico/star.png"><img src="ico/star.png"><img src="ico/star.png"><img src="ico/star.png"> </td> </tr> <tr> <td class="td_l_c title">负责人</td> <td class="td_r_l" colspan=3> <font color="#ff0000">主要:</font><% = EasyCrm.UserList(2,"wUserb","") %> <font color="#ff0000">*</font> <font color="#ff0000">协助:</font> <% Set rsm = Server.CreateObject("ADODB.Recordset") rsm.Open "Select * From [user] ",conn,1,1 Do While Not rsm.BOF And Not rsm.EOF %> <input type="checkbox" name="wUsers" value="<%=rsm("uName")%>"> <%=rsm("uName")%> <% rsm.MoveNext Loop rsm.Close Set rsm = Nothing %></td> </tr> <tr> <td class="td_l_c title">内容</td> <td class="td_r_l" colspan=3 style="padding:10px;"><textarea name="wContent" id="wContent" style="width:80%;height:150px;"></textarea> </td> </tr> </table> </td> </tr> </table> <div class="fixed_bg_B"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" class="td_n Bottom_pd "> <input name="wUser" type="hidden" id="wUser" value="<%=Session("CRM_name")%>"> <input type="submit" name="Submit" class="button45" value="保存"> <input name="Back" type="button" id="Back" class="button43" value="<%=L_Back%>" onClick="history.back();"> </td> </tr> </table> </div> </form> <script type="text/javascript"> new tqEditor('wContent',{toolbar: 'crm', imageUploadUrl: '<%=SiteUrl&skinurl%>TQEditor/UpLoad.asp?oUpLoadType=Images', imageFileTypes: '*.jpg;*.gif;*.png;*.jpeg',auto_clean:true}); </script> <% End Sub Sub infosave() Dim wClass,wStar,wTitle,wContent,wUserb,wUsers,wUser,wCompletiontime wClass = Trim(Request("wClass")) wStar = Trim(Request("wStar")) wTitle = Trim(Request("wTitle")) wContent = Trim(Request("wContent")) wUserb = Trim(Request("wUserb")) wUsers = Trim(Request("wUsers")) wUser = Trim(Request("wUser")) wCompletiontime = Trim(Request("wCompletiontime")) if wClass="草稿" then wUserb = "" wCompletiontime = "2099-12-31 23:59:59" else if wUserb = "" or wCompletiontime = "" then Response.Write("<script>alert(""完成时间或主要负责人不能为空!"");history.back(1);</script>") end if end if Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select Top 1 * From [Plugin_Workschedule]",conn,3,2 rs.AddNew rs("wClass") = wClass rs("wStar") = wStar rs("wTitle") = wTitle rs("wContent") = wContent rs("wState") = ecarr(1) rs("wUserb") = wUserb rs("wUsers") = wUsers rs("wUser") = wUser rs("wCompletiontime") = wCompletiontime rs("wTime") = now() rs("wMsg") = 0 rs("wSH") = 0 rs("wYd") = 0 rs.Update rs.Close Set rs = Nothing Response.Redirect("index.asp") End Sub Sub infoview() Dim wId wId = CLng(ABS(Request("wId"))) Dim wClass,wTitle,wContent,wUserb,wUsers,wState,wSH,wCompletiontime Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From [Plugin_Workschedule] Where wId = " & wId,conn,1,1 If rs.RecordCount <> 1 Then Response.Write "<script>alert(""不存在"");</script>" wClass = rs("wClass") wTitle = rs("wTitle") wContent = rs("wContent") wUserb = rs("wUserb") wUsers = rs("wUsers") wState = rs("wState") wUser = rs("wUser") wSH = rs("wSH") wCompletiontime = rs("wCompletiontime") rs.Close Set rs = Nothing if Session("CRM_name") = ""&wUserb&"" then conn.execute ("UPDATE Plugin_Workschedule SET wYd=1 Where wID ="&wID&" ") end if %> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <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"><B>查看 <font color="#FFF">(*)</font></B></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="100" /><col width="350" /><col width="100" /> <tr> <td class="td_l_c title" style="border-top:0;">分类</td> <td class="td_r_l" style="border-top:0;"><%=wClass%></td> <td class="td_l_c title" style="border-top:0;">要求完成时间</td> <td class="td_r_l" style="border-top:0;"><%=wCompletiontime%></td> </tr> <tr> <td class="td_l_c title">任务标题</td> <td class="td_r_l"><%=wTitle%></td> <td class="td_l_c title">当前进度</td> <td class="td_r_l"><%=wState%></td> </tr> <tr> <td class="td_l_c title">负责人</td> <td class="td_r_l" colspan=3> <font color="#ff0000">主要:</font><%=wUserb%> <font color="#ff0000">协助:</font><%=wUsers%></td> </tr> <tr> <td class="td_l_c title">内容</td> <td class="td_r_l" colspan="3"><%=wContent%> </td> </tr> <% if wSH = "1" and wState = ""&ecarr(0)&"" then%> <tr> <td class="td_l_c title">审核</td> <td class="td_r_l" colspan="3"> <input type="button" class="button46" value="通过" onClick="window.location.href='?action=Audit&wID=<%=wID%>&SHtype=通过'" /> <input type="button" class="button47" value="拒绝" onClick="window.location.href='?action=Audit&wID=<%=wID%>&SHtype=拒绝'" /></td> </tr> <%end if%> </table> <% Dim rsre Set rsre = Server.CreateObject("ADODB.Recordset") rsre.Open "Select * From Plugin_Workschedule_re Where wId = " & wId&" Order By rId Desc",conn,1,1 Do While Not rsre.BOF And Not rsre.EOF %> <style>.titletips { background-color:#ebfffc;border:1px solid #00c8ab;} </style> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1" style="margin-top:10px;"> <col width="100" /> <tr> <td class="td_l_c titletips">进度</td> <td class="td_r_l titletips"><%=rsre("rState")%> ( Time : <%=rsre("rTime")%> )</td> </tr> <tr> <td class="td_l_c title">内容</td> <td class="td_r_l"><%=rsre("rContent")%></td> </tr> <%if rsre("rRE")<>"" then %> <tr> <td class="td_l_c title">领导批复</td> <td class="td_r_l"><%=rsre("rRE")%></td> </tr> <%elseif Session("CRM_level") = 9 and rRE="" then %> <form name="inforepf" id="inforepf" action="?action=inforepf" method="post"> <tr> <td class="td_l_c title">领导批复</td> <td class="td_r_l" style="padding:10px;"><textarea name="rRE" id="rRE" style="width:400px;height:100px;"></textarea></td> </tr> <tr> <td class="td_l_l " colspan=2 style="padding:5px 10px;"> <input name="rId" type="hidden" id="rId" value="<%=rsre("rID")%>"> <input name="wID" type="hidden" id="wID" value="<%=wID%>"> <input type="submit" name="Submit" class="button45" value="保存"> <input name="Back" type="button" id="Back" class="button43" value="<%=L_Back%>" onClick="history.back();"> </td> </tr> </form> <%end if%> </table> <% rsre.MoveNext Loop rsre.Close Set rsre = Nothing %> <% if wSH <> "2" And Session("CRM_name") = ""&wUserb&"" then%> <script language="JavaScript"> function CheckInput(f){for(i=0;i<f.rState.length;i++)if(f.rState[i].checked)return true;alert('进度不能为空!')return false} </script> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1" style="margin-top:10px;"> <tr class="tr_t"> <td class="td_l_l" COLSPAN="6"><B>负责人反馈 <font color="#color:#CC0000">(*)</font></B></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1" style="margin-bottom:10px;"> <form name="infore" id="infore" action="?action=infore" method="post" onSubmit="return CheckInput(this);"> <col width="100" /> <tr> <td class="td_l_c title" style="border-top:0;">进度</td> <td class="td_r_l" style="border-top:0;"> <% str = split(""&Plugin_Workschedule_State&"",",") for i = 0 to ubound(str) response.Write "<input name=""rState"" type=""radio"" class=""noborder"" value="""&str(i)&"""> "&str(i)&" " next %> </td> </tr> <tr> <td class="td_l_c title">内容</td> <td class="td_r_l" style="padding:10px;"><textarea name="rContent" id="rContent" style="width:80%;height:150px;"><%=rContent%></textarea> </td> </tr> <tr> <td class="td_l_l " colspan=2 style="padding:5px 10px;"> <% if wSH <> "2" And Session("CRM_name") = ""&wUserb&"" then%> <input name="wId" type="hidden" id="wId" value="<%=wId%>"> <input name="rUser" type="hidden" id="rUser" value="<%=Session("CRM_name")%>"> <input type="submit" name="Submit" class="button45" value="保存"> <%end if%> <input name="Back" type="button" id="Back" class="button43" value="<%=L_Back%>" onClick="history.back();"> </td> </tr> </table> <%end if%><BR> </td> </tr> </table> </form> <script type="text/javascript"> new tqEditor('rContent',{toolbar: 'crm', imageUploadUrl: '<%=SiteUrl&skinurl%>TQEditor/UpLoad.asp?oUpLoadType=Images', imageFileTypes: '*.jpg;*.gif;*.png;*.jpeg',auto_clean:true}); </script> <% End Sub Sub infore() wssarr = split(""&Plugin_Workschedule_State&"",",") Dim wID,rState,rContent,rUser wID = Trim(Request("wID")) rState = Trim(Request("rState")) rContent = Trim(Request("rContent")) rUser = Trim(Request("rUser")) if wssarr(0)=rState then conn.execute ("UPDATE Plugin_Workschedule SET wState='"&rState&"',wMsg=1,wSH=1 Where wID ="&wID&" ") else conn.execute ("UPDATE Plugin_Workschedule SET wState='"&rState&"',wMsg=1,wSH=0 Where wID ="&wID&" ") end if conn.execute ("insert into Plugin_Workschedule_re(wID,rState,rContent,rUser,rTime) values('"&wID&"','"&rState&"','"&rContent&"','"&Session("CRM_name")&"','"&now()&"')") Response.Redirect("index.asp") End Sub Sub inforepf() Dim rID,wID,rRe rID = Trim(Request("rID")) wID = Trim(Request("wID")) rRe = Trim(Request("rRe")) if rRe<>"" then conn.execute ("UPDATE Plugin_Workschedule_re SET rRe='"&rRe&"' Where rID ="&rID&" ") conn.execute ("UPDATE Plugin_Workschedule SET wMsg=0 Where wID ="&wID&" ") end if Response.Redirect("index.asp?action=view&wID="&wID&"") End Sub Sub Audit() Dim wID wID = Trim(Request("wID")) SHtype = Trim(Request("SHtype")) if SHtype="通过" then conn.execute ("UPDATE Plugin_Workschedule SET wSH = '2' Where wID ="&wID&" ") else conn.execute ("UPDATE Plugin_Workschedule SET wSH = '0', wYd = '2' , wState = '" & ecarr(1) & "' Where wID ="&wID&" ") end if Response.Redirect("?action=Item3&otype=Item3") End Sub Sub infoedit() Dim wId wId = CLng(ABS(Request("wId"))) Dim wClass,wStar,wTitle,wContent,wUserb,wUsers,wState,wSH,wCompletiontime Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From [Plugin_Workschedule] Where wId = " & wId,conn,1,1 If rs.RecordCount <> 1 Then Response.Write "<script>alert(""不存在"");</script>" wClass = rs("wClass") wStar = rs("wStar") if wStar="" then wStar=0 wTitle = rs("wTitle") wContent = rs("wContent") wUserb = rs("wUserb") wUsers = rs("wUsers") wState = rs("wState") wUser = rs("wUser") wSH = rs("wSH") wCompletiontime = rs("wCompletiontime") rs.Close Set rs = Nothing %><style>body{padding-bottom:55px;}</style> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" class="td_n pdl10 pdr10 pdt10 pdb10"> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <tr class="tr_t"> <td class="td_l_l" COLSPAN="6"><B>编辑 <font color="#FFF">(*)</font></B></td> </tr> </table> <form name="infoEdit" id="infoEdit" action="?action=saveEdit&PN=<%=PNN%>" method="post" onSubmit="return CheckInput();"> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="100" /><col width="350" /><col width="100" /> <tr> <td class="td_l_c title" style="border-top:0;">分类</td> <td class="td_r_l" style="border-top:0;"> <% str = split(""&Plugin_Workschedule_class&"",",") for i = 0 to ubound(str) if wClass = str(i) then response.Write "<input name=""wClass"" type=""radio"" class=""noborder"" value="""&str(i)&""" checked> "&str(i)&" " else response.Write "<input name=""wClass"" type=""radio"" class=""noborder"" value="""&str(i)&""" > "&str(i)&" " end if next if wClass="草稿" then response.Write "<input name=""wClass"" type=""radio"" class=""noborder"" value=""草稿"" checked> 草稿" else response.Write "<input name=""wClass"" type=""radio"" class=""noborder"" value=""草稿"" > 草稿" end if %> </td> <td class="td_l_c title" style="border-top:0;">要求完成时间</td> <td class="td_r_l" style="border-top:0;"><input name="wCompletiontime" type="text" maxlength="10" id="wCompletiontime" class="Wdate" size="20" onFocus="WdatePicker({dateFmt:'yyyy-MM-dd HH:mm:00'})" value="<%=wCompletiontime%>" /> <font color="#ff0000">*</font></td> </tr> <tr> <td class="td_l_c title">任务标题</td> <td class="td_r_l"><input name="wTitle" type="text" class="int" id="wTitle" size="40" value="<%=wTitle%>" > <font color="#ff0000">*</font></td> <td class="td_l_c title">任务星标</td> <td class="td_r_l"> <input name="wStar" type="radio" class="noborder" value="" <%if wStar=0 then%>checked<%end if%>> 无 <input name="wStar" type="radio" class="noborder" value="1" <%if wStar=1 then%>checked<%end if%>> <img src="ico/star.png"> <input name="wStar" type="radio" class="noborder" value="2" <%if wStar=2 then%>checked<%end if%>> <img src="ico/star.png"><img src="ico/star.png"> <input name="wStar" type="radio" class="noborder" value="3" <%if wStar=3 then%>checked<%end if%>> <img src="ico/star.png"><img src="ico/star.png"><img src="ico/star.png"> <input name="wStar" type="radio" class="noborder" value="4" <%if wStar=4 then%>checked<%end if%>> <img src="ico/star.png"><img src="ico/star.png"><img src="ico/star.png"><img src="ico/star.png"> <input name="wStar" type="radio" class="noborder" value="5" <%if wStar=5 then%>checked<%end if%>> <img src="ico/star.png"><img src="ico/star.png"><img src="ico/star.png"><img src="ico/star.png"><img src="ico/star.png"> </td> </tr> <tr> <td class="td_l_c title">负责人</td> <td class="td_r_l" colspan=3> <font color="#ff0000">主要:</font><% = EasyCrm.UserList(2,"wUserb",""&wUserb&"") %> <font color="#ff0000">*</font> <font color="#ff0000">协助:</font> <% Set rsm = Server.CreateObject("ADODB.Recordset") rsm.Open "Select * From [user] ",conn,1,1 Do While Not rsm.BOF And Not rsm.EOF %> <input type="checkbox" name="wUsers" value="<%=rsm("uName")%>" <%if inStr(wUsers,rsm("uName"))>0 then%>checked<%end if%>> <%=rsm("uName")%> <% rsm.MoveNext Loop rsm.Close Set rsm = Nothing %></td> </tr> <tr> <td class="td_l_c title">内容</td> <td class="td_r_l" colspan="3" style="padding:10px;"><textarea name="wContent" id="wContent" style="width:100%;height:200px;"><%=wContent%></textarea> </td> </tr> </table> </td> </tr> </table> <div class="fixed_bg_B"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" class="td_n Bottom_pd "> <input name="wId" type="hidden" id="wId" value="<%=wId%>"> <input type="submit" name="Submit" class="button45" value="保存"> <input name="Back" type="button" id="Back" class="button43" value="<%=L_Back%>" onClick="history.back();"> </td> </tr> </table> </div> </form> <script type="text/javascript"> new tqEditor('wContent',{toolbar: 'crm', imageUploadUrl: '<%=SiteUrl&skinurl%>TQEditor/UpLoad.asp?oUpLoadType=Images', imageFileTypes: '*.jpg;*.gif;*.png;*.jpeg',auto_clean:true}); </script> <% End Sub Sub infosaveEdit() Dim wId wId = CLng(ABS(Request("wId"))) PN = Request("PN") If Not IsNumeric(wId) Or wId <= 0 Then Response.Write "<script>alert(""不存在"");</script>" Dim wClass,wStar,wTitle,wContent,wUserb,wUsers,wUser,wCompletiontime wClass = Trim(Request("wClass")) wStar = Trim(Request("wStar")) wTitle = Trim(Request("wTitle")) wContent = Trim(Request("wContent")) wUserb = Trim(Request("wUserb")) wUsers = Trim(Request("wUsers")) wCompletiontime = Trim(Request("wCompletiontime")) Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select Top 1 * From [Plugin_Workschedule] Where wId = " & wId,conn,3,2 rs("wClass") = wClass rs("wStar") = wStar rs("wTitle") = wTitle rs("wContent") = wContent rs("wUserb") = wUserb rs("wUsers") = wUsers rs("wCompletiontime") = wCompletiontime rs("wTime") = now() rs.Update rs.Close Set rs = Nothing Response.Redirect("index.asp?PN="&PN&"") End Sub Sub infoManage() %> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" class="td_n pdl10 pdr10 pdt10 pdb10"> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <tr class="tr_t"> <td class="td_l_l" COLSPAN="6"><B>高级配置 <font color="#color:#CC0000">(*)</font></B></td> </tr> </table> <form name="Managesave" action="?action=Managesave" method="post" onSubmit="return CheckInput();"> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="100" /> <tr> <td class="td_l_c title" style="border-top:0;">工作分类</td> <td class="td_r_l" style="border-top:0;"> <input name="Plugin_Workschedule_class" type="text" class="int" id="Plugin_Workschedule_class" size="40" value="<%=Plugin_Workschedule_class%>"> <span class="info_help help01">不同分类之间用半角逗号分割,结尾不含逗号,下同。</span> </td> </tr> <tr> <td class="td_l_c title">当前进度</td> <td class="td_r_l"> <input name="Plugin_Workschedule_State" type="text" class="int" id="Plugin_Workschedule_State" size="60" value="<%=Plugin_Workschedule_State%>"> <span class="info_help help01">第一节点为进度终止,作为判断是否需要审核的条件。</span> </td> </tr> <tr> <td class="td_l_c title">发布权限</td> <td class="td_r_l" style="padding:10px;"> <table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1"> <col width="100" /> <% Set rsg = Server.CreateObject("ADODB.Recordset") rsg.Open "Select * From [system_group]",conn,1,1 Do While Not rsg.BOF And Not rsg.EOF %> <tr> <td class="td_l_c title"><%=rsg("gName")%></td> <td class="td_l_l"> <% Set rsm = Server.CreateObject("ADODB.Recordset") rsm.Open "Select * From [user] where uGroup="&rsg("gId")&" ",conn,1,1 Do While Not rsm.BOF And Not rsm.EOF %> <input type="checkbox" name="Plugin_Workschedule_manage" value="<%=rsm("uName")%>" <%if inStr(Plugin_Workschedule_manage,rsm("uName"))>0 then%>checked<%end if%>> <%=rsm("uName")%> <% rsm.MoveNext Loop rsm.Close Set rsm = Nothing %> </td> </tr> <% rsg.MoveNext Loop rsg.Close Set rsg = Nothing %> </table> </td> </tr> <tr> <td class="td_r_l" colspan="4"> <input type="submit" name="Submit" class="button45" value=" <%=L_Edit%> "> <input name="Back" type="button" id="Back" class="button43" value=" <%=L_Back%> " onClick="history.back();"> </td> </tr> </table> </form> </td> </tr> </table> <% End Sub Sub infoManagesave() Plugin_Workschedule_class = replace(Trim(Request.Form("Plugin_Workschedule_class")),CHR(34),"'") Plugin_Workschedule_State = replace(Trim(Request.Form("Plugin_Workschedule_State")),CHR(34),"'") Plugin_Workschedule_manage = replace(Trim(Request.Form("Plugin_Workschedule_manage")),CHR(34),"'") Dim TempStr TempStr = "" TempStr = TempStr & chr(60) & "%" & VbCrLf TempStr = TempStr & "Dim Plugin_Workschedule_class,Plugin_Workschedule_company,Plugin_Workschedule_manage" & VbCrLf TempStr = TempStr & "'详细配置" & VbCrLf TempStr = TempStr & "Plugin_Workschedule_class="& Chr(34) & Plugin_Workschedule_class & Chr(34) &" '工作分类" & VbCrLf TempStr = TempStr & "Plugin_Workschedule_State="& Chr(34) & Plugin_Workschedule_State & Chr(34) &" '当前进度" & VbCrLf TempStr = TempStr & "Plugin_Workschedule_manage="& Chr(34) & Plugin_Workschedule_manage & Chr(34) &" '权限" & VbCrLf TempStr = TempStr & "%" & chr(62) & VbCrLf ADODB_SaveToFile TempStr,"Config.asp" Response.Write("<script>alert(""修改成功!"");</script>") Response.Write "<script>location.href='?action=List&otype=Main';</script>" End Sub Sub infodelete() Dim wId wId = CLng(ABS(Request("wId"))) PN = Request("PN") If Not IsNumeric(wId) Or wId <= 0 Then Response.Write "<script>alert(""不存在"");</script>" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From [Plugin_Workschedule] Where wId = " & wId,conn,3,2 If rs.RecordCount <> 1 Then Response.Write "<script>alert(""不存在"");</script>" wId = rs("wId") rs.Delete rs.Update rs.Close Set rs = Nothing Response.Redirect("index.asp?PN="&PN&"") End Sub Sub ADODB_SaveToFile(ByVal strBody,ByVal File) On Error Resume Next Dim objStream,FSFlag,fs,WriteFile FSFlag = 1 If DEF_FSOString <> "" Then Set fs = Server.CreateObject(DEF_FSOString) If Err Then FSFlag = 0 Err.Clear Set fs = Nothing End If Else FSFlag = 0 End If If FSFlag = 1 Then Set WriteFile = fs.CreateTextFile(Server.MapPath(File),True) WriteFile.Write strBody WriteFile.Close Set Fs = Nothing Else Set objStream = Server.CreateObject("ADODB.Stream") If Err.Number=-2147221005 Then GBL_CHK_TempStr = "您的主机不支持ADODB.Stream,无法完成操作,请使用FTP等功能,将<font color=Red >data/config.asp</font>文件内容替换成框中内容" Err.Clear Set objStream = Noting Exit Sub End If With objStream .Type = 2 .Open .Charset = "GB2312" .Position = objStream.Size .WriteText = strBody .SaveToFile Server.MapPath(File),2 .Close End With Set objStream = Nothing End If End Sub Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If Err = 0 Then IsObjInstalled = True If Err = -2147352567 Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function %> <script src="../../data/calendar/WdatePicker.js"></script> </body> </html><% Set EasyCrm = nothing %>