zhanghaosave.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"-->
<% 
'获取数据
scaozuoren=Session("ljl_liujinlu")
ziduan=request.form("a1")
sa1=left(ziduan,Instr(ziduan,"|")-1) '获取材料名称
sa3=mid(ziduan,Instr(ziduan,"|")+1,InstrRev(ziduan,"|")-Instr(ziduan,"|")-1)'型号
sa5=right(ziduan,len(ziduan)-InstrRev(ziduan,"|")) '单位
sa2=request.form("a2")
sip = Request.ServerVariables("REMOTE_ADDR")
sa4=request.form("a4")
sa6=request.form("a6")
sa7=request.form("a7")
sa8=request.form("a8")
sa9=request.form("a9")
sa10=request.form("a10")
sjine=sa10*sa6
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
ssj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
'检验数据合法性
if sa1="" or sa8="" or not isnumeric(sa10) or not isnumeric(sa6)  then
%>
<script language=vbscript> 
MsgBox "错误：提交的表单中不能有空或者单价输入的不是数字，请返回核对！"
location.href = "luru1.asp"
</script>
<%else
'写入记录	     
conn.execute("insert into 入库(材料名称,可用,规格型号,材料编号,单位,数量,存放仓库,材料来源,备注,入库人,单价,金额,ip,录入时间)  values('" &sa1 &"','" &sa2&"','" &sa3 &"','" &sa4 &"','" &sa5 &"','" &sa6 &"','" &sa7 &"','" &sa8 &"','" &sa9 &"','" &scaozuoren &"','" &sa10 &"','" &sjine &"','" &sip &"','" &ssj &"')")
'生成库存记录
conn.execute"update 库存 set 数量=数量+"&sa6&"  where 材料名称='"&sa1&"'"
%>
<script language=vbscript> 
MsgBox "入库保存成功！"
location.href = "luru1.asp"
</script>
<%end if
conn.close
set conn=nothing
%>