cailiaoedit.asp

网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点：无须安装客户端] 主要功能模块：管理 公文 车辆 通知 档案 值班 人事 审批 仓库 主界面 软件下载 个人办公室

<%
if Session("ljl_liujinlu")="" or Session("ljl_grad")="" then%>
<script language=vbscript> 
MsgBox "错误：非法用户！"
location.href = "login.asp"
</script>
<%end if%>
<!--#include file="bkconn.asp"-->
<% 
'获取数据
             sid=clng(request.querystring("id"))
             sguestname=request.form("guestname")
             sdw=request.form("dw")
             sdj=request.form("dj")
             sdw1=request.form("dw1")
             if sdw1="" then sdw1="无"

'检验数据合法性
if sguestname="" or sdw="" or sdj="" then%>
<script language=vbscript> 
MsgBox "错误：输入不能有空，请重新提交！"
location.href = "guanli-shezhi.asp"
</script>
<%else
'校验修改是否与其他的名称重复
set   tablelist=conn.execute("select  * from  材料分类  where 材料名称='" &sguestname &"'and id<>"&sid)
if not(tablelist.eof and tablelist.bof) then
%>
<script language=vbscript> 
MsgBox "错误：数据库中已经存在此产品名称，禁止重复提交,您可以用名称+型号的方法为此材料命名！"
location.href = "guanli-shezhi.asp"
</script>
<%else
'写入记录	     
conn.execute("update 材料分类 set 材料名称='"&sguestname&"',材料型号='"&sdw&"',材料单位='"&sdj&"',备注='"&sdw1&"' where id="&sid)
'同时修改库存中的信息
conn.execute("update 库存 set 材料名称='"&sguestname&"',规格型号='"&sdw&"',单位='"&sdj&"',备注='"&sdw1&"' where id="&sid)
%>
<script language=vbscript> 
MsgBox "修改成功，单击此处返回！"
location.href = "guanli-shezhi.asp"
</script>
<%end if
conn.close
set conn=nothing
end if
%>