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 + -
显示快捷键?