📄 xsxgconf.asp
字号:
<!--#include file="../conn.inc" -->
<%
cpbh=Request("cpbh")
xsbh=Request("xsbh")
xssj=Request("xssj")
Session("cpbh")=cpbh
Session("xsbh")=xsbh
Session("xssj")=xssj
set rs=Server.createobject("adodb.Recordset")
rs.open "select * from XSCP where CPBH='" & cpbh & "' and XSBH='" & xsbh & "' and XSSJ='" & xssj &"'",conn,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body background="../img/bg-1.gif">
<% if rs.recordcount>0 then %>
<h4>所选择的产品销售信息如下：</h4>
<form action="xsxgcl.asp" method="get">
<%
response.write"产品编号：" & " " & cpbh & "<br><br>"
response.write"销售商编号：" & " " & xsbh & "<br><br>"
response.write"销售时间：" & " " & xssj & "<br><br>"
response.write"销售数量：" & " <input type=text name=sl value=" & rs.Fields("SL").Value & " ><br><br>"
response.write"销售金额：" & " <input type=text name=je value=" & rs.Fields("JE").Value & " >"
rs.close
conn.close
%>
<input type=submit value="修改">
<input type=reset value="重输">
<% else
response.write"没有符合修改条件的产品销售记录！"
end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -