📄 follow_add.asp
字号:
<!--#include file ="date.asp"-->
<!--#include file ="conn.asp"-->
<style type="text/css">
<!--
.STYLE2 {font-size: 18px}
.STYLE3 {
font-size: 18px;
font-weight: bold;
color: #FFFFFF;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
body {
background-color: #ECF2FF;
margin-left: 0px;
margin-right: 0px;
}
.STYLE5 {
font-size: 12px;
color: #000055;
}
.STYLE18 {font-size: 16}
.STYLE19 {font-size: 12px}
.STYLE25 {font-size: 14px; font-weight: bold; }
.STYLE13 {font-size: 12px; font-weight: bold; }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<BODY leftmargin="10" topmargin="0">
<p align="center" class="STYLE2">
<table width="100%" height="35" border="0" background="image/top.gif" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"><span class="STYLE3">新增客户</span></div></td>
</tr>
</table>
<% if request("action")="save" then
id=request.form("id")
set rr=server.CreateObject("adodb.recordset")
wwdsql="select * from follow"
rr.open wwdsql,conn,1,3
rr.addnew
rr("company_id")=request.form("id")
rr("seller")=request.form("seller")
rr("sellerr")=request.form("sellerr")
rr("customer")=request.form("customer")
rr("date")=request.form("date")
rr("time1")=request.form("time1")
rr("time2")=request.form("time2")
rr("mode")=request.form("mode")
rr("aim")=request.form("aim")
rr("record")=request.form("record")
rr("ana")=request.form("ana")
rr("plan")=request.form("plan")
rr.update
set rs=server.CreateObject("adodb.recordset")
wwdsqs="select * from company Where id="&id
rs.open wwdsqs,conn,1,3
rs("last_date")=request.form("date")
rs.update
%>
<br><br>保存成功！
<br><br>
<%
else%>
<%id=request("id")
exec="select * from company where id="&id
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<form name="form1" method="post" action="follow_add.asp?action=save">
<label>
<input name="id" type="hidden" value="<%=rs("id")%>">
</label>
<p align="center">
<table width="579" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="28" colspan="4" background="../image/headerbg.gif"><strong>基本信息</strong></td>
</tr>
<tr>
<td width="80" height=28 class="STYLE19" ><strong>销 售 员：</strong></td>
<td width="200" class="STYLE19"> <%=rs("seller")%></td>
<td width="80" class="STYLE13">是否共享：</td>
<td width="209" class="STYLE19"> <%=rs("share")%></td>
</tr>
<tr>
<td height="28" class="STYLE13">客户名称：</td>
<td colspan="3" class="STYLE19"> <%=rs("name")%></td>
</tr>
<tr>
<td height="28" class="STYLE13">客户简称：</td>
<td class="STYLE19"> <%=rs("short")%></td>
<td class="STYLE13">所属区域：</td>
<td class="STYLE19"> <%=rs("area")%></td>
</tr>
<tr>
<td height="28" class="STYLE13">单位地址：</td>
<td colspan="3" class="STYLE19"> <%=rs("address")%></td>
</tr>
<tr>
<td height="28" class="STYLE13">公司电话：</td>
<td class="STYLE19"> <%=rs("tel")%></td>
<td class="STYLE13">传<span class="STYLE19"> </span><span class="STYLE19"> </span>真：</td>
<td class="STYLE19"> <%=rs("fax")%></td>
</tr>
<tr>
<td height="28" class="STYLE13">所属行业：</td>
<td class="STYLE19"> <%=rs("bus")%></td>
<td class="STYLE13">企业性质：</td>
<td class="STYLE19"> <%=rs("nature")%></td>
</tr>
<tr>
<td height="28" class="STYLE13">客户来源：</td>
<td class="STYLE19"> <%=rs("source")%></td>
<td class="STYLE13">客户类别：</td>
<td class="STYLE19"> <%=rs("cate")%></td>
</tr>
<tr>
<td height="28" class="STYLE13">企业描述：</td>
<td colspan="3" class="STYLE19"> <%=rs("des")%></td>
</tr>
<tr>
<td height="28" class="STYLE13">主管部门：</td>
<td class="STYLE19"> <%=rs("depart")%></td>
<td class="STYLE13">负责人：</td>
<td class="STYLE19"> <%=rs("charge")%></td>
</tr>
<tr>
<td height="28" class="STYLE13">职务：</td>
<td class="STYLE19"> <%=rs("charge_post")%></td>
<td class="STYLE19"><span class="STYLE13">手机：</span></td>
<td class="STYLE19"> <%=rs("charge_phone")%></td>
</tr>
<% if rs("second")<>"" then %>
<tr>
<td height="28" class="STYLE13">其他联系人：</td>
<td class="STYLE19"> <%=rs("second")%></td>
<td class="STYLE19"><span class="STYLE13">联系电话：</span></td>
<td class="STYLE19"> <%=rs("second_tel")%></td>
</tr>
<%end if%>
<% if rs("third")<>"" then %>
<tr>
<td height="28" class="STYLE13">其他联系人：</td>
<td class="STYLE19"> <%=rs("third")%></td>
<td class="STYLE19"><span class="STYLE13">联系电话：</span></td>
<td class="STYLE19"> <%=rs("third_tel")%></td>
</tr><%end if%>
</table>
<%
idd=rs("id")
exe="select * from follow where company_id='"&idd&"'"
set ds=server.createobject("adodb.recordset")
ds.open exe,conn,1,1
Do While Not ds.Eof
%><br>
<table width="579" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="28" colspan="4" background="../image/headerbg.gif"><span class="STYLE25">跟踪情况</span></td>
</tr>
<tr>
<td height=28 width="80" ><span class="STYLE19">拜访销售员：</span></td>
<td width="200" class="STYLE19"><span class="STYLE19"> </span><%=ds("seller")%>
</td>
<td width="80" class="STYLE19"><span class="STYLE19">拜访人：</span></td>
<td width="209" class="STYLE19"><span class="STYLE19">
<%=ds("customer")%>
</span></td>
</tr>
<tr>
<td height="28"><span class="STYLE19">拜访时间：</span></td>
<td class="STYLE19"><span class="STYLE19"> </span><%=ds("date")%><span class="STYLE19"> </span><%=ds("time1")%>-<%=ds("time2")%></td>
<td class="STYLE19">拜访方式：</td>
<td class="STYLE19"><span class="STYLE19"> </span><%=ds("mode")%></td>
</tr>
<tr>
<td height=28><span class="STYLE19">拜访目的：</span></td>
<td colspan="3" class="STYLE19"><span class="STYLE19"> </span><%=ds("aim")%></td>
</tr>
<tr>
<td height="28"><span class="STYLE19">拜访记录：</span></td>
<td colspan="3" class="STYLE19"><span class="STYLE19"> </span><%=ds("record")%></td>
</tr>
<tr>
<td height="28"><span class="STYLE19">情况分析：</span></td>
<td colspan="3" class="STYLE19"><span class="STYLE19"> </span><%=ds("ana")%></td>
</tr>
<tr>
<td height="28"><span class="STYLE19">跟踪计划：</span></td>
<td colspan="3" class="STYLE19"><span class="STYLE19"> </span><%=ds("plan")%></td>
</tr>
</table>
<% ds.MoveNext
Loop %>
<br>
<table width="579" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="28" colspan="4" background="../image/headerbg.gif"><span class="STYLE25">添加新的跟踪情况</span></td>
</tr>
<tr>
<td height=28 width="80" ><span class="STYLE19">拜访销售员：</span></td>
<td width="247"><select name="seller">
<option value="">姓 名</option>
<% branch="营销部"
ddStr = "Select cname From che Where branch='"&branch&"'"
Set dd=Conn.Execute(ddStr)
Do While Not dd.Eof
if session("cname")=dd(0) then
Response.Write "<option value="& dd(0) &" selected>"& dd(0) & "</option>"
else
Response.Write "<option value="& dd(0) &">"& dd(0) & "</option>"
end if
dd.MoveNext
Loop
%>
</select>
<select name="sellerr">
<option value="" selected >姓 名</option>
<% branch="营销部"
ddStr = "Select cname From che Where branch='"&branch&"'"
Set dd=Conn.Execute(ddStr)
Do While Not dd.Eof
if session("cname")<>dd(0) then
Response.Write "<option value="& dd(0) &">"& dd(0) & "</option>"
end if
dd.MoveNext
Loop
%>
</select></td>
<td width="69"><span class="STYLE19">拜访人：</span></td>
<td width="173"><span class="STYLE19">
<input name="customer" type="text" size="12">
</span></td>
</tr>
<tr>
<td height="28"><span class="STYLE19">拜访时间：</span></td>
<td><input name="date" type="text" onClick="popUpCalendar(this, form1.date, 'yyyy-mm-dd')" value="<%=date()%>" size="10" readonly="">
<input name="time1" type="text" size="6">
-
<input name="time2" type="text" size="6"></td>
<td class="STYLE19">拜访方式：</td>
<td><select name="mode">
<option value=" " selected> </option>
<option value="电话拜访" >电话拜访</option>
<option value="上门拜访">上门拜访</option>
<option value="别处拜访">别处拜访</option>
</select></td>
</tr>
<tr>
<td height=28><span class="STYLE19">拜访目的：</span></td>
<td colspan="3"><textarea name="aim" cols="50" rows="3"></textarea></td>
</tr>
<tr>
<td height="28"><span class="STYLE19">拜访记录：</span></td>
<td colspan="3"><textarea name="record" cols="50" rows="3"></textarea></td>
</tr>
<tr>
<td height="28"><span class="STYLE19">情况分析：</span></td>
<td colspan="3"><textarea name="ana" cols="50" rows="3"></textarea></td>
</tr>
<tr>
<td height="28"><span class="STYLE19">跟踪计划：</span></td>
<td colspan="3"><textarea name="plan" cols="50" rows="3"></textarea></td>
</tr>
</table>
<br>
<br>
<label>
<div align="center">
<input type="submit" name="Submit4" value="提交">
<input type="reset" name="Submit5" value="重置">
</div>
</label>
</form>
<%end if%>
<table width="100%" height="18" border="0" background="image/bottom.gif" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="bottom"><div align="center"><span class="STYLE5">版权所有 杰尔康</span><br />
</div></td>
</tr>
</table>
</BODY>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -