fujiasave.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
sid=clng(request.querystring("id"))
a12= Request.ServerVariables("REMOTE_ADDR")
a11=session("hxf_u_nickname")
         a1=request.form("a1")
	     a2=request.form("a2")
         a3=request.form("a3")
         a4=request.form("a4")
         a5=request.form("a5")
         a6=request.form("a6")
         a8=request.form("a8")
         a7=request.form("a7")
         a9=request.form("a9")
         if action=101 then
         a7=0
         a8=0
         a9=0
         end if
         if action=103 then
         a6=0
         a7=0
         a8=0
         a9=0
         end if
         '检验数据合法性
if a1="" or a2="" or not isnumeric(a3) or a4="" or a5="" or a6="" or a7="" or a8="" or a9=""   then
%>
<script language=vbscript> 
MsgBox "错误：输入不能有空,没有信息的请填写[无]或者电话号码您填写的不是数字，请核对！"
location.href = "fujia.asp?action=<%=action%>"
</script>
<%else
set   tablelist=conn.execute("select  * from  附加  where a2='" &a2 &"' and a3='" &a3 &"'and a13='" &a13 &"'")
if not(tablelist.eof and tablelist.bof) then
%>
<script language=vbscript> 
MsgBox "错误：数据库中已经存在此条信息，禁止重复提交！"
location.href = "fujia.asp?action=<%=action%>"
</script>
<%else

'写入记录
	sql="SELECT * FROM 附加 WHERE 有效=true"
	set rs=conn.Execute(sql)
If not(Rs.Bof OR Rs.Eof) Then
		id=rs("id")
		sql="update 附加 set a1='"&a1&"',a2='"&a2&"',a3='"&a3&"',a4='"&a4&"',a5='" &a5& "',a6='" &a6 & "',a7='" &a7 & "',a8='" &a8 & "',a9='" &a9 & "',a10=now(),有效=false,a12='"&a12&"',a11='"&a11&"',a13='"&action&"' where id="&id
		conn.Execute(sql)
	else  	     
conn.execute("insert into 附加(a1,a2,a3,a4,a5,a6,a7,a8,a9,a11,a12,a13)  values('" &a1 &"','" &a2 &"','" &a3 &"','" &a4&"','" &a5&"','" &a6&"','" &a7&"','" &a8&"','" &a9&"','" &a11&"','" &a12&"','" &action&"')")
end if
%>
<script language=vbscript> 
MsgBox "系统提示：提交成功，按此返回！"
location.href = "fujia.asp?action=<%=action%>"
</script>

<%end if
conn.close
set conn=nothing
end if
%>