link_task_add.asp
来自「适用于网络/信息企业」· ASP 代码 · 共 208 行
ASP
208 行
<!--#include file="../INC/Conn.asp"-->
<!--#include file="inc/Check.asp"-->
<!--#include file="inc/public.asp"-->
<!--#include File="Procedure.asp"-->
<%
dim Makking
Makking = Trim(Request.QueryString("Makking"))
'---------------------------------
select case Makking
case "save"
Link_Task_Time = Request.Form("year1")&"-"&Request.Form("month1")&"-"&Request.Form("day1")
Link_Task_Name = Request.Form("Link_Task_Name")
LinkMan_Name = Request.Form("LinkMan_Name")
Link_Fashion = Request.Form("Link_Fashion")
Link_Info = Request.Form("Link_Info")
Link_Task_Causation = Request.Form("Link_Task_Causation")
IF Request.Form("Link_Task_Name") = "" or Request.Form("LinkMan_Name") = "" or Request.Form("Link_Fashion") = "" or Request.Form("Link_Info") = "" or Link_Task_Time = "" or Request.Form("Link_Task_Causation") = "" Then
Save_title="·对不起，名称、时间、联系人、联系方式、联系信息、任务事由不能为空"
call Save_err()
End if
IF Request.QueryString("Link_Task_ID") = "" Then
Link_Task_ID = makerndid(30)
Do While Ranid_Link_Task(Link_Task_ID)
Link_Task_ID = makerndid(30)
Loop
Conn.Execute("Insert Into Link_Task (Buyer_ID,Link_Task_ID,Employee_ID,Link_Task_Name,LinkMan_Name,Link_Fashion,Link_Info,Link_Task_Causation,Link_Task_Time,DateTime,Link_Task_State) Values ('"& Request.QueryString("ID") &"','"& Link_Task_ID &"','"& Session("Eboer_CRM_Employee_ID") &"','"& Link_Task_Name &"','"& LinkMan_Name &"','"& Link_Fashion &"','"& Link_Info &"','"& Link_Task_Causation &"','"& cdate(Link_Task_Time) &"','"& now() &"','等待')")
Response.Write "<script>window.opener.location.reload()</script>"
Save_title="·添加成功"
call Save_ok()
Else
Conn.Execute("upDate Link_Task Set Link_Task_Name = '"& Link_Task_Name &"',LinkMan_Name = '"& LinkMan_Name &"',Link_Fashion = '"& Link_Fashion &"',Link_Info = '"& Link_Info &"',Link_Task_Causation = '"& Link_Task_Causation &"',Link_Task_Time = '"& cdate(Link_Task_Time) &"' Where Buyer_ID='"& Request.QueryString("ID") &"' and Link_Task_ID = '"& Request.QueryString("Link_Task_ID") &"' AND Employee_ID = '"& Session("Eboer_CRM_Employee_ID") &"'")
Save_title="·修改成功"
call Save_ok()
End IF
case ""
Set Rs = Conn.Execute("Select * From Link_Task Where Buyer_ID='"& Request.QueryString("ID") &"' and Link_Task_ID = '"& Request.QueryString("Link_Task_ID") &"'")
IF Not(Rs.Bof AND Rs.eof) Then
Link_Task_ID = Rs("Link_Task_ID")
Link_Task_Name = Rs("Link_Task_Name")
LinkMan_Name = Rs("LinkMan_Name")
Link_Fashion = Rs("Link_Fashion")
Link_Info = Rs("Link_Info")
Link_Task_Time = Rs("Link_Task_Time")
Link_Task_Causation = Rs("Link_Task_Causation")
End if
Rs.Close
Set Rs = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>亿博尔-客户关系管理系统</title>
</head>
<link href="Images/Admin.css" rel="stylesheet" type="text/css">
<body>
<table width="98%" height="40" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#D8D8D8">
<tr>
<td height="30" align="left" bgcolor="ffffff"><table width="100%" height="100%" border="0" cellpadding="3" cellspacing="0">
<tr bgcolor="eeeeee">
<td width="5%" align="center"><img src="Images/1.gif" width="13" height="12"></td>
<td width="85%"><span class="style2">管理中心 >>> 添加/修改联系任务</span></td>
<td width="10%" align="right"> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="98%" height="85%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#D8D8D8">
<tr>
<td valign="top" bgcolor="ffffff"><table width="95%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td align="center" valign="top" bgcolor="ffffff">
<form method='POST' name="form" action="Link_Task_Add.asp?Makking=save&ID=<%=Request.QueryString("ID")%>&Link_Task_ID=<%=Link_Task_ID%>">
<br>
<table width=100% border=0 align='center' cellpadding=2
cellspacing=1 bordercolordark=#ffffff bgcolor="#EBEBEB" class='size09'>
<tr>
<td width="22%" height="22" align="right" bgcolor="ffffff">任务名称：</td>
<td width="78%" height="22" bgcolor="ffffff">
<input name="Link_Task_Name" type="text" id="Link_Task_Name" value="<%=Link_Task_Name%>" size="30" maxlength="50">
<font color="#FF0000">*</font> </td>
</tr>
<tr>
<td width="22%" height="22" align="right" bgcolor="ffffff">时间安排：</td>
<td height="22" bgcolor="ffffff">
<select name="year1" class="all_box1">
<%
if Link_Task_Time = "" then
Link_Task_Time = Now()
end if
%>
<%for i=2005 to 2010%>
<option value="<%=i%>" <%if year(Link_Task_Time)=i then %>selected<% end if %>><%=i%>
</option>
<%next%>
</select>
年
<select name="month1" class="all_box1">
<%for i=1 to 12%>
<option value="<%=i%>"<%if month(Link_Task_Time)=i then %>selected<% end if %> ><%=i%>
</option>
<%next%>
</select>
月
<select name="day1" class="all_box1">
<%for i=1 to 31%>
<option value="<%=i%>"<%if day(Link_Task_Time)=i then %>selected<% end if %>><%=i%>
</option>
<%next%>
</select>
日 <font color="#FF0000">* <font color="#000000">具体时间在下面注明</font></font></td>
</tr>
<tr>
<td height="22" align="right" bgcolor="ffffff">联系人：</td>
<td height="22" bgcolor="ffffff">
<select name="LinkMan_Name">
<%
Set Rsl = Conn.Execute("Select * From LinkMan Where Buyer_ID='"& Request.QueryString("ID") &"'")
while Not Rsl.eof
%>
<option value="<%=Rsl("LinkMan_Name")%>"><%=Rsl("LinkMan_Name")%></option>
<%
Rsl.MoveNext
Wend
Rsl.Close
Set Rsl = Nothing
%>
</select> <font color="#FF0000">*</font> <a href="javascript:LinkMan_Add('<%=Request.QueryString("ID")%>');" >添加联系人</a></td>
</tr>
<tr>
<td width="22%" height="22" align="right" bgcolor="ffffff">联系方式：</td>
<td height="22" bgcolor="ffffff">
<select name="Link_Fashion">
<option value="电话联系">电话联系</option>
<option value="拜访客户">拜访客户</option>
<option value="传真资料">传真资料</option>
<option value="邮件发送">邮件发送</option>
<option value="其它方式">其它方式</option>
</select> <font color="#FF0000">*</font> </td>
</tr>
<tr>
<td width="22%" height="22" align="right" bgcolor="ffffff">联系信息：</td>
<td height="22" bgcolor="ffffff">
<input name="Link_Info" type="text" id="Link_Info" value="<%=Link_Info%>" size="30" maxlength="50">
<font color="#FF0000">*</font> </td>
</tr>
<tr>
<td width="22%" height="22" align="right" bgcolor="ffffff">任务事由：</td>
<td height="22" bgcolor="ffffff">
<textarea name="Link_Task_Causation" cols="40" rows="5" id="Link_Task_Causation"><%=Link_Task_Causation%></textarea>
<font color="#FF0000">*</font></td>
</tr>
</table>
<p>
<input name="B1" type="image" src="Images/refer.gif" width="36" height="21" border="0">
<%IF request.ServerVariables("http_referer")="" Then%><a href=""><img src="Images/back.gif" width="36" height="21" border="0" onClick="javascript:window.close()"></a><%Else%><a href="<%=request.ServerVariables("http_referer")%>"><img src="Images/back.gif" width="36" height="21" border="0"></a><%End IF%></p>
</form></td>
</tr>
</table>
</td>
</tr>
</table>
<%end select
Conn.Close
Set Conn = Nothing
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="6"></td>
</tr>
</table>
</body>
</html>
<script language="javascript">
<!--
function LinkMan_Add(id){
window.open("LinkMan_Add.asp?id="+id+"","","width=500,height=380");
}
//-->
</script>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?