dzjoin.asp

能完成公司资产和资源的管理

<!--#include file="connection.asp" -->
<!--#include file="tools.asp" -->
<!--#include file="check.asp"-->

<Script Language="javaScript">
    function  validate()
    {
        if  (document.myform.xsdw.value=="")
        {
            alert("销售单位名称不能为空");
            document.myform.xsdw.focus();
            return false ;
        }
        if  (document.myform.fph.value=="")
        {
            alert("发票号不能为空");
            document.myform.fph.focus();
            return false ;
        }
	if  (document.myform.fptime.value=="")
        {
            alert("发票日期不能为空");
            document.myform.fptime.focus();
            return false ;
        }
	if  (document.myform.mlbh.value=="")
        {
            alert("目录编号不能为空");
            document.myform.mlbh.focus();
            return false ;
        }
	if  (document.myform.dzname.value=="")
        {
            alert("低值易耗品名称不能为空");
            document.myform.dzname.focus();
            return false ;
        }
		if  (document.myform.dzgg.value=="")
        {
            alert("规格型号不能为空");
            document.myform.dzgg.focus();
            return false ;
        }
	if  (document.myform.dw.value=="")
        {
            alert("计量单位不能为空");
            document.myform.dw.focus();
            return false ;
        }
	if  (document.myform.sl.value=="")
        {
            alert("数量不能为空");
            document.myform.sl.focus();
            return false ;
        }
	if  (document.myform.grdj.value=="")
        {
            alert("购入单价不能为空");
            document.myform.grdj.focus();
            return false ;
        }
	if  (document.myform.grje.value=="")
        {
            alert("购入金额不能为空");
            document.myform.grje.focus();
            return false ;
        }
        if  (document.myform.mldj.value=="")
        {
            alert("目录单价不能为空");
            document.myform.mldj.focus();
            return false ;
        }
	if  (document.myform.mlje.value=="")
        {
            alert("目录金额不能为空");
            document.myform.mlje.focus();
            return false ;
        }if  (document.myform.zzdw.value=="")
        {
            alert("增置单位不能为空");
            document.myform.zzdw.focus();
            return false ;
        }
        add_onsubmit(myform)
	return  true;
    }
</Script>

<%
 if Session("Urule")<>"a" then
	response.redirect "error.asp?id=admin"
 end if
%>
<%
Set myrs= Server.CreateObject("ADODB.Recordset") 
strSql="select * from bumen"
myrs.open strSql,Conn,1,1

Set lbrs= Server.CreateObject("ADODB.Recordset") 
lbSql="select * from lb"
lbrs.open lbSql,Conn,1,1

dim sql
dim rs
sql="select * from user where id="&session("uid")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1

dim sql1
dim rs_user
sql1="select 姓名 from user where trim(权限)='b'"
set rs_user=server.createobject("adodb.recordset")
rs_user.open sql1,conn,1,1
                
dim sql2
dim rs2
sql2="select * from user where id=" & session("uid") & " and trim(权限)='a'"
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,1,1

dzlruy=rs2("姓名")
%>
<%
table="dzdj"

if request.form("addedit_subed")="true" then 
'表单提交后

	editid=request.form("editid")
	xsdw=Request.Form("xsdw")
	fph=Request.Form("fph")
	fptime=Request.Form("fptime")
	dzlb=Request.Form("dzlb")
	mlbh=Request.Form("mlbh")
	dzname=Request.Form("dzname")
	dzgg=Request.Form("dzgg")
	dw=Request.Form("dw")
	sl=Request.Form("sl")
	grdj=Request.Form("grdj")
	grje=Request.Form("grje")
	mldj=Request.Form("mldj")
	mlje=Request.Form("mlje")
	zzdw=Request.Form("zzdw")
	gldw=Request.Form("gldw")
	
	dzgly=Request.Form("dzgly")
	dzlry=Request.Form("dzlry")
	
	
	
	'服务器端验证
	'outcheck(CheckValue(name,,,1,"固定资产名称"))
	'outcheck(CheckValue(bh,,,1,"编号"))
	'outcheck(CheckValue(jldw,,,1,"计量单位"))
	'outcheck(CheckValue(sl,,,1,"数量"))
	'outcheck(CheckValue(ggxh,,,1,"规格型号"))
	'outcheck(CheckValue(jszs,,,1,"技术证书号"))
	'outcheck(CheckValue(wqjz,,,1,"原值"))
	'outcheck(CheckValue(azf,,,1,"安装费"))
	'outcheck(CheckValue(zj,,,1,"折旧"))
	'outcheck(CheckValue(jz,,,1,"净值"))
	'outcheck(CheckValue(jzdw,,,1,"建造单位"))
	'outcheck(CheckValue(jzny,,,1,"建造年月"))
	'outcheck(CheckValue(ccbh,,,1,"出厂编号"))
	'outcheck(CheckValue(syrq,,,1,"交付使用日期"))
	'outcheck(CheckValue(synx,,,1,"预计使用年限"))
	'outcheck(CheckValue(syzt,,,1,"使用状态"))
	'outcheck(CheckValue(sydw,,,1,"使用部门"))
	'outcheck(CheckValue(szd,,,1,"所在地"))
	'outcheck(CheckValue(bgr,,,1,"保管人"))
	'outcheck(CheckValue(szd1,,,1,"所在地1"))
	'outcheck(CheckValue(bgr1,,,1,"保管人1"))
	'outcheck(CheckValue(szd2,,,1,"所在地2"))
	'outcheck(CheckValue(bgr2,,,1,"保管人2"))
	'outcheck(CheckValue(zcgly,,,1,"资产管理员"))
	'outcheck(CheckValue(zclry,,,1,"资产录入员"))
	
	dim sqluser
	dim rs_user1,userDep
 	sqluser="select * from user where trim(权限)='b'"& "and trim(姓名)='" & trim(dzgly) &"'"

	set rs_user1=server.createobject("adodb.recordset")
	rs_user1.open sqluser,conn,1,1
	
	'response.write rs_user1("部门")
	'response.end
	userDep=rs_user1("部门")
	
    if trim(userDep)=trim(gldw) then
	if editid="" then	'添加状态
		' 防止二义性信息逻辑****************
		'set rs_test=Server.CreateObject("ADODB.RECORDSET")
		'rs_test.Open "select count(*) as counter from " & table & " where username='" & username & "'",conn
		'if  rs_test("counter")>0 then
		'	call Msgout("用户名已存在, 不能添加!","javascript:history.back()",3)
		'	Response.End
		'end if
		'************************************

		'添加时使用的字段
		field1=array("xsdw","fph","fptime","dzlb","mlbh","dzname","dzgg","dw","sl","grdj","grje","mldj","mlje","zzdw","gldw","dzgly","dzlry","dzlrtime","userID")
		value1=array(xsdw,fph,fptime,dzlb,mlbh,dzname,dzgg,dw,sl,grdj,grje,mldj,mlje,zzdw,gldw,dzgly,dzlry,date(),rs_user1("id"))

		for i=0 to ubound(field1)
			value1(i)=replace(value1(i),"'","''")
		next
		
		sql = "INSERT INTO " & table & " (" & Join(field1, ",") & ") VALUES ('" & Join(value1, "','") & "')"
		'response.write sql
		'response.end
		word="你的信息已成功加入!"
	else	'编辑状态

		'编辑时使用的字段
		field1=array("xsdw","fph","fptime","dzlb","mlbh","dzname","dzgg","dw","sl","grdj","grje","mldj","mlje","zzdw","gldw","dzgly","dzlry","dzlrtime","userID")
		value1=array(xsdw,fph,fptime,dzlb,mlbh,dzname,dzgg,dw,sl,grdj,grje,mldj,mlje,zzdw,gldw,dzgly,dzlry,date(),rs_user1("id"))

		sql="UPDATE " & table & " SET "
		for i=0 to ubound(field1)
			sql = sql & field1(i) & "='" & replace(value1(i),"'","''") & "'" 
			if i <> ubound(field1) then
				sql=sql & "," 
			else
				'如果你的主关键字名不是"id",请修改下面的代码
				sql=sql & " where id=" & editid 
			end if	
		next
		word="你的信息已成功修改!"
	end if 

	conn.Execute sql
    else 
	%>
	<script language="JavaScript">
		alert("您选择的使用部门和管理员所在部门不符！");
		
	</script>
<%	
    end if
else
'进入页面时(非提交)
	editid=request("editid")
	if editid<>"" then '编辑状态
		onload="onload=""page_onload();"""
		set rs1=Server.CreateObject("ADODB.RECORDSET")
		rs1.Open "select * from " & table & " where id =" & editid ,conn
			
		xsdw=rs1("xsdw")
		fph=rs1("fph")
		fptime=rs1("fptime")
		dzlb=rs1("dzlb")
		mlbh=rs1("mlbh")
		dzname=rs1("dzname")
		dzgg=rs1("dzgg")
		dw=rs1("dw")
		sl=rs1("sl")
		grdj=rs1("grdj")
		grje=rs1("grje")
		mldj=rs1("mldj")
		mlje=rs1("mlje")
		zzdw=rs1("zzdw")
		gldw=rs1("gldw")
		dzgly=rs1("dzgly")
		dzlry=rs1("dzlry")
		
	else	'添加状态
		xsdw=""
		fph=""
		fptime=""
		dzlb=""
		mlbh=""
		dzname=""
		dzgg=""
		dw=""
		sl=""
		grdj=""
		grje=""
		mldj=""
		mlje=""
		zzdw=""
		gldw=""
		dzgly=""
		dzlry=""
	end if

end if

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css">