link_log_add.asp
来自「适用于网络/信息企业」· ASP 代码 · 共 181 行
ASP
181 行
<!--#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"
IF Request.Form("LinkMan_Name") = "" or Request.Form("Link_Fashion") = "" or Request.Form("Link_Info") = "" or Request.Form("Link_Content") = "" Then
Save_title="·对不起，联系人、联系方式、联系信息、联系内容不能为空"
call Save_err()
End if
LinkMan_Name = Request.Form("LinkMan_Name")
Link_Fashion = Request.Form("Link_Fashion")
Link_Info = Request.Form("Link_Info")
Link_Content = Request.Form("Link_Content")
IF Request.QueryString("Link_Log_ID") = "" Then
Link_Log_ID = makerndid(30)
Do While Ranid_Link_Log(Link_Log_ID)
Link_Log_ID = makerndid(30)
Loop
Conn.Execute("Insert Into Link_Log (Buyer_ID,Link_Log_ID,Employee_ID,LinkMan_Name,Link_Fashion,Link_Info,Link_Content,DateTime,Auditing) Values ('"& Request.QueryString("ID") &"','"& Link_Log_ID &"','"& Session("Eboer_CRM_Employee_ID") &"','"& LinkMan_Name &"','"& Link_Fashion &"','"& Link_Info &"','"& Link_Content &"','"& now() &"','未审核')")
Response.Write "<script>window.opener.location.reload()</script>"
Save_title="·添加成功"
call Save_ok()
Else
Conn.Execute("upDate Link_Log Set LinkMan_Name = '"& LinkMan_Name &"',Link_Fashion = '"& Link_Fashion &"',Link_Info = '"& Link_Info &"',Link_Content = '"& Link_Content &"' Where Buyer_ID='"& Request.QueryString("ID") &"' and Link_Log_ID = '"& Request.QueryString("Link_Log_ID") &"' AND Employee_ID = '"& Session("Eboer_CRM_Employee_ID") &"'")
Save_title="·修改成功"
call Save_ok()
End IF
case ""
Set Rs = Conn.Execute("Select * From Link_Log Where Buyer_ID='"& Request.QueryString("ID") &"' and Link_Log_ID = '"& Request.QueryString("Link_Log_ID") &"'")
IF Not(Rs.Bof AND Rs.eof) Then
LinkMan_Name = Rs("LinkMan_Name")
Link_Fashion = Rs("Link_Fashion")
Link_Info = Rs("Link_Info")
Link_Content = Rs("Link_Content")
End if
Rs.Close
Set Rs = Nothing
Set Rs = Conn.Execute("Select * From Link_Log where Link_Log_ID = '"& Request.QueryString("Link_Log_ID") &"'")
IF Not(Rs.eof and Rs.bof) Then
IF Trim(Rs("Auditing")) = "已审核" Then
Response.Write("本记录已存档，已不能进行修改与删除等操作")
Response.End()
END IF
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_Log_Add.asp?Makking=save&ID=<%=Request.QueryString("ID")%>&Link_Log_ID=<%=Request.QueryString("Link_Log_ID")%>">
<br>
<table width=100% border=0 align='center' cellpadding=2
cellspacing=1 bordercolordark=#ffffff bgcolor="#EBEBEB" class='size09'>
<tr>
<td width="25%" height="12" align="right" bgcolor="ffffff">联系人：</td>
<td height="12" 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="25%" height="-1" align="right" bgcolor="ffffff">联系方式：</td>
<td height="6" 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="25%" height="-1" align="right" bgcolor="ffffff">联系信息：</td>
<td height="12" 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="25%" height="12" align="right" bgcolor="ffffff">联系内容：</td>
<td height="12" bgcolor="ffffff"><textarea name="Link_Content" cols="40" rows="5" id="Link_Content"><%=Link_Content%></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 + -
显示快捷键?