📄 f_swshedit1.asp
字号:
set crs=server.createobject("adodb.recordset")
str8="select * from d_clientinfo where clientnum='"&khxh&"'"
crs.open str8,pubconn,3,3
if cdbl(je)>=cdbl(khrs1("firstdata")) then
crs("level")="战略客户"
crs.update
end if
if cdbl(je)>=cdbl(khrs2("firstdata")) and cdbl(je)<cdbl(khrs2("lastdata")) then
crs("level")="价值客户"
crs.update
end if
if cdbl(je)<cdbl(khrs3("lastdata")) then
crs("level")="一般客户"
crs.update
end if
mystr="select tag from d_clientinfo where clientnum='"&khxh&"'"
set myrs=pubconn.execute(mystr)
if myrs("tag")="khindex" then
mystr1="update d_clientinfo set tag='kh' where clientnum='"&khxh&"'"
pubconn.execute(mystr1)
end if
response.write "<br><br><center>审核完成，<a href=javascript:history.go(-1)>返回</a></center>"
response.end
end if '保存完毕 %>
<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" >
<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>
<form action="F_swshedit1.asp" method="post">
<input type="hidden" name="ID" value="<%=ID%>">
<input type="hidden" name="khxh" value="<%=khxh%>">
<table border="1" width="549" cellspacing="0" height="30" bgcolor="#F7F4E5">
<tr>
<td width="154" height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" >
<p align="right">
<font size="2">销售代表
</font>
</p>
</td>
<td width="143" height="23" align="right" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<p align="left">
<input type="text" name="txtjhr" size="15" value="<%=Pname(xsdb)%>" readonly style="background-color: #edefef" >
</p>
</td>
<td width="73" height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<p align="right">
<font size="2">评审人
</font>
</p>
</td>
<td width="235" height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<input type="text" name="txtshr" size="15" readonly value="<%=Session("StuffName")%>" style="background-color: #edefef" ></td>
</tr>
<tr>
<td width="154" height="23" align="right" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<p align="right">
<font size="2">评语
</font>
</p>
</td>
<td width="459" height="23" colspan="3" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<textarea rows="4" name="txtremark" cols="56" ><%=shpy%></textarea>
</td>
</tr>
<tr>
<td width="154" height="23" align="right" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<p align="right">
<font size="2">审核是否通过
</font>
</p>
</td>
<td width="459" height="23" colspan="3" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<input type="radio" value="N" name="tgf" <%if sftg="N" then%> checked <%end if %>>未通过
<input type="radio" value="Y" name="tgf" <%if sftg="Y" then%> checked <%end if %>> 通过</td>
</tr>
</table>
<p align="center">
<input type="submit" name="bc" value="保存" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >
<font size="2">
<A Href="F_swhtshbrow.asp">返回</a>
</font>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -