📄 d_flowmainfrm.asp
字号:
<%if rs1.fields("DepartCode")=rs.fields("TalkPrice") then%>
<option value=<%=rs1.fields("DepartCode")%> selected><%=rs1.fields("Name")%>
<%else%>
<option value=<%=rs1.fields("DepartCode")%>><%=rs1.fields("Name")%>
<%end if%>
<%rs1.movenext
wend%>
<% end if%>
</select></td> </tr>
<tr>
<td width="124" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right"> 签 约</td><td width="178" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select name="m_Sign" style="width: 176; height: 23">
<%set rs1=server.CreateObject("adodb.recordset")
if rs1.state=1 then rs1.close
rs1.open "select * from A_DepartInfo",pubconn,1,3
if rs1.recordcount>0 then%> <%rs1.movefirst
while not rs1.eof%>
<%if rs1.fields("DepartCode")=rs.fields("Sign") then%>
<option value=<%=rs1.fields("DepartCode")%> selected><%=rs1.fields("Name")%>
<%else%>
<option value=<%=rs1.fields("DepartCode")%>><%=rs1.fields("Name")%>
<%end if%>
<%rs1.movenext
wend%>
<% end if%>
</select></td> </tr>
</table></center><br>
<%end if%>
<input type="hidden" name="page1" value=<%=Request("page1")%>>
<input type="hidden" name="par_type" value=<%=Request("par_type")%>>
<input type="hidden" name="par_level" value=<%=Request("par_level")%>>
<input type="hidden" name="par_name" value=<%=request("par_name")%>>
<input type="hidden" name="m_clientnum" value=<%=m_clientnum%>>
<input type="hidden" name="index" value=<%=request("index")%>>
<center><%'<input type="button" name="B1" value="保存" onclick="datacheck()">%>
<font size="2"> <%tem="Lookup"%>
<a href="javascript:datacheck()">保存</a>
<%if request("index")="true" then%>
<a href="D_khindexsubFrm.asp?lookup=<%=tem%>&page1=<%=Request("page1")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>&par_id=<%=m_clientnum%>">返回</a></font></center>
<%else%>
<font size="2">
<a href="D_khsubFrm.asp?lookup=<%=tem%>&page1=<%=Request("page1")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>&par_id=<%=m_clientnum%>">返回</a>
</font>
<%end if%>
</form>
<%Response.End %>
<%end if%><%''编辑窗体完'''''''''%>
<%if request("tag")=2 then%><%'''''''''''''''第一次装载%>
<%m_clientnum=Request("par_clientnum")%> <%''传递给编辑窗体%>
<%set rs=server.CreateObject("adodb.recordset")%>
<%if rs.State=1 then rs.Close%>
<%rs.Open "select * from D_FlowTable where clientnum='"& m_clientnum &"'",pubconn,1,3%>
<form name="form1" method="post" action="D_FlowMainFrm.asp?tag=5">
<table border="0" width="100%">
<tr>
<td width="100%" valign="middle"><img border="0" src="it_22.gif" width="34" height="15"> <b><font size="2">客户采购流程</font></b><hr width="40%" align="left" size="1"></td>
</tr>
</table>
<br><br><br> <br>
客户名称:<%=getClientName(m_clientnum)%><input type="hidden" name="m_clientnum1" size=20 readonly value=<%=m_clientnum%> ><br><br>
<%if rs.RecordCount<=0 then %>
<center><table border=1 cellspacing=0 width="351">
<tr>
<td width="113" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right"> 收 集 信 息</td><td width="228" align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_credit" readonly style="background-color: #edefef" size=20 ></td>
</tr>
<tr>
<td width="113" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">技术/质量评估</td><td width="228" align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_begintime" readonly style="background-color: #edefef" size=20 > </td>
</tr>
<tr>
<td width="113" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right"> 考 察</td><td width="228" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<p align="center">
<input type="text" name="m_endtime" readonly style="background-color: #edefef" size=20 ></p>
</td>
</tr>
<tr>
<td width="113" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right"> 价 格 谈 判</td><td width="228" align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_endtime" readonly style="background-color: #edefef" size=20 ></td>
</tr>
<tr>
<td width="113" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right"> 签 约</td><td width="228" align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_endtime" readonly style="background-color: #edefef" size=20 ></td>
</tr>
</table></center><br>
<%else%>
<center><table border=1 cellspacing=0 width="351">
<tr>
<td width="117" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right"> 收 集 信 息</td><td width="224" align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_credit" size=21 readonly style="background-color: #edefef" value=<%=GetName(rs.Fields("CollectInfo"))%>></td>
</tr>
<tr>
<td width="117" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">技术/质量评估</td><td width="224" align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_begintime" size=21 readonly style="background-color: #edefef" value=<%=GetName(rs.Fields("Assert"))%>> </td>
</tr>
<tr>
<td width="117" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right"> 考 察</td><td width="224" align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_endtime" size=21 readonly style="background-color: #edefef" value=<%=GetName(rs.Fields("Check"))%>></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -