del.asp

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

<%Response.Buffer=true
action=request.querystring("action")
NUMBER=clng(request.querystring("id"))
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
if action=30 then
conn.execute("update 工作日志 set 有效=true where  id=" &NUMBER)
end if
if action=35 then
conn.execute("update 记事本 set 有效=true where  id=" &NUMBER)
end if
if action=41 then
xian=session("xian")
ljl_xian=mid(xian,48,1)
if ljl_xian<>1 then%>
<script language=vbscript> 
MsgBox "错误：您无权使用本功能模块，如果确实需要操作本模块的权限，请与管理员联系！"
location.href = "../config/txt.asp"
</script>
<%else
conn.execute("update 值班 set 有效=true where  id=" &NUMBER)
end if
end if
if action=39 then
xian=session("xian")
ljl_xian=mid(xian,20,1)
if ljl_xian<>1 then%>
<script language=vbscript> 
MsgBox "错误：您无权使用本功能模块，如果确实需要操作本模块的权限，请与管理员联系！"
location.href = "../config/txt.asp"
</script>
<%else
conn.execute("update 待办 set 有效=true where  id=" &NUMBER)
end if
end if
if action=40 then
xian=session("xian")
ljl_xian=mid(xian,10,1)
if ljl_xian<>1 then%>
<script language=vbscript> 
MsgBox "错误：您无权使用本功能模块，如果确实需要操作本模块的权限，请与管理员联系！"
location.href = "../config/txt.asp"
</script>
<%else
conn.execute("update 公文 set 有效=true where id=" &NUMBER)
end if
end if
if action=42 then
xian=session("xian")
ljl_xian=mid(xian,56,1)
if ljl_xian<>1 then%>
<script language=vbscript> 
MsgBox "错误：您无权使用本功能模块，如果确实需要操作本模块的权限，请与管理员联系！"
location.href = "../config/txt.asp"
</script>
<%else
conn.execute("update 档案 set 有效=true where id=" &NUMBER)
end if
end if
if action=44 then
conn.execute("update 通讯录 set 有效=true where id=" &NUMBER)
end if
if action=45 then
xian=session("xian")
ljl_xian=mid(xian,59,1)
if ljl_xian<>1 then%>
<script language=vbscript> 
MsgBox "错误：您无权使用本功能模块，如果确实需要操作本模块的权限，请与管理员联系！"
location.href = "../config/txt.asp"
</script>
<%else
conn.execute("update 档案 set 有效=true where id=" &NUMBER)
end if
end if
if action=101 or action=102 or action=103 then
xian=session("xian")
ljl_xian=mid(xian,61,1)
if ljl_xian<>1 then%>
<script language=vbscript> 
MsgBox "错误：您无权使用本功能模块，如果确实需要操作本模块的权限，请与管理员联系！"
location.href = "../config/txt.asp"
</script>
<%else
conn.execute("update 附加 set 有效=true where id=" &NUMBER)
end if
end if
%>
<script language=vbscript> 
MsgBox "系统提示：处理成功，按此返回！"
location.href = "javascript:history.go(-1)"
</script>