📄 updatesys.inc
字号:
<%
Function FormTable()
if hasright(ID_EQUIPMENT) < RIGHT_WRITE then
FormTable = _
"<table cellspacing=1 cellpadding=0 bgcolor=white border=0 width=300 height=""100%"">" & vbLF & _
"<tr height=40><td><center></center></td></tr>" & vbLF & _
"<tr height=20><td><center>此处是新增和更新系统信息的页面。</center></td></tr>" & vbLF & _
"<tr height=20><td><center></center></td></tr>" & vbLF & _
"<tr height=20>" & vbLF & _
" <td><center>目前您没有权限进行该操作！</center></td></tr>" & vbLF & _
"<tr height=210><td></td></tr>" & vbLF & _
"</table>" & vbLF & _
""
exit function
end if
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=0 bgcolor=white border=0 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
if sTitle = "系统信息维护" then
s = s & "<tr bgcolor=""#FFFFFF"" height=60>" & vbLF
s = s & " <td width=80 align=right>系统编号：</td>"
s = s & " <td>"&pSysId&"</td></tr>" & vbLF
end if
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()
if hasright(ID_EQUIPMENT) < RIGHT_WRITE then
Response.Write _
"<script language=""javascript"">" & vbLF & _
" alert(""对不起，您没有更新系统结构的权限(您的角色没有设备更新的权限)！"");" & vbLF & _
"</script>" & vbLF
exit sub
end if
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()
if hasright(ID_EQUIPMENT) < RIGHT_WRITE then
Response.Write _
"<script language=""javascript"">" & vbLF & _
" alert(""对不起，您没有更新系统结构的权限(您的角色没有设备更新的权限)！"");" & vbLF & _
"</script>" & vbLF
exit sub
end if
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()
if hasright(ID_EQUIPMENT) < RIGHT_WRITE then
Response.Write _
"<script language=""javascript"">" & vbLF & _
" alert(""对不起，您没有更新系统结构的权限(您的角色没有设备更新的权限)！"");" & vbLF & _
"</script>" & vbLF
exit sub
end if
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()
if hasright(ID_EQUIPMENT) < RIGHT_WRITE then
Response.Write _
"<script language=""javascript"">" & vbLF & _
" alert(""对不起，您没有更新系统结构的权限(您的角色没有设备更新的权限)！"");" & vbLF & _
"</script>" & vbLF
exit sub
end if
sSysDesc = Trim(GetParam("description"))
dim sSQL, iRows
'' 检查是否存在使用中的系统名称
iRows = DLookUp(conn, "select count(*) from t_equipment where sys_id =" & ToSQL(pSysId, "Number"))
if iRows > 0 then
Response.Write _
"<script language=""javascript"">" & vbLF & _
" alert(""对不起，系统中有" & iRows & "个属于“" & sSysDesc & "”系统的设备，该系统名称不能删除！"");" & vbLF & _
"</script>" & vbLF
exit sub
end if
' response.write "sys_id="&pSysId
' response.end
'' 检查是否存在子系统
iRows = DLookUp(conn, "select count(*) from t_sys where 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
'' 检查父系统拥有的子系统数是否大于1
dim iParentSysId
iParentSysId = DLookUp(conn, "select parent_id from t_sys where sys_id =" & ToSQL(pSysId, "Number"))
iRows = DLookUp(conn, "select count(*) from t_sys where parent_id =" & ToSQL(iParentSysId, "Number"))
if iRows > 1 then
'不必更改父系统的has_child字段，否则要将该字段改为0
else
sSQL = "update t_sys set has_child = 0 where sys_id = "&iParentSysId
conn.Execute(sSQL)
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 + -