yongchexinxichuli.asp

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

<%xian=session("xian")
ljl_xian=mid(xian,13,1)
if ljl_xian<>1 then%>
<script language=vbscript> 
MsgBox "错误：您无权使用本功能模块，如果确实需要操作本模块的权限，请与管理员联系！"
location.href = "../config/txt.asp"
</script>
<%end if
Set conn=Server.CreateObject("ADODB.CONNECTION")
'Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
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
a12=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m   '审批处理时间

if request.querystring("id")="" then
response.write "没有正确的ID号"
else
id=clng(request.querystring("id"))
action=request("action")
ziduan=request("ziduan")
end if%>

<% '先检测车辆库中此车是否已经派出，判断标准为车牌号码
if action=26 then
a2=mid(ziduan,Instr(ziduan,"|")+1,InstrRev(ziduan,"|")-Instr(ziduan,"|")-1)'获取车牌号码
'response.write a2
set  tablelist=conn.execute("select  * from  车辆  where a2='"&a2&"' and a7=true")
if not(tablelist.eof and tablelist.bof) then
%>
<script language=vbscript> 
MsgBox "错误：您所选择车辆请求已经派出，请重新作废申请单重新让其申请！"
location.href = "yongcheinfo.asp?action=<%=action%>&ziduan=<%=ziduan%>&id=<%=id%>"
</script>
<%else%>
<%'获取数据，在用车申请中标志为车已经派出
conn.execute"update 用车申请 set a9=true , a12='"&a12&"' where id="&id
'同时在车辆数据库中标注车已经派出
conn.execute"update 车辆 set a7=true where a2='"&a2&"'"
%>
<script language=vbscript> 
MsgBox "系统提示：处理成功！"
location.href = "yongcheinfo.asp?action=<%=action%>&ziduan=<%=ziduan%>&id=<%=id%>"
</script>
<%end if
  end if
  if action=27 then '作废申请单
set  tablelist=conn.execute("select  * from  用车申请  where  a11=true and id="&id)
if not(tablelist.eof and tablelist.bof) then
%>
<script language=vbscript> 
MsgBox "错误：此工单已经作废，请不要重复操作！"
location.href = "yongcheinfo.asp?action=<%=action%>&ziduan=<%=ziduan%>&id=<%=id%>"
</script>
<%else%>
<%'获取数据，标志为作废工单
conn.execute"update 用车申请 set a11=true  where id="&id
%>
<script language=vbscript> 
MsgBox "系统提示：处理成功！"
location.href = "yongcheinfo.asp?action=<%=action%>&ziduan=<%=ziduan%>&id=<%=id%>"
</script>
<%end if
  end if
if action=28 then '车辆库中将使用中设置为空闲
conn.execute"update 车辆 set a7=false  where id="&id
%>
<script language=vbscript> 
MsgBox "系统提示：处理成功！"
location.href = "daibanlist.asp?action=3"
</script>
<%  end if
  if action=29 then '车辆库中将空闲设置为使用中
conn.execute"update 车辆 set a7=true  where id="&id
%>
<script language=vbscript> 
MsgBox "系统提示：处理成功！"
location.href = "daibanlist.asp?action=3"
</script>
<%
  end if
    if action=38 then '授权存储
    user=request("user")
    i=1 '获取授权值
do while i<=80
bb="c"&i
bb=request.form(bb)
if bb="" then bb=0
i=i+1
quanli=CStr(quanli)+CStr(bb)
loop

conn.execute"update 用户 set xian='"&quanli&"'  where 姓名='"&user&"'"
%>
<script language=vbscript> 
MsgBox "系统提示：处理成功！"
location.href = "../config/usershouquan.asp"
</script>
<%
  end if
conn.close
set conn=nothing
%>