📄 eaddeq.inc.bak
字号:
ev2(0)=gSid
mev=Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,18)
sql= "insert into t_equipment (equi_id," & wj(mev,ev,",") & ")" & _
"values ("& ToSQL(GetParam("equi_id"),"Number") &","& wj(mev,ev2,",") & ")"
' response.write sql
conn.Execute(sql)
End Sub
Sub AddChildEq()
dim ev2(18)
dim i,j
dim sql
dim mev
dim e
e = DLookup(conn,"select count(*) from t_equipment where equi_id=" & ToSQL(GetParam("equi_id"),"Number"))
If Cint(e) > 0 Then
'already in it
ww "<script language=javascript>alert('系统中已存在该代号的设备')</script>"
ww "<script language=javascript>window.close();</script>"
response.end
Exit Sub
End If
for each i in Array(1,2,5,6,7,8,9,10,11,12,17,18)
ev2(i) = ToSQL(GetParam(ev(i)),"Text")
Next
for each i in Array(3,4,13,14,15,16)
ev2(i) = ToSQL(GetParam(ev(i)),"Number")
Next
ev2(0)=gSid
mev=Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,18)
sql= "insert into t_equipment (equi_id," & wj(mev,ev,",") & ",parent_equi_id)" & _
"values ("& ToSQL(GetParam("equi_id"),"Number") &"," & wj(mev,ev2,",") & ","& gPid &")"
response.write sql
' conn.Execute(sql)
End Sub
Sub UpdateEq()
dim ev3(18),ev4(18)
dim i,j
dim sql
dim mev
mev = null
for each i in Array(1,2,5,6,7,8,9,10,11,12,17,18)
ev4(i) = ev(i) & "=" & ToSQL(GetParam(ev(i)),"Text")
Next
for each i in Array(3,4,13,14,15,16)
ev4(i) = ev(i) & "=" & ToSQL(GetParam(ev(i)),"Number")
Next
mev=Array(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,18)
sql= "update t_equipment set " & wj(mev,ev4,",") & " where equi_id=" & gEid
conn.Execute(sql)
End Sub
Sub DeleteEq()
' LookUp sub equipment
dim sSQL, iRows
iRows = DLookUp(conn, "select count(*) from t_equipment where parent_equi_id =" & gEid)
if iRows > 0 then
Response.Write _
"<script language=""javascript"">" & vbLF & _
" alert(""对不起，该设备有" & iRows & "个子设备，该设备不能删除！"");" & vbLF & _
"</script>" & vbLF
exit Sub
end if
' sSQL = "delete from t_equipment where equi_id = " & gEid
sSQL = "update t_equipment set discarded=1, discarded_date='"& Date & "' where equi_id=" & gEid
' ww(sSQL)
conn.Execute(sSQL)
' gEid = empty
' Server.Transfer "equipmgr.asp"
' response.end
End Sub
Sub DelEq()
'delete equipment
dim sSQL
sSQL = "delete from t_equipment where equi_id=" & gEid
conn.Execute(sSQL)
ww "<script language=javascript>parent.location.href='equi_list.asp'</script>"
response.end
End Sub
Sub ReplaceEq()
dim s
dim rn
dim t
t = DLookUp(conn,"select count(*) from t_equipment where equi_id=" & ToSQL(GetParam("nid"),"Number"))
If CInt(t) > 0 Then
ww "<script language=javascript>alert('系统中已存在该代号的设备')</script>"
' ww "<script language=javascript>location.href = ""eaddeq.asp""</script>"
' response.end
Exit Sub
End If
s = "proc_ChangeEquipment "& ToSQL(gEid,"Number") &","& ToSQL(GetParam("nid"),"Number")
' ww s
' response.end
rn = ExecuteSP(conn,s)
' ww rn
If rn < 0 Then
werr "替换设备发生错误,错误代码为"&rn
response.end
End If
ww "<script language=javascript>parent.location.href='etabs.asp?eid="& rn &"'</script>"
End Sub
Function FormTable1()
dim sTitle, sActionLinks
' sSysDesc = DLookUp(conn, "select sys_desc from t_sys where sys_id = " & ToSQL(pSysId, "Number"))
if IsEmpty(pSysId) then
sTitle = "新增根系统" '' 显示新增、取消的链接
sActionLinks = _
"<tr bgcolor=white height=30>" & vbLF & _
" <td colspan=8 align=center>" & vbLF & _
" <img border=0 src=""../images/button/add.gif"" onclick=""btnAdd_OnClick()"" style=""cursor:hand"">" & vbLF & _
" " & vbLF & _
" <img border=0 src=""../images/button/clear.gif"" onclick=""btnClear_OnClick()"" style=""cursor:hand"">" & vbLF & _
" </td>" & vbLF & _
"</tr>" & vbLF
else
if sAddType = "addchild" then
sTitle = "新增子系统" '' 显示新增、取消的链接
sActionLinks = _
"<tr bgcolor=white height=30>" & vbLF & _
" <td colspan=8 align=center>" & vbLF & _
" <img border=0 src=""../images/button/add.gif"" onclick=""btnAddChild_OnClick()"" style=""cursor:hand"">" & vbLF & _
" " & vbLF & _
" <img border=0 src=""../images/button/clear.gif"" onclick=""btnClear_OnClick()"" style=""cursor:hand"">" & vbLF & _
" </td>" & vbLF & _
"</tr>" & vbLF
else
sTitle = "系统信息维护" '' 显示修改、删除、取消的链接
sActionLinks = _
"<tr bgcolor=white height=30>" & vbLF & _
" <td colspan=8 align=center>" & vbLF & _
" <img border=0 src=""../images/button/update.gif"" onclick=""btnUpdate_OnClick()"" style=""cursor:hand"">" & vbLF & _
" " & vbLF & _
" <img border=0 src=""../images/button/delete.gif"" onclick=""btnDelete_OnClick()"" style=""cursor:hand"">" & vbLF & _
" " & vbLF & _
" <img border=0 src=""../images/button/cancel.gif"" onclick=""btnCancel_OnClick()"" style=""cursor:hand"">" & vbLF & _
" </td>" & vbLF & _
"</tr>" & vbLF
end if
end if
dim s: s = ""
s = s & "<form method=post name=frmMgr action=""updatesys.asp"">" & vbLF
s = s & "<input type=""hidden"" name=""FormAction"">" & vbLF
s = s & "<input type=""hidden"" name=""id"" value=""" & pSysId & """>" & vbLF
s = s & "<table cellspacing=0 cellpadding=3 bgcolor=white border=1 width=""100%"" height=""100%"">" & vbLF
s = s & "<tr height=20>" & vbLF
s = s & " <td colspan=2 bgcolor=""#0040a0"" style=""color:white;font-weight:600"" align=center>" & sTitle & "</td></tr>" & vbLF
if sTitle = "新增子系统" then
s = s & "<tr height=20><td></td></tr>" & vbLF
s = s & "<tr bgcolor=""#FFFFFF"" height=60>" & vbLF
s = s & " <td width=80 align=right>父系统名称：</td><td>"& sSysDesc & "</td>"
s = s & "<input type=""hidden"" name=""parent_id"" value=""" & pSysId & """>" & vbLF
sSysDesc = ""
sRemark = ""
end if
s = s & "<tr height=20><td></td></tr>" & vbLF
s = s & "<tr bgcolor=""#FFFFFF"" height=60>" & vbLF
s = s & " <td width=80 align=right>系统名称：</td>"
s = s & " <td><input type=""text"" name=""description"" value=""" & sSysDesc & """ size=31 maxlength=10></td></tr>" & vbLF
s = s & "<tr bgcolor=""#FFFFFF"" height=60>" & vbLF
s = s & " <td width=80 align=right>系统说明：</td>"
s = s & " <td><input type=""text"" name=""remark"" value=""" & sRemark & """size=31 maxlength=25></td></tr>" & vbLF
s = s & sActionLinks & vbLF
s = s & "<tr height=180><td></td></tr>" & vbLF
s = s & "</form>"
s = s & "</table>" & vbLF & ""
FormTable = s
End Function
sub AddSys()
dim sSQL, iRows
sSysDesc = Trim(GetParam("description"))
sRemark = Trim(GetParam("remark"))
'' 系统名称不能为空
if sSysDesc = "" then
Response.Write _
"<script language=""javascript"">" & vbLF & _
" alert(""对不起，请输入系统名称"");" & vbLF & _
"</script>" & vbLF
exit sub
end if
'' 检查是否存在重复的系统名称
iRows = DLookUp(conn, "select count(*) from t_sys where sys_desc =" & ToSQL(sSysDesc, "Text"))
if iRows > 0 then
Response.Write _
"<script language=""javascript"">" & vbLF & _
" alert(""对不起，已经存在名称为“" & sSysDesc & "”的系统，系统名称不能重复！"");" & vbLF & _
"</script>" & vbLF
exit sub
end if
'添加根系统
sSQL = "insert into t_sys(sys_desc, remark ) values(" & ToSQL(sSysDesc, "Text") & "," & ToSQL(sRemark, "Text") & ")"
conn.Execute(sSQL)
pSysId = empty '' 重新置成新增状态
sSysDesc = ""
sRemark = ""
end sub
sub AddChildSys()
dim sSQL, iRows, iParentId, sSQL1, sSysDesc
sSysDesc = Trim(GetParam("description"))
sRemark = Trim(GetParam("remark"))
iParentId = GetParam("parent_id")
'' 系统名称不能为空
if sSysDesc = "" then
Response.Write _
"<script language=""javascript"">" & vbLF & _
" alert(""对不起，请输入系统名称"");" & vbLF & _
"</script>" & vbLF
exit sub
end if
'' 检查是否存在重复的系统名称
iRows = DLookUp(conn, "select count(*) from t_sys where sys_desc =" & ToSQL(sSysDesc, "Text"))
if iRows > 0 then
Response.Write _
"<script language=""javascript"">" & vbLF & _
" alert(""对不起，已经存在名称为“" & sSysDesc & "”的系统，系统名称不能重复！"");" & vbLF & _
"</script>" & vbLF
exit sub
end if
'添加子系统，令父系统的has_child字段值为1
sSQL = "insert into t_sys(sys_desc, remark, parent_id) values(" & ToSQL(sSysDesc, "Text") & "," & ToSQL(sRemark, "Text") & "," & ToSQL(iParentId, "Number") & ")"
sSQL1 = "update t_sys set has_child = 1 where sys_id = "& iParentId
conn.Execute(sSQL)
conn.Execute(sSQL1)
sAddType = "addchild" '' 重新置成新增子系统状态
' sSysDesc = ""
' sRemark = ""
end sub
sub UpdateSys()
dim sSQL, iRows
sSysDesc = Trim(GetParam("description"))
sRemark = Trim(GetParam("remark"))
'' 系统名称不能为空
if sSysDesc = "" then
Response.Write _
"<script language=""javascript"">" & vbLF & _
" alert(""对不起，请输入系统名称"");" & vbLF & _
"</script>" & vbLF
exit sub
end if
'' 检查是否存在重复的系统名称
iRows = DLookUp(conn, "select count(*) from t_sys where sys_desc=" & ToSQL(sSysDesc, "Text") & " and sys_id<>" & ToSQL(pSysId,"Number"))
if iRows > 0 then
Response.Write _
"<script language=""javascript"">" & vbLF & _
" alert(""对不起，系统名称不能重复！"");" & vbLF & _
"</script>" & vbLF
exit sub
end if
sSQL = "update t_sys set sys_desc = " & ToSQL(sSysDesc, "Text") &"," & "remark = "& ToSQL(sRemark, "Text") &" where sys_id = " & ToSQL(pSysId, "Number")
' response.write sSQL
' response.end
conn.Execute(sSQL)
pSysId = empty '' 重新置成新增状态
sSysDesc = ""
sRemark = ""
end sub
sub DeleteSys()
sSysDesc = Trim(GetParam("description"))
dim sSQL, iRows
'' 检查是否存在使用中的系统名称
iRows = DLookUp(conn, "select count(*) from t_equipment where is_child = 0 and sys_parent_id =" & ToSQL(pSysId, "Number"))
if iRows > 0 then
Response.Write _
"<script language=""javascript"">" & vbLF & _
" alert(""对不起，系统中有" & iRows & "个属于“" & sSysDesc & "”系统的设备，该系统名称不能删除！"");" & vbLF & _
"</script>" & vbLF
exit sub
end if
sSQL = "delete from t_sys where sys_id = " & ToSQL(pSysId, "Number")
conn.Execute(sSQL)
pSysId = empty '' 重新置成新增状态
sSysDesc = ""
sRemark = ""
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -