📄 g_state.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=Getuser()
userclass=TableVisitor("G_TblCloseState",username)
if userclass<2 then
response.write"<br>"
response.write"<br>"
response.write "<center><font size=2>抱歉，您没有此项操作权限！<a href=G_mainstate.asp>返回</a>"
response.end
end if
%>
<%
'**********************************
'
'Author:Ruphi Update Time:2001-08-26
'功能说明：状态录入表单处理，当库中有这样的客户记录时，将其数据调出， 否则新增一条记录。
'
'**********************************
'*******************************************
'得出成交机会下拉菜单
set rsdc=Server.CreateObject("ADODB.RecordSet")
sql="select NumValue from A_ConfigInfo Where Subject='CjChance'"
rsdc.open sql,Pubconn,1,1
if not rsdc.eof then
if not isnull(rsdc("NumValue")) then
CjChance=Split(trim(rsdc("NumValue")),",")
end if
end if
set rsdc=nothing
'***************************************
'得出对策下拉菜单
set rsj=Server.CreateObject("ADODB.RecordSet")
sql="select NumValue from A_ConfigInfo Where Subject='NextMeasure'"
rsj.open sql,Pubconn,1,1
if not rsj.eof then
if not isnull(rsj("NumValue")) then
NextMeasure=Split(trim(rsj("NumValue")),",")
end if
end if
set rsdc=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;
var tt;
tt=0;
lucy4 = new Array(); //定义客户有关属性数组
zhang = new Array(); //定义竞争者的数组
//以下为定义表中的某客户的具体跟进状态记录数组
shu1= new Array();
shu2= new Array();
shu3= new Array();
shu4= new Array();
shu5= new Array();
shu6= new Array();
shu7= new Array();
shu8= new Array();
shu9= new Array();
shu10= new Array();
shu11= new Array();
shu12= new Array();
shu13= new Array();
shu14= new Array();
shu15= new Array();
shu16= new Array();
shu17= new Array();
shu18= new Array();
shu19= new Array();
shu20= new Array();
shu21= new Array();
shu22= new Array();
//客户信息
<%count = 0
set rs5=server.CreateObject("adodb.recordset")
rs5.open "SELECT * FROM D_clientinfo where ( tag='khindex'or (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")&"' and delflag<>'1'",Pubconn,1,3
if rs5.recordcount> 0 then
do while not rs5.eof%>
lucy4[<%=count%>] = new Array("<%= trim(rs5("clientnum"))%>","<%=trim(rs5("clientname"))%>","<%=trim(rs5("Level"))%>");
<%count = count + 1
rs5.movenext
loop
end if
rs5.close
set rs5=nothing%>
onecount=<%=count%>;
//竞争者的信息
<%zj = 0
set rs6=server.CreateObject("adodb.recordset")
rs6.open "SELECT * FROM D_ClientRival ",Pubconn,1,3
if rs6.recordcount> 0 then
do while not rs6.eof%>
zhang[<%=zj%>] = new Array("<%= trim(rs6("clientnum"))%>","<%=trim(rs6("Rivalname"))%>");
<%zj = zj + 1
rs6.movenext
loop
end if
rs6.close
set rs6=nothing%>
tt=<%=zj%>;
//表中的记录
<%count1 = 0
set rs9=server.CreateObject("adodb.recordset")
rs9.open "SELECT * FROM G_TblCloseState where StuffNum='"&Session("UserID")&"' ",Pubconn,1,3
if rs9.recordcount> 0 then
do while not rs9.eof
Ryear=left(trim(rs9("ReportDate")),4)
Rmonth=Mid(trim(rs9("ReportDate")),6,2)
Rdate=right(trim(rs9("ReportDate")),2)
Fyear=left(trim(rs9("FixDate")),4)
Fmonth=Mid(trim(rs9("FixDate")),6,2)
Fdate=right(trim(rs9("FixDate")),2)
%>
shu1[<%=count1%>] = new Array("<%=trim(rs9("clientNum"))%>"); //客户序号
shu4[<%=count1%>] = new Array("<%=trim(Ryear)%>","<%=trim(Rmonth)%>","<%=trim(Rdate)%>"); //报告日期
shu9[<%=count1%>] = new Array("<%=trim(rs9("CloseState"))%>"); //以下为状态
shu10[<%=count1%>] = new Array("<%=trim(rs9("InquiryState"))%>");
shu11[<%=count1%>] = new Array("<%=trim(rs9("Problem"))%>");
shu12[<%=count1%>] = new Array("<%=trim(rs9("ProjectState"))%>");
shu13[<%=count1%>] = new Array("<%=trim(rs9("PriceTerm"))%>");
shu14[<%=count1%>] = new Array("<%=trim(rs9("MainPerson"))%>");
shu15[<%=count1%>] = new Array("<%=trim(rs9("UsherState"))%>");
shu16[<%=count1%>] = new Array("<%=trim(rs9("VoteState"))%>");
shu17[<%=count1%>] = new Array("<%=trim(rs9("VisaState"))%>");
shu19[<%=count1%>] = new Array("<%=trim(Fyear)%>","<%=trim(Fmonth)%>","<%=trim(Fdate)%>"); //安装时间
shu20[<%=count1%>] = new Array("<%=trim(rs9("ClichChance"))%>");
shu5[<%=count1%>] = new Array("<%=trim(rs9("Contender"))%>"); //竞争者
shu7[<%=count1%>] = new Array("<%=trim(rs9("NextMeasure"))%>"); //下一步对策
shu8[<%=count1%>] = new Array("<%=trim(rs9("DetailThing"))%>"); //详细情况
<%count1 = count1 + 1
rs9.movenext
loop
end if
rs9.close
set rs9=nothing%>
tj=<%=count1%>;
function key1()
{
//客户名称与级别响应
var tag;
tag=0;
for (i=0;i<onecount;i++)
{
if(document.form1.khxh.value==lucy4[i][0])
{
document.form1.khmc.value=lucy4[i][1];
document.form1.khjb.value=lucy4[i][2];
tag=1;
break;
}
}
if (tag==0)
{
document.form1.khmc.value="";
document.form1.khjb.value="";
}
//竞争者的响应事件
var str="";
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -