📄 g_execinput.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=Getuser()%>
<%
Response.Buffer=FALSE
'***********************************
'
'Author:Ruphi Update Time:2001-08-22
'功能说明：执行情况输入
'
'************************************
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>客户跟进计划</title>
<link href="cread.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" >
<%
'*******************************************
'得出问题的下拉菜单
set rswt=Server.CreateObject("ADODB.RecordSet")
sql="select NumValue from A_ConfigInfo Where Subject='Problem'"
rswt.open sql,Pubconn,1,1
if not rswt.eof then
if not isnull(rswt("NumValue")) then
wt=Split(trim(rswt("NumValue")),",")
end if
end if
set rsdc=nothing
'***************************************
'得出对策的下拉菜单
set rsdc=Server.CreateObject("ADODB.RecordSet")
sql="select NumValue from A_ConfigInfo Where Subject='NextMeasure'"
rsdc.open sql,Pubconn,1,1
if not rsdc.eof then
if not isnull(rsdc("NumValue")) then
NextMeasure=Split(trim(rsdc("NumValue")),",")
end if
end if
'Response.write rsdc("Numvalue")
set rsdc=nothing
'***************************************
PlanID=request("ID")
%>
<script language="vbscript">
Sub check2() '字段检验是否为空
' if Theform.selwt.value="" then
' MsgBox "请选择问题！", 64, "提示："
' focusto(9)
' Exit Sub
'end if
' if Theform.seldc.value="" then
' MsgBox "请选择下一步对策！", 64, "提示："
' focusto(10)
' Exit Sub
'end if
Theform.submit
End Sub
Sub focusto(x)
'将游标定位于表单(Form)的某个栏位
document.Theform.elements(x).focus()
End Sub
</script>
<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">
</td>
</tr>
</table>
<%
set Rst1=server.createobject("ADODB.RecordSet")
str="select * from G_TblClosePlan where ID="&cint(PlanID)
Rst1.open str,pubconn,1
%>
<form method="POST" action="G_execinputInfo.asp" name="Theform" >
<input type="hidden" name="Pid" value="<%=PlanID%>">
<input type="hidden" name="Wid" value="<%=Rst1("CloseWeek")%>">
<table border="1" width="624" cellspacing="0" height="26" bgcolor="#F7F4E5">
<tr>
<td width="618" height="23" align="right" colspan="4" bordercolor="#F7F4E5" >
<p align="left">
<font size="2"><%=Session("StuffName")%>行动计划提示：
</font>
</td>
</tr>
<tr>
<td width="99" height="19" align="right" bordercolor="#F7F4E5" >
<font size="2">计划跟进日期</font>
</td>
<td width="120" height="19" bordercolor="#F7F4E5" >
<input type="text" name="txtywy1" size="15" tabindex="1" value="<%=Rst1("Closedate")%>" style="background-color: #edefef" readonly>
</td>
<td width="104" height="19" align="right" bordercolor="#F7F4E5" >
<font size="2">计划跟进时间</font>
</td>
<td width="247" height="19" bordercolor="#F7F4E5" >
<input type="text" name="txtywy1" size="19" tabindex="2" readonly value="<%=Rst1("Closedate")%>" style="background-color: #edefef" >
</td>
</tr>
<tr>
<td width="99" height="23" align="right" bordercolor="#F7F4E5" >
<font size="2">计划客户名称</font>
</td>
<td width="471" height="23" colspan="3" bordercolor="#F7F4E5" >
<input type="text" name="khxh" size="41" value="<%=khname(Rst1("ClientNum"))%>" readonly tabindex="3" style="background-color: #edefef" > </td>
</tr>
<tr>
<td width="99" height="23" align="right" bordercolor="#F7F4E5" >
<font size="2">计划跟进对象</font>
</td>
<td width="120" height="23" bordercolor="#F7F4E5" >
<input type="text" name="txtywy3" size="15" tabindex="4" value="<%=Rst1("LinkMan")%>" readonly style="background-color: #edefef" >
</td>
<td width="104" height="23" align="right" bordercolor="#F7F4E5" >
<font size="2">对象职务</font>
</td>
<td width="247" height="23" bordercolor="#F7F4E5" >
<input type="text" name="txtywy3" size="19" tabindex="5" value="<%=Rst1("ObjectDuty")%>" readonly style="background-color: #edefef" >
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -