📄 g_stateedit.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
%>
<%
sql="select * from G_TblCloseState where ID="&cint(Request("id"))
set rsta=Server.Createobject("adodb.recordset")
rsta.open sql,Pubconn,1
'*******************************************
'得出成交机会下拉菜单
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="vbscript">
Sub jian() '字段检验是否为空
if form1.selkh.value="" and form1.seldc.value="" and form1.selwt.value="" and form1.selfa.value="" and form1.seltj.value="" and form1.selperson.value="" and form1.selbr.value="" AND form1.seljy.value="" AND form1.selqy.value=""then
MsgBox "请至少选择一种状态！", 64, "提示："
'focusto(8)
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
form1.submit
End Sub
Sub focusto(x)
'将游标定位于表单(Form)的某个栏位
document.form1.elements(x).focus()
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_stateEditInfo.asp" name="form1" >
<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="<%=Rsta("ClientNum")%>" readonly style="background-color: #edefef">
</p>
</td>
<% set myrst=Server.CreateObject("adodb.RecordSet")
sql="select * from D_ClientInfo where ClientNum='"&Rsta("ClientNum")&"'"
myrst.open sql,Pubconn,1
if not myrst.eof then
bb=myrst("ClientName") ' 传回的客户名称值
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -