ljlsave.asp

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

<!--#include file="../config/config.asp"-->
<%username=session("hxf_u_nickname")
if username=""  then  Response.Redirect "../error.asp?id=440"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
zhuti=request("zhuti")
url=request("url")
info=request("info")
jieshou=request("jieshou")
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
sj=n & "-" & y & "-" & r
if len(info)<1 or len(zhuti)<1 or len(jieshou)<1 or len(url)<1 then%>
<script language=vbscript>
MsgBox "所填项目不能有空，没有的请填写无!"
location.href = "show.asp"
'window.close()
</script>
<%'检验数据合法性
else
set   tablelist=conn.execute("select  * from  审批 where del=true")
if not(tablelist.eof and tablelist.bof) then
id1=tablelist("id")
conn.execute"update 审批 set send='" &username&"',jieshou='"&jieshou&"',info='"&info&"',info1='"&info&"',url='"&url&"',zhuti='"&zhuti&"',sj='"&sj&"',dufou=false,del=false where id="&id1
else

'写入记录	     
conn.execute("insert into 审批(send,zhuti,jieshou,info,info1,url,sj)  values('" &username &"','" &zhuti &"','" &jieshou &"','" &info &"','" &info &"','" &url &"','" &sj &"')")
end if
'rs.close
conn.close
set conn=nothing
end if
%>
<script language=vbscript>
MsgBox "提交成功，请注意审批回复!"
location.href = "duanxinlist.asp"
'window.close()
</script>