daifasave.asp

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

<%action=request.querystring("action")
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
'获取数据
fawenzhe=Session("hxf_u_nickname")
fawenbumen=session("mypai")
sq1=request.form("q1")
sq2=request.form("q2")
sq3=trim(request.form("q3"))
sq4=request.form("q4")
sq5=request.form("q5")
sq8=request.form("q8")
yuelanzhe="|管理员"
sip = Request.ServerVariables("REMOTE_ADDR")
n=Year(date())
y=Month(date())
r=Day(date())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
ssj=n & "-" & y & "-" & r

'检验数据合法性
if sq1="" or sq2="" or sq3="" or sq4="" or sq5="" or sq5="" or sq8="" then%>
<script language=vbscript> 
MsgBox "错误：提交的表单中不能有空,没有内容的请填写[无]，请返回核对！"
location.href = "javascript:history.go(-1)"
</script>
<%else
if action=1 then
xian=session("xian")
ljl_xian=mid(xian,18,1)
if ljl_xian<>1 then%>
<script language=vbscript> 
MsgBox "错误：您无权使用本功能模块，如果确实需要操作本模块的权限，请与管理员联系！"
location.href = "../config/txt.asp"
  </script>
<%end if
	sql="SELECT * FROM 待办 WHERE 有效=true"
	set rs=conn.Execute(sql)
If not(Rs.Bof OR Rs.Eof) Then
		id=rs("id")
		sql="update 待办 set 发文者='"&fawenzhe&"',发文部门='"&fawenbumen&"',主题='"&sq1&"',内容='"&sq5&"',类别='" &sq3 & "',保密度='" &sq4 & "',文号='"&sq2&"',阅览者='"&yuelanzhe&"',下载='"&sq8&"',ip='"&sip&"',日期='"&ssj&"',有效=false,阅览次数=0 where id="&id
		conn.Execute(sql)
	else 
conn.execute("insert into 待办(发文者,发文部门,主题,内容,类别,保密度,文号,阅览者,下载,ip,日期)  values('" &fawenzhe &"','" &fawenbumen &"','" &sq1 &"','" &sq5 &"','" &sq3 &"','" &sq4 &"','" &sq2 &"','" &yuelanzhe &"','" &sq8 &"','" &sip &"','" &ssj &"')")
end if
end if
if action=2 then
xian=session("xian")
ljl_xian=mid(xian,9,1)
if ljl_xian<>1 then%>
<script language=vbscript> 
MsgBox "错误：您无权使用本功能模块，如果确实需要操作本模块的权限，请与管理员联系！"
location.href = "../config/txt.asp"
  </script>
<%end if
	sql="SELECT * FROM 公文 WHERE 有效=true"
	set rs=conn.Execute(sql)
If not(Rs.Bof OR Rs.Eof) Then
		id=rs("id")
		sql="update 公文 set 发文者='"&fawenzhe&"',发文部门='"&fawenbumen&"',主题='"&sq1&"',内容='"&sq5&"',类别='" &sq3 & "',保密度='" &sq4 & "',文号='"&sq2&"',阅览者='"&yuelanzhe&"',下载='"&sq8&"',ip='"&sip&"',日期='"&ssj&"',有效=false,阅览次数=0 where id="&id
		conn.Execute(sql)
	else 
conn.execute("insert into 公文(发文者,发文部门,主题,内容,类别,保密度,文号,阅览者,下载,ip,日期)  values('" &fawenzhe &"','" &fawenbumen &"','" &sq1 &"','" &sq5 &"','" &sq3 &"','" &sq4 &"','" &sq2 &"','" &yuelanzhe &"','" &sq8 &"','" &sip &"','" &ssj &"')")
end if
end if
%>
<script language=vbscript> 
MsgBox "数据提交成功，单击此处返回！"
location.href = "../config/txt.asp"
</script>
<%
conn.close
set conn=nothing
end if
%>