📄 d_flowmainfrm.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<%
if Request.ServerVariables("REQUEST_METHOD")="POST" and request("tag")=1 then'''''''保存信用额度
clientnum=trim(Request("m_clientnum"))
CollectInfo=trim(Request("m_CollectInfo"))
Assert=trim(Request("m_Assert"))
Check=trim(Request("m_Check"))
TalkPrice=trim(Request("m_TalkPrice"))
Sign=trim(Request("m_Sign"))
set rs1=server.CreateObject("adodb.recordset")
rs1.Open "select * from D_FlowTable where clientnum='"& clientnum &"'",pubconn,1,3
if rs1.RecordCount>0 then
rs1.MoveFirst
rs1.Fields("CollectInfo")=CollectInfo
rs1.Fields("Assert")=Assert
rs1.Fields("Check")=Check
rs1.Fields("TalkPrice")=TalkPrice
rs1.Fields("Sign")=Sign
rs1.Update
rs1.Close
else
rs1.AddNew
rs1.Fields("clientnum")=clientnum
rs1.Fields("CollectInfo")=CollectInfo
rs1.Fields("Assert")=Assert
rs1.Fields("Check")=Check
rs1.Fields("TalkPrice")=TalkPrice
rs1.Fields("Sign")=Sign
rs1("Authors")=Session("UserName")
rs1("DepartID")=Session("DepartID")
rs1.Update
rs1.Close
end if
Response.Redirect "D_FlowMainFrm.asp?index="&request("index")&"&tag=3&page1="&Request("page1")&"&par_name="&trim(Request("par_name"))&"&par_type="&trim(Request("par_type"))&"&par_level="&trim(Request("par_level"))&"&par_clientnum="&trim(Request("m_clientnum"))&""
Response.End()
end if%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<link href="../cread.css" rel="stylesheet" type="text/css">
<title></title>
</HEAD>
<BODY bgcolor="#FFFFFF">
<script language="vbscript">
function datacheck()
document.form1.submit()
end function
</script>
<%function GetName(aa)''''''''''''''''''''根据编码取部门名称
set rs5=server.CreateObject("adodb.recordset")
if rs5.State=1 then rs5.Close
rs5.Open "select * from A_DepartInfo where DepartCode='"& aa &"'",pubconn,1,3
if rs5.RecordCount<=0 then
GetName=""
else
GetName=rs5.Fields("name")
end if
end function%>
<%function getClientName(aa) ''取客户姓名
set rs1=server.CreateObject("adodb.recordset")
if rs1.State=1 then rs1.Close
rs1.Open "select * from D_Clientinfo where ClientNum='"& aa &"'",pubconn,1,3
if rs1.RecordCount<=0 then
getClientName=""
else
getClientName=rs1.Fields("clientname")
end if
end function%>
<script language="vbscript">
function edit1()
document.form1.submit()
end function
</script>
<%if Request("tag")=5 then%><%'''''''''''编辑窗体'''''''%>
<%m_clientnum=Request("m_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%>
<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>
<font size="2">客户名称:<%=getClientName(m_clientnum)%><input type="hidden" name="m_clientnum1" size=20 readonly style="background-color: #edefef" value="<%=m_clientnum%>" ><br>
</font>
<form name="form1" method="post" action="D_FlowMainFrm.asp?tag=1">
<%if rs.RecordCount<=0 then %>
<center><table border=1 cellspacing=0 width="299">
<tr>
<td width="122" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right"> 收 集 信 息</td><td width="167" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select name="m_CollectInfo" style="width: 166; height: 23">
<option value="">请选择: <%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%>
<option value=<%=rs1.fields("DepartCode")%>><%=rs1.fields("Name")%> <%rs1.movenext
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -