saveadd.asp

来自「医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考」· ASP 代码 · 共 32 行

<!--#include file="../include/conn.asp"-->
<%
TypeName1=request("TypeName")
yName=request("yName")
Sl=request("Sl")
Set rs=conn.execute("select * from yName where yName='"&yName&"'")
set rs1=server.CreateObject("adodb.recordset")
strsql1="select * from Stbl"
    rs1.open strsql1,conn,3,3
    rs1.addnew
    rs1("TypeName")=TypeName1
    rs1("yId")=rs("Id")
    rs1("yName")=yName
    rs1("Mode")=rs("Mode")
    rs1("Price")=rs("Price")
    rs1("Sl")=Sl
    rs1("TotalPrice")=int(Sl*rs("Price"))
    rs1("itType")=1
    rs1("UserId")=Session("UserID")
rs1.update
rs1.close
set rs1=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<center>添加成功</center>"
%>
<script language="javascript">
  setTimeout("window.close();",400);
  opener.location.reload();
</script>