📄 returnsave.asp
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>保存采购退货单信息</title>
</head>
<body>
<%
Dim strFlag,rid
'得到标志参数，如果为0则表示添加操作，如果为1则表示更改操作
strFlag = Request.QueryString("flag")
Set rs = Server.CreateObject("ADODB.RECORDSET")
'Response.Write "here--"&strFlag
If strFlag="0" Then
'判断此订单编号是否重复
sql = "Select * From SaleReturn Where RntId='" & Request("rid") & "'"
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
Response.Write "<Script>alert('重复的退货单编号，请重新输入！');history.back();</Script>"
Response.End()
Else
rs.Close()
'在数据库表SaleReturn中插入新信息
sql="Select * From SaleReturn"
rs.Open sql,Conn,1,3
rs.AddNew
rs("RntId")= Request("rid")
rs("SaleId")= Request("pid")
rs("RntDate") = Request("rdate")
rs("Status") = "创建"
rs("ProSum") = Request("psum")
rs("OtherCost") = Request("cost")
rs("Memo") = Request("memo")
rs("Poster") = Request("poster")
rs("CreateDate") = Date()
rs.Update
End If
Else
sql="Select * From SaleReturn Where RntId='" & Request("rid") & "'"
rs.Open sql,Conn,1,3
rs("SaleId")= Request("pid")
rs("RntDate") = Request("rdate")
rs("Status") = "创建"
rs("ProSum") = 0
rs("OtherCost") = Request("cost")
rs("Memo") = Request("memo")
rs("Poster") = Request("poster")
rs("Flag") = 1
rs.Update
End If
Set rs = Nothing
Response.Redirect "ReturnEdit.asp?action=edit&rid=" & Request("rid")
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -