📄 rkthjzok.asp
字号:
<%
jkph=request("hjkph")
jkdate=request("hjkdate")
bcjk=request("hbcjk")
ye=request("hye")
rkthph=request("hthph")
gysname=request("hgysname")
czy=request("hjkczy")
jsr=request("hjkjsr")
if ye="0" then
whether="是"
else
whether="否"
end if
%>
<%
set conn=server.CreateObject("adodb.connection")
conn.open application("dsn")
%>
<%'加入入库退货票号表'
set rs=server.CreateObject("adodb.recordset")
sql="insert into tab_thjz_rk(thid, gysname, bcjk, ye, jkdate,czy ,jsr) values('"&thph&"','"&gysname&"',"&bcjk&","&ye&",'"&jkdate&"','"&czy&"','"&jsr&"')"
rs.open sql,conn,1,3
%>
<%'更新入库退货表'
set myrs=server.createobject("adodb.recordset")
sql="update tab_rkthjz_main set ws="&ye&",whether='"&whether&"' where id='"&rkthph&"'"
myrs.open sql,conn,1,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body>
<div align="center">
<p> </p>
<p> </p>
<p><font color="#336699">入库退货结账成功单击<a href="rkthjz.asp" target="_parent">[返回]</a>继续结账</font>
</p>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -