📄 customer.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; }
-->
</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
name=request.Form("name")
set rr=server.CreateObject("adodb.recordset")
wwdsql="select * from company where name='"&name&"'"
rr.open wwdsql,conn,1,1
if not rr.eof then
response.Write "<br><br>公司已有此客户资料,请勿重复添加!<br><br>"
else
set rr=server.CreateObject("adodb.recordset")
wwdsql="select * from company"
rr.open wwdsql,conn,1,3
rr.addnew
rr("date")=request.form("date")
rr("seller")=request.form("seller")
rr("share")=request.form("share")
rr("name")=request.form("name")
rr("short")=request.form("short")
rr("area")=request.form("area")
rr("address")=request.form("address")
rr("tel")=request.form("tel")
rr("fax")=request.form("fax")
rr("www")=request.form("www")
rr("post")=request.form("post")
rr("bus")=request.form("bus")
rr("nature")=request.form("nature")
rr("des")=request.form("des")
rr("source")=request.form("source")
rr("cate")=request.Form("cate")
rr("remark")=request.form("remark")
rr.update
%>
<br><br>保存成功！
<input type="button" name="Submit" value="添加联系人" onClick="location.href='customer.asp?id=<%=rr("id")%>'">
<br><br>
<% end if
else%>
<%id=request("id")
id=66
exec="select * from company where id="&id
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<div align="center"><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"><strong>企业基本基本信息</strong></td>
</tr>
<tr>
<td width="80" height="28" class="STYLE13">客户名称：</td>
<td width="200" class="STYLE12"> <%=rs("name")%></td>
<td width="80" class="STYLE12"><span class="STYLE13">客户简称：</span></td>
<td width="209" class="STYLE12"><%=rs("short")%></td>
</tr>
<tr>
<td height="28" class="STYLE13">单位地址：</td>
<td colspan="3" class="STYLE12"> <%=rs("address")%></td>
</tr>
<tr>
<td height="28" class="STYLE13">公司电话：</td>
<td class="STYLE12"> <%=rs("tel")%></td>
<td class="STYLE13">传<span class="STYLE12"> </span><span class="STYLE12"> </span>真：</td>
<td class="STYLE12"> <%=rs("fax")%></td>
</tr>
<tr>
<td height="28" class="STYLE13">所属行业：</td>
<td class="STYLE12"> <%=rs("bus")%></td>
<td class="STYLE13">企业性质：</td>
<td class="STYLE12"> <%=rs("nature")%></td>
</tr>
<tr>
<td height="28" class="STYLE13">企业描述：</td>
<td colspan="3" class="STYLE12"> <%=rs("des")%></td>
</tr>
</table>
<br>
<form name="form1" method="post" action="add.asp?action=save">
<input name="date" type="text" value="<%=date()%>" style="display:none" >
<p align="center">
<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"><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></td>
<td width="80"><span class="STYLE19">是否共享：</span></td>
<td width="209"><select name="share">
<option value="不共享">不共享</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"><span class="STYLE19">
<input name="name" type="text" size="50">
</span></td>
</tr>
<tr>
<td><span class="STYLE19">客户简称：</span></td>
<td><span class="STYLE19">
<input name="short" type="text" size="20">
</span></td>
<td><span class="STYLE19">所属区域：</span></td>
<td><select name="area">
<option value="鼓楼区">鼓楼区</option>
<option value="玄武区">玄武区</option>
<option value="白下区">白下区</option>
<option value="秦淮区">秦淮区</option>
<option value="建邺区">建邺区</option>
<option value="下关区">下关区</option>
<option value="浦口区">浦口区</option>
<option value="栖霞区">栖霞区</option>
<option value="雨花台区">雨花台区</option>
<option value="江宁区">江宁区</option>
<option value="六合区">六合区</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"><span class="STYLE19">
<input name="address" type="text" size="50">
</span></td>
</tr>
<tr>
<td height="28"><span class="STYLE19">公司电话：</span></td>
<td><span class="STYLE19">
<input name="tel" type="text" size="20">
</span></td>
<td><span class="STYLE19">传真：</span></td>
<td><span class="STYLE18">
<input name="fax" type="text" size="20">
</span></td>
</tr>
<tr>
<td height="28"><span class="STYLE19">网址：</span></td>
<td><span class="STYLE19">
<input name="www" type="text" size="20">
</span></td>
<td><span class="STYLE19">邮编：</span></td>
<td><span class="STYLE18">
<input name="post" type="text" value="2100" size="20">
</span></td>
</tr>
</table>
<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 width="80" height="28"><span class="STYLE19">所属行业：</span></td>
<td width="200"><select name="bus">
<%
ddStr = "Select industry From industry"
Set dd=Conn.Execute(ddStr)
Do While Not dd.Eof
Response.Write "<option value="& dd(0) &">"& dd(0) & "</option>"
dd.MoveNext
Loop
dd.Close
conn.Close
%>
</select></td>
<td width="80"><span class="STYLE19">企业性质：</span></td>
<td width="209"><select name="nature">
<option value="国有企业">国有企业</option>
<option value="集体企业">集体企业</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"><span class="STYLE19">
<input name="des" type="text" size="50">
</span></td>
</tr>
</table>
<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 width="80" height="28"><span class="STYLE19">客户来源：</span></td>
<td width="200"><select name="source">
<option value="政府">朋友介绍</option>
<option value="电子">黄页查找</option>
<option value="电子">网络查找</option>
<option value="电子">客户上门</option>
</select></td>
<td width="80"><span class="STYLE19">客户类别：</span></td>
<td width="209"><select name="cate">
<option value="潜在客户">潜在客户</option>
<option value="重点客户">重点客户</option>
<option value="普通客户">普通客户</option>
<option value="远期跟踪">远期跟踪</option>
</select></td>
</tr>
</table>
<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 width="80" height="28"><span class="STYLE19">备注：</span></td>
<td width="493" colspan="3"><span class="STYLE19">
<label>
<textarea name="remark"> </textarea>
</label>
</span></td>
</tr>
</table>
<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 + -