save.asp

具有计划、任务、通告、公文、员工档案、等网络办公功能

<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='../../default.asp';")
	response.write("</script>")
	response.end
end if
%>


<!--  #Include File=../main/css.asp -->
<%	'定义变量
	dim Number,opFlag
	SET rs=Server.CreateObject("ADODB.RecordSet") 
	rs.ActiveConnection = Session("conn")
	rs.CursorType = 1
	rs.LockType =3
	opFlag=Request.QueryString("opFlag")
	Number=Request.QueryString("Number")
	select case opFlag
	'保存新增文件信息
	case "cmdAddNew"
	    rs.open("select * from market where Snumber='" & request.Form("Snumber") & " ' "),Session("conn"),1,3
	if rs.eof   then 
	    rs.Addnew
	    rs("Name")=Request.Form("Name") 
	    rs("Id")=Request.Form("Id") 
	    rs("Bdata")=Request.Form("Bdata")
	    rs("Snumber")=Request.Form("Snumber")
	    rs("Company")=Request.Form("Company")
	    rs("Sadd")=Request.Form("Sadd")
	    rs("Sman")=Request.Form("Sman")
	    rs("Phone")=Request.Form("Phone")
	    rs("Athing")=Request.Form("Athing")
	    rs("Web")=Request.Form("Web")
	    rs("Mail")=Request.Form("Mail")         
	    rs("Vtext")=Request.Form("Vtext") 
	    rs.Update
	else
	    response.write("<script language=javascript>alert('您所输入编号已经存在，请重新输入!');window.history.back()</script>")
	    Response.end
	end if
	'保存修改文件信息
	case "cmdEdit"
	    rs.Open(Session("SQL"))
	    rs.Move Number
	    rs("Name")=Request.Form("Name") 
	    rs("Id")=Request.Form("Id") 
	    rs("Bdata")=Request.Form("Bdata")
	    rs("Snumber")=Request.Form("Snumber")
	    rs("Company")=Request.Form("Company")
	    rs("Sadd")=Request.Form("Sadd")
	    rs("Sman")=Request.Form("Sman")
	    rs("Phone")=Request.Form("Phone")
	    rs("Athing")=Request.Form("Athing")
	    rs("Web")=Request.Form("Web")
	    rs("Mail")=Request.Form("Mail")         
	    rs("Vtext")=Request.Form("Vtext")  
	    rs.Update
	    Response.write("<span class=vtext><font color=red><b>该项信息已经成功修改！</b></font></span>")
    end select
rs.close
set rs=nothing
'重定向
response.redirect"main.asp?opFlag=cmdEdit"+Session("isdepartment")
%>