📄 newcheck_bcht.asp
字号:
<!--#include file="css.asp"-->
<!--#include file="conn.asp"-->
<%
strBH=Trim(Request.QueryString("KHBH"))
strZXDZ=Trim(Request.QueryString("ZXDZ"))
strSQR=Trim(Request.QueryString("SQR"))
strSQRQ=Trim(Request.QueryString("SQRQ"))
strXH=Trim(Request.QueryString("XH"))
strTJ=Trim(Request.QueryString("TJ"))
strXL=Trim(Request.QueryString("XL"))
strBZ=Trim(Request.QueryString("BZ"))
strModified=Trim(Request.QueryString("Modified"))
if strModified="" then
%>
<body bgcolor=#0066ff>
<center>
<form action="newCheck_BCHT.asp" >
<table bgcolor=#ffffcc width=70%>
<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="KHBH" size=60 ></td></tr>
<tr><td>中心地址</td><td><input type=text value="<%= strZXDZ %>"name="ZXDZ" size=60></td></tr>
<tr><td>申请人</td><td><input type=text value="<%= strSQR %>" name="SQR" size=60></td></tr>
<tr><td>申请日期</td><td><input type=text value="<%= strSQRQ %>" name="SQRQ" size=60></td></tr>
<tr><td>型号</td><td><input type=text value="<%=strXH %>" name="XH" size=60 ></td></tr>
<tr><td>特价</td><td><input name="TJ" type="text" value="<%=strTJ%>" size=60></td></tr>
<tr><td>限量</td><td><input type=text value="<%=strXL%>" name="XL" size=60></td></tr>
<tr><td>备注</td><td><textarea rows=5 name="BZ" cols=60><%=strBZ %></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"> <a href="newCheck_BCHT.asp?Modified=F&id=<%= strBH%>">返回重写</a></td></tr>
</table></form>
</center></body>
<%
else
if strModified="T" then
'=============修改S
strSQL="Select * from BCHT"
set rs=Server.CreateObject("ADODB.RECORDSET")
rs.Open strSQL,con,3,3
rs.AddNew
if strBH<>"" then
rs("KHBH")=strBH
end if
if strZXDZ<>"" then
rs("ZXDZ")=strZXDZ
end if
if strSQR<>"" then
rs("SQR")=strSQR
end if
if strSQRQ<>"" then
rs("SQRQ")=strSQRQ
end if
if strXH<>"" then
rs("XH")=strXH
end if
if strTJ<>"" then
rs("TJ")=strTJ
end if
if strXL<>"" then
rs("XL")=strXL
end if
if strBZ<>"" then
rs("BZ")=strBZ
end if
rs.Update
rs.Close
set rs=Nothing
'=============修改E
Response.Redirect "Close.asp"
else
if strModified="F" then
'Response.Write strMoidfied
Response.Redirect "modify_BCHT.asp?id=" & strBH
end if
end if
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -