📄 modifycheck.asp
字号:
<!--#include file="css.asp"-->
<!--#include file="conn.asp"-->
<%
strBH=Trim(Request.QueryString("BH"))
strKHMC=Trim(Request.QueryString("KHMC"))
strQDRQ=Trim(Request.QueryString("QDRQ"))
strHTBH=Trim(Request.QueryString("HTBH"))
strYXQ=Trim(Request.QueryString("YXQ"))
strJBKDBL=Trim(Request.QueryString("JBKDBL"))
strHKKDBLHFS=Trim(Request.QueryString("HKKDBLHFS"))
strWCRWKD=Trim(Request.QueryString("WCRWKD"))
strSCJKD=Trim(Request.QueryString("SCJKD"))
strQNXSRW=Trim(Request.QueryString("QNXSRW"))
strFKTJ=Trim(Request.QueryString("FKTJ"))
strQT=Trim(Request.QueryString("QT"))
strModified=Trim(Request.QueryString("Modified"))
if strModified="" then
%>
<body bgcolor=#0066ff>
<center>
<form action="modifyCheck.asp">
<table bgcolor=#ffffcc width=75%>
<tr><td colspan=2 align=center><font size=3 color=red>信息修改确认页面</font></td></tr>
<tr><td>编号</td><td bgcolor=#99cc00><input type=text readonly value="<%= strBH%>" name="BH" size=60></td></tr>
<tr><td>客户名称</td><td><input type=text value="<%= strKHMC %>"name="KHMC" readonly size=60></td></tr>
<tr><td>签订日期</td><td><input type=text value="<%= strQDRQ %>" name="QDRQ" readonly size=60></td></tr>
<tr><td>合同编号</td><td><input type=text value="<%= strHTBH %>" name="HTBH" readonly size=60></td></tr>
<tr><td>有效期</td><td><input type=text value="<%=strYXQ %>" name="YXQ" readonly size=60 ></td></tr>
<tr><td>基本扣点比例</td><td><input name="JBKDBL" type="text" value="<%=strJBKDBL%>" readonly size=60></td></tr>
<tr><td>回款扣点比例和方式</td><td><input type=text value="<%=strHKKDBLHFS%>" name="HKKDBLHFS" readonly size=60></td></tr>
<tr><td>完成任务扣点</td><td><input type=text value="<%=strWCRWKD %>" name="WCRWKD" readonly size=60></td></tr>
<tr><td>伤残机扣点</td><td><input type=text value="<%=strSCJKD %>" name="SCJKD" readonly size=60> </td></tr>
<tr><td>全年销售任务</td><td><input type=text value="<%=strQNXSRW %>"name="QNXSRW" readonly size=60></td></tr>
<tr><td>付款条件</td><td><input type=text value="<%=strFKTJ %>" name="FKTJ" readonly size=60></td></tr>
<tr><td>其他</td><td><textarea rows=5 name="QT" readonly cols=60><%=strQT %></textarea></td></tr>
<tr><td colspan=2><font size=2 color=#ff0033>您确定要提交填写的信息吗?</font>
<input type=hidden value="T" name=Modified ></td></tr>
<tr><td colspan="2"><input type=submit value="我同意" ID="Submit1" NAME="Submit1"> <a href="modifyCheck.asp?Modified=F&BH=<%= strBH%>">返回重写</a></td></tr>
</table></form>
</center></body>
<%
else
if strModified="T" then
'=============修改S
strSQL="Select * from CustomerInfo Where BH='" & strBH & "'"
'Response.Write strSQL
set rs=Server.CreateObject("ADODB.RECORDSET")
rs.Open strSQL,con,3,3
if strKHMC<>"" then
rs("KHMC")=strKHMC
end if
if strQDRQ<>"" then
rs("QDRQ")=strQDRQ
end if
if strHTBH<>"" then
rs("HTBH")=strHTBH
end if
if strYXQ<>"" then
rs("YXQ")=strYXQ
end if
if strJBKDBL<>"" then
rs("JBKDBL")=strJBKDBL
end if
if strHKKDBLHFS<>"" then
rs("HKKDBLHFS")=strHKKDBLHFS
end if
if strWCRWKD<>"" then
rs("WCRWKD")=strWCRWKD
end if
if strSCJKD<>"" then
rs("SCJKD")=strSCJKD
end if
if strQNXSRW<>"" then
rs("QNXSRW")=strQNXSRW
end if
if strFKTJ<>"" then
rs("FKTJ")=strFKTJ
end if
if strQT<>"" then
rs("QT")=strQT
end if
rs.Update
rs.Close
set rs=Nothing
'=============修改E
Response.Redirect "main.asp"
else
if strModified="F" then
Response.Redirect "modify.asp?id=" & strBH
end if
end if
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -