newcheck.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
  if strBH="" then
   Response.Redirect "error.asp?info=编号不能为空!"
  end if
  if strKHMC="" then
  Response.Redirect "error.asp?info=客户名称不能为空!"
  end if
%>
<center>
<form action="newCheck.asp">
<table bgcolor=#ffffcc >
<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" ID="Text1"></td></tr>
<tr><td>客户名称</td><td><input type=text value="<%= strKHMC %>"name="KHMC" ID="Text2"></td></tr>
<tr><td>签订日期</td><td><input type=text value="<%= strQDRQ %>" name="QDRQ" ID="Text3"></td></tr>
<tr><td>合同编号</td><td><input type=text value="<%= strHTBH %>" name="HTBH" ID="Text4"></td></tr>
<tr><td>有效期</td><td><input type=text value="<%=strYXQ %>" name="YXQ" ID="Text5"></td></tr>
<tr><td>基本扣点比例</td><td><input name="JBKDBL" type="text" value="<%=strJBKDBL%>" ID="Text6"></td></tr>
<tr><td>回款扣点比例和方式</td><td><input type=text value="<%=strHKKDBLHFS%>" name="HKKDBLHFS" ID="Text7"></td></tr>
<tr><td>完成任务扣点</td><td><input type=text value="<%=strWCRWKD %>" name="WCRWKD" ID="Text8"></td></tr>
<tr><td>伤残机扣点</td><td><input type=text value="<%=strSCJKD %>" name="SCJKD" ID="Text9"></td></tr>
<tr><td>全年销售任务</td><td><input type=text value="<%=strQNXSRW %>"name="QNXSRW" ID="Text10"></td></tr>
<tr><td>付款条件</td><td><input type=text value="<%=strFKTJ %>" name="FKTJ" ID="Text11"></td></tr>
<tr><td>其他</td><td><textarea rows=5  name="QT"><%=strQT %></textarea></td></tr>
<tr><td colspan=2><font size=2 color=#ff0033>您确定要提交填写的信息吗?</font>
<input type=hidden value="T" name=Modified ID="Hidden1"></td></tr>
<tr><td colspan="2"><input type=submit value="我同意" ID="Submit1" NAME="Submit1"> &nbsp;&nbsp; <a href="newCheck.asp?Modified=F&BH=<%= strBH%>">返回重写</a></td></tr>
</table></form>

</center>
<hr width=400>
<%
else
 if strModified="T" then
  '=============修改S
     strSQL="Select * from CustomerInfo Where BH='" & strBH & "'"
     set rs=Server.CreateObject("ADODB.RECORDSET")
     rs.Open strSQL,con,1,3
     if rs.RecordCount<=0 then
     rs.Close
     strSQL="Select * from CustomerInfo"
     rs.Open strSQL,con,3,3
     rs.AddNew
     rs("BH")=strBH
     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
     else
     Response.Redirect "error.asp?info=该客户编号已经存在!"
     end if
  '=============修改E
  Response.Redirect "main.asp"
 else
 if strModified="F" then
  Response.Redirect "modify.asp?id=" & strBH
 end if
 end if
end if
%>