📄 e_rein.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<%
username=Getuser()
userclass=TableVisitor("E_Clientcomplain",username)
if userclass<2 then
response.write "<center>抱歉，您没有此项操作权限！<a href=E_reinbrow.asp>返回</a>"
response.end
end if
%>
<%
'***********************************
'Author:Ruphi Update Time:2001-08-19
'功能说明： 客户跟进计划录入界面
'***********************************
'读入通过按扭选中的客户的序号和名称
djbh=request("djbh")
khxh=request("khxh")
if khxh<>"" then
set mykh=Server.CreateObject("ADODB.RecordSet")
sql="select * from D_ClientInfo where ClientNum='"&khxh&"'"
mykh.open sql,Pubconn,1
if not mykh.eof then
khmc=mykh("ClientName")
end if
end if
cpbm=request("cpbm")
if cpbm<>"" then
'找出产品的有关的内容
set rssp=Server.Createobject("ADODB.recordset")
sql="select * from A_ProductInfo where ProdCode='"&cpbm&"'"
rssp.open sql,Pubconn,1
if not rssp.eof then
cpmc=rssp("ProdName")
ggxh=rssp("Model")+"-"+rssp("standard")
end if
end if
ksfs=request("ksfs")
year1=request("year1")
month1=request("month1")
date1=request("date1")
%>
<%
'**********************************************
'客诉方式下拉单
set rsks=Server.CreateObject("ADODB.RecordSet")
sql="select NumValue from A_ConfigInfo Where Subject='ksfs'"
rsks.open sql,Pubconn,1,1
if not rsks.eof then
if not isnull(rsks("NumValue")) then
ksstyle=Split(trim(rsks("NumValue")),",")
end if
end if
set rsks=nothing
'***************************************************
'投诉问题类别下拉单
set rswt=Server.CreateObject("ADODB.RecordSet")
sql="select NumValue from A_ConfigInfo Where Subject='wtlb'"
rswt.open sql,Pubconn,1,1
if not rswt.eof then
if not isnull(rswt("NumValue")) then
wtstyle=Split(trim(rswt("NumValue")),",")
end if
end if
set rswt=nothing
'***********************************************
'投诉问题紧要程度下拉单
set rscd=Server.CreateObject("ADODB.RecordSet")
sql="select NumValue from A_ConfigInfo Where Subject='Problemcd'"
rscd.open sql,Pubconn,1,1
if not rscd.eof then
if not isnull(rscd("NumValue")) then
wtcd=Split(trim(rscd("NumValue")),",")
end if
end if
set rscd=nothing
'*****************************
'投诉要求
set rsyq=Server.CreateObject("ADODB.RecordSet")
sql="select NumValue from A_ConfigInfo Where Subject='ksyq'"
rsyq.open sql,Pubconn,1,1
if not rsyq.eof then
if not isnull(rsyq("NumValue")) then
yqt=Split(trim(rsyq("NumValue")),",")
end if
end if
set rsyq=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>客户跟进计划</title>
<link href="../cread.css" rel="stylesheet" type="text/css">
</head>
<script language="javascript">
//输入客户序号时，产生其对应的名称以及该客户的所有重要人员名单
var onecount;
var tj;
tj=0;
onecount=0;
subcat = new Array();
shu = new Array();
<%count = 0
set rs5=server.CreateObject("adodb.recordset")
rs5.open "SELECT * FROM D_clientinfo where ( tag='khindex'or ((type='潜在客户' or isnull(type)) and tag='kh') or (type='预期客户' and tag='kh')or (type='首次购买客户' and tag='kh') or (type='忠诚客户'and tag='kh') or (type='重复购买客户' and tag='kh') or tag='hbdealer' ) and stuffnum='"&Session("UserID")&"'",Pubconn,1,3
if rs5.recordcount> 0 then
do while not rs5.eof%>
subcat[<%=count%>] = new Array("<%= trim(rs5("clientnum"))%>","<%=trim(rs5("clientname"))%>","<%=trim(rs5("telophone"))%>");
<%count = count + 1
rs5.movenext
loop
end if
rs5.close
set rs5=nothing%>
onecount=<%=count%>;
<%count1 = 0
set rs9=server.CreateObject("adodb.recordset")
rs9.open "SELECT * FROM D_LinkMan where Onoroff='1' ",Pubconn,1,3
if rs9.recordcount> 0 then
do while not rs9.eof%>
shu[<%=count1%>] = new Array("<%= trim(rs9("clientnum"))%>","<%=trim(rs9("LinkMan"))%>");
<%count1 = count1 + 1
rs9.movenext
loop
end if
rs9.close
set rs9=nothing%>
tj=<%=count1%>;
function keyup()
{
//客户名称响应
var tag;
tag=0;
for (i=0;i<onecount;i++)
{
if(document.form1.khxh.value==subcat[i][0])
{
document.form1.khmc.value=subcat[i][1];
tag=1;
break;
}
}
if (tag==0)
document.form1.khmc.value="";
}
</script>
<script language="javascript">
//商品名称响事件
var Pcount;
Pcount=0;
shang1 = new Array();
shang2 = new Array();
<%
'得出大类的代码与名称
count = 0
set rst=server.CreateObject("adodb.recordset")
mysql="select ProdName,left(prodcode,4) as code2,model,prodcode,standard,unit ,costprice from A_ProductInfo "
rst.open mysql,Pubconn,1,3
if rst.recordcount> 0 then
do while not rst.eof
%>
shang1[<%=count%>]=new Array("<%= trim(rst("code2"))%>","<%= trim(rst("model"))%>");
shang2[<%=count%>]=new Array("<%= trim(rst("prodcode"))%>","<%= trim(rst("standard"))%>","<%= trim(rst("unit"))%>","<%= trim(rst("ProdName"))%>","<%= trim(rst("CostPrice"))%>");
<%count = count + 1
rst.movenext
loop
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -