xsscconf.asp

来自「vbsql做的销售管理课程设计样本不完全仅为范例」· ASP 代码 · 共 36 行

ASP
36
字号
<!--#include file="../conn.inc" -->
<%
cpbh=Request("cpbh")
xsbh=Request("xsbh")
xssj=Request("xssj")
Session("cbh")=cpbh
Session("xbh")=xsbh
Session("xsj")=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="xssccl.asp" method="get">
<%
response.write"产品编号:" & "&nbsp;" & cpbh & "<br><br>"
response.write"销售商编号:" & "&nbsp;" & xsbh & "<br><br>"
response.write"销售时间:" & "&nbsp;" & xssj & "<br><br>"
response.write"销售数量:" & "&nbsp;&nbsp;" & rs.Fields("SL").Value & "<br><br>"
response.write"销售金额:" & "&nbsp;&nbsp;" & rs.Fields("JE").Value & "<br><br>"
rs.close
conn.close
%>
&nbsp;&nbsp;&nbsp;&nbsp;<input type=submit value="删除">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<% else
     response.write"没有符合删除条件的产品销售记录!"
end if%>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?