📄 inoutsave.asp
字号:
<!--#include file="../conndb.asp"-->
<%
'0-采购入库；1-销售退货入库；2-销售出库；3-采购退货出库
Dim rs,strType,strName,strTitle,sql
strType = Request.QueryString("type")
If strType="0" Then
strName = "采购"
strTitle = "入库"
ElseIf strType="1" Then
strName = "销售"
strTitle = "入库"
ElseIf strType="2" Then
strName = "销售"
strTitle = "出库"
Else
strName = "采购"
strTitle = "出库"
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
%>
<html>
<head>
<title>保存<%=strName%><%=strTitle%>信息</title>
</head>
<body>
<%
Dim strFlag,id
'得到标志参数，如果为0则表示添加操作，如果为1则表示更改操作
strFlag = Request.QueryString("flag")
If strFlag="0" Then
'判断此出入库单编号是否重复
sql = "Select * From StoreInOut Where IOId='" & Request("id") & "'"
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
Response.Write "<script>alert('重复的出入库单编号，请重新输入！');history.back();</scirpt>"
Response.End()
End If
rs.Close()
'在数据库表StoreInOut中插入新信息
sql="Select * From StoreInOut"
rs.Open sql,Conn,1,3
rs.AddNew
rs("IOId") = Request("id")
rs("LotNo")= Request("lot") '批次号
rs("IONo") = Request("iono") '对应的采购销售单编号
rs("Status") = "创建"
rs("ProSum") = 0 '出入库商品总金额
rs("Flag") = strType '出入库单类型
rs("Poster") = Request("poster")
rs("CreateDate") = Date()'创建日期
rs.Update
Else
sql="Select * From StoreInOut Where IOId='" & Request("id") & "'"
rs.Open sql,Conn,1,3
rs("LotNo")= Request("lot") '批次号
rs("ProSum") = Request("psum") '出入库商品总金额
rs("Poster") = Request("poster")
rs("CreateDate") = Date()'创建日期
rs.Update
End If
Set rs = Nothing
Response.Redirect "InOutEdit.asp?action=edit&id=" & Request("id") & "&type=" & strType
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -