statuschanged.asp

来自「online sales system of texttile mill was」· ASP 代码 · 共 42 行

ASP
42
字号
<!-- #include file="conn.asp" -->
<html>
<head>
	<title>Untitled</title>
</head>

<body bgcolor="">
<%
dim st
id = request.QueryString("id")
st = trim(Request.form("t1"))

dim act_id

if (st="Production Planning") then
act_id=1
elseif(st="Production Schedule") then
act_id=2
elseif(st="Purchase of Raw Material") then
act_id=3

elseif(st="Production in Progress") then
act_id=4
elseif(st="Quality Checking") then
act_id=5
elseif(st="Packing") then
act_id=6
elseif(st="Shipmnet") then
act_id=7
elseif(st="Shipped") then
act_id=8
end if


SQL = "update Orders set act_id=" & cInt(act_id) & " where orderid=" & id
objcon.execute(SQL)

response.redirect "admin_options.asp"
%>

</body>
</html>

⌨️ 快捷键说明

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