📄 x_kehu.asp
字号:
<!--#include file="x_top.asp" -->
<% select case sessquan
case 0
selectquan="and k_user='"&sessname&"'"
case 1
'获得自己部门的所有职位
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_quan where q_lei='"&sessji&"'"),conn,1,1
for qd=1 to int(rs.recordcount)
jingliquan=jingliquan&rs("q_id")&","
rs.movenext
next
rs.close
set rs=nothing
selectquan="and k_zuid in ("&jingliquan&")"
case else
selectquan=""
end select %>
<table width="100%" height="282" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="200" valign="top">
<%call zuo_kuaijie("客户中心管理面板","客户中心首页,?||添加新客户,?chuli=addkehu||所有客户列表,?chuli=kehulist||所有消费客户列表,?chuli=kehulist&llei=1||所有合作伙伴列表,?chuli=kehulist&llei=2||所有潜在客户库,?chuli=kehulist&llei=0") %>
</td>
<td valign="top"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><div id="comlist"></div></td>
</tr>
<tr>
<td width="1%"><img src="skins/list/l1.gif" width="7" height="9" /></td>
<td width="98%" background="skins/list/l2.gif"></td>
<td width="1%"><img src="skins/list/l8.gif" width="8" height="9" /></td>
</tr>
<tr>
<td background="skins/list/l3.gif"> </td>
<td height="400" valign="top">
<% select case Trim(Request.QueryString("chuli"))
case "addkehu"
l=Trim(Request.QueryString("l"))
if l="" then l=1
editid=Trim(Request.QueryString("editid"))
look=Trim(Request.QueryString("look"))
if editid<>"" then
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_kehu where k_id="&editid&" "&selectquan&""),conn,1,1
if rs.eof then call cnerror("没有查询到符合的客户信息，请返回。",1)
k_gname=rs("k_gname")
k_bname=rs("k_bname")
k_lname=rs("k_lname")
k_dianhua=rs("k_dianhua")
k_dizhi=rs("k_dizhi")
k_dizhis=split(k_dizhi,"/邮编：")
k_dizhi_dizhi=k_dizhis(0)
k_dizhi_youbian=k_dizhis(1)
k_email=rs("k_email")
k_bei=rs("k_bei")
k_lei=rs("k_lei")
k_time=rs("k_time")
k_user=rs("k_user")&" "&request.cookies("q_"&rs("k_zuid"))("qname")
call listsub("comlist","返回列表,?chuli=kehulist&llei="&rs("k_lei")&"||查看 "&left(rs("k_gname"),4)&",?chuli=addkehu&editid="&editid&"&look=yes&l=1||修改 "&left(rs("k_gname"),4)&",?chuli=addkehu&editid="&editid&"&l=2",int(l))
select case rs("k_lei")
case "0"
kehulei=("潜在客户")
case "1"
kehulei=("消费客户")
case "2"
kehulei=("合作伙伴")
end select
rs.close
set rs=nothing
end if
if look="yes" then%>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td colspan="5" class="td_heng"><b>客户信息</b>(<%= kehulei %>)</td>
</tr>
<tr>
<td width="14%">客户公司：</td>
<td colspan="3"><b><%= k_gname %> </b><% if k_bname<>"" then Response.Write("("&k_bname&")") %></td>
<td width="26%" rowspan="4" valign="top"><a href="c_kehu.asp?chuli=delkehu&delid=<%= editid %>"><img src="skins/sb/feedicon_034.png" border="0"/> 删除此客户</a></td>
</tr>
<tr>
<td>联系人：</td>
<td width="26%"><%= k_lname %> </td>
<td width="12%"> </td>
<td width="22%"> </td>
</tr>
<tr>
<td>联系电话：</td>
<td colspan="3"><%= k_dianhua %> </td>
</tr>
<tr>
<td>EMAIL：</td>
<td><%= k_email %> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td>联系地址：</td>
<td colspan="4"><%= k_dizhi %> </td>
</tr>
<tr>
<td>提交人：</td>
<td colspan="4"><%= k_user %> 提交日期：<%= k_time %></td>
</tr>
<tr>
<td colspan="5" class="td_heng"><b>详细介绍</b></td>
</tr>
<tr>
<td colspan="5"><%= k_bei %> </td>
</tr>
</table>
<% Else %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<form id="form" name="form" method="post" action="c_kehu.asp?chuli=addkehu&editid=<%= editid %>" onSubmit="return CheckForm(this);"><tr>
<td colspan="2" class='td_heng'><b>添加新客户信息</b></td>
</tr>
<tr>
<td width="19%" align="right">客户类型：</td>
<td width="81%"><input name="k_lei" type="radio" value="1" <% if k_lei="" or k_lei="1" then Response.Write("checked='checked'") %> />
消费客户
<input type="radio" name="k_lei" value="2" <% if k_lei="2" then Response.Write("checked='checked'") %> />
合作伙伴
<input type="radio" name="k_lei" value="0" <% if k_lei="0" then Response.Write("checked='checked'") %>/>
潜在客户记录</td>
</tr>
<tr>
<td align="right">客户公司名称：</td>
<td><input name="k_gname" type="text" class="nnt_input" id="k_gname" value="<%=k_gname%>" /></td>
</tr>
<tr>
<td align="right">自定义备注名称：</td>
<td><input name="k_bname" type="text" class="nnt_input" id="k_bname" value="<%=k_bname%>" /></td>
</tr>
<tr>
<td align="right">联系人：</td>
<td><input name="k_lname" type="text" class="nnt_input" id="k_lname" value="<%=k_lname%>" /></td>
</tr>
<tr>
<td align="right">联系电话：</td>
<td><input name="k_dianhua" type="text" class="nnt_input" id="k_dianhua" value="<%=k_dianhua%>" size="60" /></td>
</tr>
<tr>
<td align="right">联系地址：</td>
<td><input name="k_dizhi" type="text" class="nnt_input" id="k_dizhi" value="<%=k_dizhi_dizhi%>" size="60" /></td>
</tr>
<tr>
<td align="right">邮编：</td>
<td><input name="k_youbian" type="text" class="nnt_input" id="k_youbian" value="<%= k_dizhi_youbian %>" /></td>
</tr>
<tr>
<td align="right">EMAIL：</td>
<td><input name="k_email" type="text" class="nnt_input" id="k_email" value="<%=k_email%>" /></td>
</tr>
<tr>
<td align="right" valign="top">详细介绍：</td>
<td><textarea name="content" style="display:none"><%= k_bei %></textarea>
<div style="width:400px; height:300px;"><SCRIPT src="fun/Post.js"></SCRIPT></div></td>
</tr>
<tr>
<td> </td>
<td><input name="Submit" type="submit" class="nnt_submit" value="提交" /></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr></form>
</table>
<% end if
case "kehulist"
ul=Trim(Request.QueryString("llei"))
select case ul
case "0"
souselect="and k_lei=0"
listname="所有潜在客户库"
case "1"
listname="所有消费客户列表"
souselect="and k_lei=1"
case "2"
listname="所有合作伙伴列表"
souselect="and k_lei=2"
case else
listname="所有客户列表"
end select %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -