📄 addxs.asp
字号:
<!--#include file="../conn.inc" -->
<!--#include file="../adovbs.inc" -->
<!--#include file="../showrs.asp" -->
<%
cpbh=Request("cpbh")
xsbh=Request("xsbh")
xssj=Request("xssj")
xssl=Request("xssl")
je=Request("je")
set rs=Server.createobject("adodb.Recordset")
rs.open "select * from XSCP",conn,adOpenDynamic,adLockPessimistic
rs.AddNew
rs("CPBH")=cpbh
rs("XSBH")=xsbh
rs("XSSJ")=xssj
rs("SL")=xssl
rs("JE")=je
rs.Update
conn.close
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body background="../img/bg-1.gif">
<h4>本次添加销售记录操作成功</h4><br>
<%
conn.open
set rs=Server.createobject("adodb.Recordset")
sql = "select a.CPBH as '产品编号',CPMC as '产品名称',JG as '当前单价',b.XSBH as '销售商编号',XSMC as '销售商名称',DQ as '销售商地区',XSSJ as '销售时间',SL as '销售数量',JE as '销售金额' from CP a,XSS b,XSCP c where a.CPBH=c.CPBH and b.XSBH=c.XSBH"
rs.open sql,conn,3
showrs rs
rs.close
conn.close
%></body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -