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