📄 eaddeq.inc
字号:
<%
dim en(18),ev(18) ' name and value array
' initial ename array
en(0)="系统"
en(1)="设备名称<font color=red>*</font>": en(2)=" 设备编号"
en(3)="设备类别": en(4)=" 所属部门"
en(5)="型号规格": en(6)=" 安装位置"
en(7)="控制对象": en(8)=" 启用日期"
en(9)="使用寿命": en(10)=" 折旧率"
en(11)="交接日期":en(12)=" 交接序号"
en(13)="数 量": en(14)=" 制造商"
en(15)="保养商": en(16)=" 供货商"
en(17)="楼 层": en(18)=" 机房编号"
ev(0)="sys_id"
ev(1)="name": ev(2)="number"
ev(3)="type": ev(4)="department"
ev(5)="model": ev(6)="site"
ev(7)="control": ev(8)="starttime"
ev(9)="lifespan": ev(10)="depreciation"
ev(11)="handovertime": ev(12)="handoverno"
ev(13)="quantity": ev(14)="maker"
ev(15)="maintainer": ev(16)="supplier"
ev(17)="floor": ev(18)="room_no"
dim roomOptions, floorOptions
dim pRoomNo, pFloor
Function FormHead()
dim s : s=""
s = s & "<form method=post name=frmMgr action=""eaddeq.asp"">" & vbLF
s = s & "<input type=""hidden"" name=""FormAction"">" & vbLF
s = s & "<input type=""hidden"" name=""id"" value=""" & gSid & """>" & vbLF
s = s & "<input type=""hidden"" name=""eid"" value=""" & gEid & """>" & vbLF
s = s & "<input type=""hidden"" name=""pid"" value=""" & gPid & """>" & vbLF
FormHead = s
End Function
Function TitleTable()
dim sTitle,flag
if IsEmpty(gEid) then
if IsEmpty(gPid) then
sTitle = "新增设备" '' 显示新增、取消的链接
Else
sTitle = "新增子设备" '' 显示新增、取消的链接
End If
else
flag = DLookup(conn,"select discarded from t_equipment where equi_id=" & gEid )
if cint(flag) = 1 Then
sTitle = "设备信息维护(已报废)" '' 显示修改、删除、取消的链接
else
sTitle = "设备信息维护"
end if
end if
TitleTable= wtba(wra(wda(sTitle)))
End Function
Function ToolTable()
dim sActionLinks
if IsEmpty(gEid) then
if IsEmpty(gPid) 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
' 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 & _
" " & vbLF & _
" <img border=0 src=""../images/button/return.gif"" onclick=""javascript:window.close();"" style=""cursor:hand"">" & vbLF & _
" </td>" & vbLF & _
"</tr>" & vbLF
End If
else
' sTitle = "设备信息维护" '' 显示修改、删除、取消的链接
gSid = DLookup(conn,"select sys_id from t_equipment where equi_id=" & gEid)
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/discard.gif"" onclick=""btnDiscard_OnClick()"" style=""cursor:hand"">" & vbLF & _
" " & vbLF & _
" <img border=0 src=""../images/button/replace.gif"" onclick=""btnReplace_OnClick()"" style=""cursor:hand"">" & vbLF & _
" " & vbLF & _
" <img border=0 src=""../images/button/query_child.gif"" onclick=""btnQueryC_OnClick()"" style=""cursor:hand"">" & vbLF & _
" " & vbLF & _
" <img border=0 src=""../images/button/create_child.gif"" onclick=""javascript:window.open('eaddeq.asp?id="& gSid & "&pid="& gEid & "','','width=800,height=600,top=20,left=20');"" style=""cursor:hand"" target=_blank>" & vbLF & _
" " & vbLF & _
" <img border=0 src=""../images/button/print.gif"" onclick=""javascript:window.open('eqprint.asp?eid="& gEid & "','','width=800,height=600,top=20,left=20');"" style=""cursor:hand"" target=_blank>" & vbLF & _
" </td>" & vbLF & _
"</tr>" & vbLF
end if
If Hasright(ID_EQUIPMENT) < RIGHT_WRITE Then
sActionLinks = ""
End If
ToolTable = wtba(sActionLinks)
End Function
Function InsertTable()
dim ft 'organize a formtable
dim de ' delimit
dim s1,s2
dim r,c,i,j
dim ev1(18)
ev1(1)="<INPUT TYPE=""text"" NAME="& ev(1) &" maxlength=20>"
ev1(2)="<INPUT TYPE=""text"" NAME="& ev(2) &" maxlength=20>"
ev1(3)="<SELECT NAME="& ev(3) &" style=""width:131px"">" & SelectOptions(conn, "select * from t_equipment_type", "type_id", "type_desc", "")&"</SELECT>"
ev1(4)="<SELECT NAME="& ev(4) &" style=""width:131px"">" & SelectOptions(conn, "select * from t_node", "node_id", "node_desp", "")&"</SELECT>"
ev1(5)="<INPUT TYPE=""text"" NAME="& ev(5) &" maxlength=20>"
ev1(6)="<INPUT TYPE=""text"" NAME="& ev(6) &" maxlength=20>"
ev1(7)="<INPUT TYPE=""text"" NAME="& ev(7) &" maxlength=20>"
ev1(8)=DrawCal("", Date, ev(8), "img8")
ev1(9)="<INPUT TYPE=""text"" NAME="& ev(9) &" maxlength=20>"
ev1(10)="<INPUT TYPE=""text"" NAME="& ev(10) &" maxlength=20>"
ev1(11)=DrawCal("", Date, ev(11), "img11")
ev1(12)="<INPUT TYPE=""text"" NAME="& ev(12) &" maxlength=20>"
ev1(13)="<INPUT TYPE=""text"" NAME="& ev(13) &" maxlength=20>"
ev1(14)="<SELECT NAME="& ev(14) &" style=""width:131px""><option value=0>未知</option>" & SelectOptions(conn, "select * from t_firm", "id", "name", "")&"</SELECT>"
ev1(15)="<SELECT NAME="& ev(15) &" style=""width:131px""><option value=0>未知</option>" & SelectOptions(conn, "select * from t_firm", "id", "name", "")&"</SELECT>"
ev1(16)="<SELECT NAME="& ev(16) &" style=""width:131px""><option value=0>未知</option>" & SelectOptions(conn, "select * from t_firm", "id", "name", "")&"</SELECT>"
ev1(17)="<INPUT TYPE=""text"" NAME="& ev(17) &" maxlength=20>"
ev1(18)="<INPUT TYPE=""text"" NAME="& ev(18) &" maxlength=20>"
pRoomNo = ""
pFloor = ""
'' ******************************************************************
'' 构造楼层编号选项和机房编号选项
'' ---------------------------------------------------------------------------------------------------------
floorOptions = SelectOptions(conn, "select distinct floor from t_room order by floor", "floor", "floor", pFloor)
roomOptions = SelectOptions(conn, "select room_no from t_room order by room_no", "room_no", "room_no", pRoomNo)
ev1(17)="<select id=""floor"" name=""floor"" style=""width:131px"" onchange=""javascript:OnFloorChange();"">"& floorOptions & "</select>"
ev1(18)="<select id=""room_no"" name=""room_no"" style=""width:131px"">"&roomOptions&"</select>"& "<select id=""roomlist"" style=""display:none"">" & roomOptions& "</select>"
' 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 = "<table border=0 cellspacing=3>" & s2 & "</table>"
InsertTable= "<center>" & TitleTable &"<BR>"& FormHead & ft &"<BR>"& ToolTable
end Function
Function UpdateTable()
dim ft 'organize a formtable
dim de ' delimit
dim s1,s2
dim r,c,i,j,s
dim ev5(18),ev1(18)
dim einfo
dim rs
dim sql
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) &" style=""width:131px"">" & SelectOptions(conn, "select * from t_equipment_type", "type_id", "type_desc", ev5(3))&"</SELECT>"
ev1(4)="<SELECT NAME="& ev(4) &" style=""width:131px"">" & 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)="<SELECT NAME="& ev(14) &" style=""width:131px""><option value=0>未知</option>" & SelectOptions(conn, "select * from t_firm", "id", "name", ev5(14))&"</SELECT>"
ev1(15)="<SELECT NAME="& ev(15) &" style=""width:131px""><option value=0>未知</option>" & SelectOptions(conn, "select * from t_firm", "id", "name", ev5(15))&"</SELECT>"
ev1(16)="<SELECT NAME="& ev(16) &" style=""width:131px""><option value=0>未知</option>" & SelectOptions(conn, "select * from t_firm", "id", "name", ev5(16))&"</SELECT>"
' ev1(17)="<INPUT TYPE=""text"" NAME="& ev(17) &" maxlength=20>"
ev1(18)="<INPUT TYPE=""text"" NAME="& ev(18) &" maxlength=20 value="&ev5(18)&">"
pRoomNo = ev5(18)
if IsEmpty(pRoomNo) then
pRoomNo = ""
pFloor = ""
else
pFloor = left(pRoomNo, 2)
end if
'' ******************************************************************
'' 构造楼层编号选项和机房编号选项
'' ---------------------------------------------------------------------------------------------------------
floorOptions = SelectOptions(conn, "select distinct floor from t_room order by floor", "floor", "floor", pFloor)
roomOptions = SelectOptions(conn, "select distinct room_no from t_room order by room_no", "room_no", "room_no", pRoomNo)
' ww "f=" &floorOptions & ":"& pFloor
' ww "r=" & roomOptions & ":"& pRoomNo
ev1(17)="<select id=""floor"" name=""floor"" style=""width:131px"" onchange=""javascript:OnFloorChange();"">"& floorOptions & "</select>"
' ev1(18)="<select id=""room_no"" name=""room_no"" style=""width:86px"">"&roomOptions&"</select>"& "<select id=""roomlist"" style=""display:none"">" & roomOptions& "</select>"
ev1(18)="<select id=""room_no"" name=""room_no"" style=""width:131px"">"& roomOptions &"</select>"& "<select id=""roomlist"" style=""display:none"">" & roomOptions& "</select>"
' 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
Sub AddEq()
dim ev2(18)
dim i,j
dim sql
dim mev
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -