📄 g_state.asp
字号:
' MsgBox "请选择调查状态！", 64, "提示："
' focusto(9)
' Exit Sub
'end if
'if form1.selwt.value="" then
' MsgBox "请选择问题状态！", 64, "提示："
' focusto(10)
' Exit Sub
'end if
'if form1.selfa.value="" then
' MsgBox "请选择方案状态！", 64, "提示："
' focusto(11)
' Exit Sub
'end if
'if form1.seltj.value="" then
' MsgBox "请选择价格条件状态！", 64, "提示："
' focusto(12)
' Exit Sub
' end if
'if form1.selperson.value="" then
' MsgBox "请选择关健人状态！", 64, "提示："
' focusto(13)
' Exit Sub
' end if
' if form1.selbr.value="" then
' MsgBox "请选择展示状态！", 64, "提示："
' focusto(14)
' Exit Sub
' end if
' if form1.seljy.value="" then
' MsgBox "请选择建议状态！", 64, "提示："
' focusto(15)
' Exit Sub
' end if
' if form1.selqy.value="" then
' MsgBox "请选择签约状态！", 64, "提示："
' focusto(16)
' Exit Sub
' end if
' if form1.year3.value="" then
' MsgBox "请填写安装年份！", 64, "提示："
' focusto(17)
' Exit Sub
' end if
' if form1.month3.value="" then
' MsgBox "请选择安装月份！", 64, "提示："
' focusto(18)
' Exit Sub
' end if
'if form1.date3.value="" then
' MsgBox "请选择安装日期！", 64, "提示："
' focusto(19)
' Exit Sub
' end if
'if form1.selchance.value="" then
' MsgBox "请选择成交机会！", 64, "提示："
' focusto(20)
' Exit Sub
' end if
'if form1.selMea.value="" then
' MsgBox "请选择对策！", 64, "提示："
' focusto(22)
' Exit Sub
'end if
form1.submit
End Sub
Sub focusto(x)
'将游标定位于表单(Form)的某个栏位
document.form1.elements(x).focus()
End Sub
sub khxx()
window.open "G_Clientinfo2.asp","客户信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"
end sub
sub con()
riv=document.form1.khxh.value
window.open"G_contender.asp?par_id="+riv,"竞争者信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"
end sub
sub khxq()
khxh=document.form1.khxh.value
window.open"G_Clientneed.asp?khxh="+khxh,"客户需求信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"
end sub
</script>
<body bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif">
</font><font size="2">客户跟进状态报告</font></b><hr width="40%" size="1" align="left">
<p>
说明：
<font color="#000000" size="2">△表示延期，╳表示失败，〇表示完成
</font>
<font size="1" color="#000000">。
</font>
</td>
</tr>
</table>
<form method="POST" action="G_stateInfo.asp" name="form1" >
<%
'读入通过按扭选中的客户的序号和名称
khxh=request("khxh")
if khxh<>"" then
set myrst=Server.CreateObject("adodb.RecordSet")
sql="select * from D_ClientInfo where ClientNum='"&khxh&"'"
myrst.open sql,Pubconn,1
if not myrst.eof then
aa=khxh ' 传回的客户序号值
bb=myrst("ClientName") ' 传回的客户名称值
cc=myrst("level") ' 传回的客户类型值
end if
end if
%>
<%
'通过按钮找出对应的客户的竞争者的信息
' response.write aa
if aa<>"" then
dd=""
set rscon=Server.Createobject("adodb.recordset")
sql="select * from D_ClientRival where ClientNum='"&aa&"'"
rscon.open sql,Pubconn,1
if not rscon.eof then
for i=1 to rscon.RecordCount
dd=rscon("RivalName")+"/"+dd
rscon.movenext
next
end if
sql="select * from G_TblCloseState where ClientNum='"&aa&"'"
set rscx=Server.Createobject("adodb.recordset")
rscx.open sql,Pubconn,1
if not rscx.eof then
bz=1
end if
end if
%>
<table border="1" width="100%" cellspacing="0" bgcolor="#F7F4E5">
<tr>
<td width="120" height="23" align="right" bgcolor="#F7F4E5" bordercolor="#F7F4E5">
<font size="2">客户序号</font>
</td>
<td width="235" height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5">
<p align="left">
<input type="text" name="khxh" size="14" tabindex="1" value="<%=aa%>" onkeyup="key1()">
<input type="button" value="..." name="cmdsea" onclick="khxx()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >
</p>
</td>
<td width="86" height="23" align="right" bgcolor="#F7F4E5" bordercolor="#F7F4E5">
<font size="2">客户名称</font>
</td>
<td width="264" colspan="3" height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5">
<input type="text" name="khmc" size="29" tabindex="2" value="<%=bb%>" readonly style="background-color: #edefef">
</td>
</tr>
<tr>
<td width="120" height="23" align="right" bgcolor="#F7F4E5" bordercolor="#F7F4E5">
<font size="2">客户级别
</font>
</td>
<td width="235" height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5">
<input type="text" name="khjb" size="15" tabindex="3" value="<%=cc%>" readonly style="background-color: #edefef">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -