📄 elist.inc
字号:
sql = "select * from t_equipment where equi_id = " & ToSQL(gEid, "Number")
' ww(sql)
set rs=openrs(conn,sql)
' for i = LBound(ev) to UBound(ev)
ev5(i)=ev(i)
' ww(i & "=" & ev5(i))
' Next
If not rs.eof then
for each i in Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,18)
ev5(i) = getvalue(rs,ev(i))
Next
Else
werr("该设备不存在")
Exit Function
End if
closers(rs)
ev1(1)="<INPUT TYPE=""text"" NAME="& ev(1) &" maxlength=20 value="&ev5(1)&">"
ev1(2)="<INPUT TYPE=""text"" NAME="& ev(2) &" maxlength=20 value="&ev5(2)&">"
ev1(3)="<SELECT NAME="& ev(3) &">" & SelectOptions(conn, "select * from t_equipment_type", "type_id", "type_desc", ev5(3))&"</SELECT>"
ev1(4)="<SELECT NAME="& ev(4) &">" & SelectOptions(conn, "select * from t_node", "node_id", "node_desp", ev5(4))&"</SELECT>"
ev1(5)="<INPUT TYPE=""text"" NAME="& ev(5) &" maxlength=20 value="&ev5(5)&">"
ev1(6)="<INPUT TYPE=""text"" NAME="& ev(6) &" maxlength=20 value="&ev5(6)&">"
ev1(7)="<INPUT TYPE=""text"" NAME="& ev(7) &" maxlength=20 value="&ev5(7)&">"
ev1(8)=DrawCal("", ev5(8), ev(8), "img8")
ev1(9)="<INPUT TYPE=""text"" NAME="& ev(9) &" maxlength=20 value="&ev5(9)&">"
ev1(10)="<INPUT TYPE=""text"" NAME="& ev(10) &" maxlength=20 value="&ev5(10)&">"
ev1(11)=DrawCal("", ev5(11), ev(11), "img11")
ev1(12)="<INPUT TYPE=""text"" NAME="& ev(12) &" maxlength=20 value="&ev5(12)&">"
ev1(13)="<INPUT TYPE=""text"" NAME="& ev(13) &" maxlength=20 value="&ev5(13)&">"
ev1(14)="<INPUT TYPE=""text"" NAME="& ev(14) &" maxlength=20 value="&ev5(14)&">"
ev1(15)="<INPUT TYPE=""text"" NAME="& ev(15) &" maxlength=20 value="&ev5(15)&">"
ev1(16)="<INPUT TYPE=""text"" NAME="& ev(16) &" maxlength=20 value="&ev5(16)&">"
' ev1(17)="<INPUT TYPE=""text"" NAME="& ev(17) &" maxlength=20>"
ev1(18)="<INPUT TYPE=""text"" NAME="& ev(18) &" maxlength=20 value="&ev5(18)&">"
' display ename and evalue array
r=9:c=2
s2="":s1=""
for i = 1 to r
s1=""
for j= 1 to c
s1= s1 & wda(en(Cint((i-1)*2+j))) & wda(ev1(Cint((i-1)*2+j)))
' response.write(s1)
' response.end
next
s2 = s2 & wra(s1)
next
ft = wtba(s2)
UpdateTable= "<center>" & TitleTable &"<BR>"& FormHead & ft &"<BR>"& ToolTable
end Function
Function ToolInsert()
ToolInsert= _
"<tr bgcolor=white height=30 align=center>" & 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
ToolInsert = wtba(ToolInsert)
End Function
Function ToolUpdate()
End Function
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=0 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 + -