rkjzok.asp

来自「企业进销存管理系统 企业级别的进销存管理系统」· ASP 代码 · 共 46 行

ASP
46 行
字号 
<%
jkph=request("hjkph")
jkdate=request("hjkdate")
bcjk=request("hbcjk")
ye=request("hye")
rkph=request("hrkph")
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_rkjz(rkid, gysname, bcjk, ye, jkdate,czy ,jsr) values('"&rkph&"','"&gysname&"',"&bcjk&","&ye&",'"&jkdate&"','"&czy&"','"&jsr&"')"
rs.open sql,conn,1,3
%>
<%'更新入库票号表'
set myrs=server.createobject("adodb.recordset")
sql="update tab_rkjz_main set wf="&ye&",whether='"&whether&"' where id='"&rkph&"'"
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>&nbsp;</p>
  <p>&nbsp;</p>
  <p><font color="336699">商品入库结账成功单击<a href="rkjz.asp" target="_parent">[返回]</a> 继续结账 </font> 
  </p>
</div>
</body>
</html>

rkjzok.asp - 源码说明

本页面展示了「企业进销存管理系统 企业级别的进销存管理系统」中的 rkjzok.asp 源码文件，采用 ASP 编程语言编写，共 46 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与进销相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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