fsave.asp

这是一个关于企业物流平台的东东

<!--#include file="../../conn/adminconn.asp"-->
<%
	select case request.form("options")
		'当case "tname"时添加分公司名称
		case "tname"
		if request("tname")="" then
			response.Write("<script language=javascript>alert('请把信息填写完整');location='javascript:history.go(-1)'</script>")
		else
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from fgongsi"
			rs.open sql,conn,1,3
			rs.addnew
			rs("fengongsi")=request.form("tname")
			rs.update
			rs.close
			response.Write("<script language=javascript>alert('添加成功！');location='fgongsi.asp'</script>")
		end if 
		'当case "gname"时修改分公司名称
		case "gname"
		if request("gname")="" then
			response.Write("<script language=javascript>alert('请把信息填写完整');location='javascript:history.go(-1)'</script>")
		else
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from fgongsi where id="&request("select1")
			rs.open sql,conn,1,3
			rs("fengongsi")=request("gname")
			rs.update
			rs.close
			response.Write("<script language=javascript>alert('修改成功！');location='fgongsi.asp'</script>")
		end if 
		'当case "del"时删除分公司名称
		case "del"
		sql="delete from fgongsi where id="&request("select1")
		conn.execute(sql)
		
		sql1="delete from fuser where fengongsi='"&request("gongsi")&"'"
		conn.execute(sql1)
		response.Write("<script language=javascript>alert('删除成功');location='fgongsi.asp'</script>")
		'当case "user"时添加用户名
		case "user"
		if request("username")<>"" and request("userpwd")<>"" then
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from fuser where username='"&request("username")&"'"
			rs.open sql,conn,1,1
			if not rs.eof then
			response.Write("<script language=javascript>alert('用户名已经存在！');location='javascript:history.go(-1)'</script>")
		else
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from fuser"
			rs.open sql,conn,1,3
			rs.addnew
			rs("username")=request("username")
			rs("userpwd")=request("userpwd")
			rs("fengongsi")=request("gongsi")
			rs.update
			rs.close
			response.Write("<script language=javascript>alert('添加成功！');location='fgongsi.asp'</script>")
		end if 
		else 
			response.Write("<script language=javascript>alert('请把信息填写完整');location='javascript:history.go(-1)'</script>")
		end if
	end select
%>