📄 setonwhsestatus.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "product","edit"
set objcheck=nothing
set conn=server.CreateObject("adodb.connection")
conn.open connstring
if Request("Mod") = "save" then
sql="update product set onwhsestatus='"&request("onwhsestatus")&"',producttype='"&request("producttype")&"',lastmoddate='"&now()&"' where productid="&request("productid")
conn.execute(sql)
%>
<script language=javascript>
window.opener.location.reload();
window.close();
</script>
<%
else
sql="select * from product where productid="&request("productid")
set rs=conn.execute(sql)
stronwhsestatus=rs("onwhsestatus")
strproducttype=rs("producttype")
if rs.eof then
response.write "记录没有找到"
response.end
end if
end if
%>
<title>产品设置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<Link href="../global.css" rel=stylesheet type=text/css>
<Script Language="javascript" >
function dosub()
{
form1.Mod.value = "save";
form1.submit();
}
</Script>
</head>
<body bgcolor="#CCFFCC" text="#000066" >
<form method="post" id=form1 name=form1 action="">
<input type=hidden name="Mod" >
<table width="30%" border="0" cellpadding="0" cellspacing="1">
<tr>
<td>在库状态设定:
<select name=onwhsestatus>
<option value=-1>--选择在库状态--</option>
<%getdefine "在库状态",stronwhsestatus%>
</select></td>
</tr>
<tr>
<td>产品类型设定:
<select name=producttype>
<option value=-1>--选择产品类型--</option>
<%getdefine "产品类型",strproducttype%>
</select></td>
</tr>
<tr>
<td align="left" height=45>
<a onclick="return dosub()"><img src="../images/button_confirm.gif" style="cursor:hand"></a>
<img src="../images/button_cancel.gif" style="cursor:hand" border=0 language=javascript onclick="window.close();">
</td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -