📄 zcjoin.asp
字号:
<!--#include file="connection.asp" -->
<!--#include file="tools.asp" -->
<!--#include file="check.asp"-->
<Script Language="javaScript">
function validate()
{
if (document.myform.name.value=="")
{
alert("资产名称不能为空");
document.myform.name.focus();
return false ;
}
if (document.myform.bh.value=="")
{
alert("资产编号不能为空");
document.myform.bh.focus();
return false ;
}
if (document.myform.lb.value=="")
{
alert("资产类别不能为空");
document.myform.lb.focus();
return false ;
}
if (document.myform.jldw.value=="")
{
alert("计量单位不能为空");
document.myform.jldw.focus();
return false ;
}
if (document.myform.sl.value=="")
{
alert("数量不能为空");
document.myform.sl.focus();
return false ;
}
if (document.myform.ggxh.value=="")
{
alert("规格型号不能为空");
document.myform.ggxh.focus();
return false ;
}
if (document.myform.jszs.value=="")
{
alert("技术证书号不能为空");
document.myform.jszs.focus();
return false ;
}
if (document.myform.wqjz.value=="")
{
alert("原值不能为空");
document.myform.wqjz.focus();
return false ;
}
if (document.myform.azf.value=="")
{
alert("安装费不能为空");
document.myform.azf.focus();
return false ;
}
if (document.myform.zj.value=="")
{
alert("折旧不能为空");
document.myform.zj.focus();
return false ;
}
if (document.myform.jz.value=="")
{
alert("净值不能为空");
document.myform.jz.focus();
return false ;
}
if (document.myform.jzdw.value=="")
{
alert("建造单位不能为空");
document.myform.jzdw.focus();
return false ;
}if (document.myform.jzny.value=="")
{
alert("建造年月不能为空");
document.myform.jzny.focus();
return false ;
}if (document.myform.ccbh.value=="")
{
alert("出厂编号不能为空");
document.myform.ccbh.focus();
return false ;
}if (document.myform.syrq.value=="")
{
alert("交付使用日期不能为空");
document.myform.syrq.focus();
return false ;
}if (document.myform.synx.value=="")
{
alert("预计使用年限不能为空");
document.myform.synx.focus();
return false ;
}
if (document.myform.szd.value=="")
{
alert("所在地不能为空");
document.myform.szd.focus();
return false ;
}
if (document.myform.bgr.value=="")
{
alert("保管人不能为空");
document.myform.bgr.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
zclruy=rs2("姓名")
%>
<%
table="zcdj"
if request.form("addedit_subed")="true" then
'表单提交后
editid=request.form("editid")
name=Request.Form("name")
bh=Request.Form("bh")
lb=Request.Form("lb")
jldw=Request.Form("jldw")
sl=Request.Form("sl")
ggxh=Request.Form("ggxh")
jszs=Request.Form("jszs")
wqjz=Request.Form("wqjz")
azf=Request.Form("azf")
zj=Request.Form("zj")
jz=Request.Form("jz")
jzdw=Request.Form("jzdw")
jzny=Request.Form("jzny")
ccbh=Request.Form("ccbh")
syrq=Request.Form("syrq")
synx=Request.Form("synx")
fsname=Request.Form("fsname")
fsggxh=Request.Form("fsggxh")
fsjzgc=Request.Form("fsjzgc")
fssl=Request.Form("fssl")
fsyj=Request.Form("fsyj")
fsdj=Request.Form("fsdj")
sydw=Request.Form("sydw")
fsname1=Request.Form("fsname1")
fsggxh1=Request.Form("fsggxh1")
fsjzgc1=Request.Form("fsjzgc1")
fssl1=Request.Form("fssl1")
fsyj1=Request.Form("fsyj1")
fsdj1=Request.Form("fsdj1")
fsname2=Request.Form("fsname2")
fsggxh2=Request.Form("fsggxh2")
fsjzgc2=Request.Form("fsjzgc2")
fssl2=Request.Form("fssl2")
fsyj2=Request.Form("fsyj2")
fsdj2=Request.Form("fsdj2")
fsname3=Request.Form("fsname3")
fsggxh3=Request.Form("fsggxh3")
fsjzgc3=Request.Form("fsjzgc3")
fssl3=Request.Form("fssl3")
fsyj3=Request.Form("fsyj3")
fsdj3=Request.Form("fsdj3")
fsname4=Request.Form("fsname4")
fsggxh4=Request.Form("fsggxh4")
fsjzgc4=Request.Form("fsjzgc4")
fssl4=Request.Form("fssl4")
fsyj4=Request.Form("fsyj4")
fsdj4=Request.Form("fsdj4")
sydw=Request.Form("sydw")
szd=Request.Form("szd")
bgr=Request.Form("bgr")
szd1=Request.Form("szd1")
bgr1=Request.Form("bgr1")
szd2=Request.Form("szd2")
bgr2=Request.Form("bgr2")
zcgly=Request.Form("zcgly")
zclry=Request.Form("zclry")
'服务器端验证
'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(zcgly) &"'"
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(sydw) 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("name","bh","lb","jldw","sl","ggxh","jszs","wqjz","azf","zj","jz","jzdw","jzny","ccbh","syrq","synx","fsname","fsggxh","fsjzgc","fssl","fsyj","fsdj","fsname1","fsggxh1","fsjzgc1","fssl1","fsyj1","fsdj1","fsname2","fsggxh2","fsjzgc2","fssl2","fsyj2","fsdj2","fsname3","fsggxh3","fsjzgc3","fssl3","fsyj3","fsdj3","fsname4","fsggxh4","fsjzgc4","fssl4","fsyj4","fsdj4","sydw","szd","bgr","szd1","bgr1","szd2","bgr2","zcgly","zclry","lrtime","userID")
value1=array(name,bh,lb,jldw,sl,ggxh,jszs,wqjz,azf,zj,jz,jzdw,jzny,ccbh,syrq,synx,fsname,fsggxh,fsjzgc,fssl,fsyj,fsdj,fsname1,fsggxh1,fsjzgc1,fssl1,fsyj1,fsdj1,fsname2,fsggxh2,fsjzgc2,fssl2,fsyj2,fsdj2,fsname3,fsggxh3,fsjzgc3,fssl3,fsyj3,fsdj3,fsname4,fsggxh4,fsjzgc4,fssl4,fsyj4,fsdj4,sydw,szd,bgr,szd1,bgr1,szd2,bgr2,zcgly,zclry,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("name","bh","lb","jldw","sl","ggxh","jszs","wqjz","azf","zj","jz","jzdw","jzny","ccbh","syrq","synx","fsname","fsggxh","fsjzgc","fssl","fsyj","fsdj","fsname1","fsggxh1","fsjzgc1","fssl1","fsyj1","fsdj1","fsname2","fsggxh2","fsjzgc2","fssl2","fsyj2","fsdj2","fsname3","fsggxh3","fsjzgc3","fssl3","fsyj3","fsdj3","fsname4","fsggxh4","fsjzgc4","fssl4","fsyj4","fsdj4","sydw","szd","bgr","szd1","bgr1","szd2","bgr2","zcgly","zclry","lrtime","userID")
value1=array(name,bh,lb,jldw,sl,ggxh,jszs,wqjz,azf,zj,jz,jzdw,jzny,ccbh,syrq,synx,fsname,fsggxh,fsjzgc,fssl,fsyj,fsdj,fsname1,fsggxh1,fsjzgc1,fssl1,fsyj1,fsdj1,fsname2,fsggxh2,fsjzgc2,fssl2,fsyj2,fsdj2,fsname3,fsggxh3,fsjzgc3,fssl3,fsyj3,fsdj3,fsname4,fsggxh4,fsjzgc4,fssl4,fsyj4,fsdj4,sydw,szd,bgr,szd1,bgr1,szd2,bgr2,zcgly,zclry,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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -