<%
Dim uid, rse, width, rsRole, isAdmin
uid = trim(request("uid"))
if trim(Lcase(AdminName)) = "admin" then
isAdmin = true
else
isAdmin = false
end if
Dim areaname, areaid, rschild
areaid = request("id")
set areaname = conn.execute("select classname from t_area where t_classid = " & areaid)
if not areaname.bof and areaname.eof then areaname = areaname(0)
set rschild = conn.execute("select child from t_area where t_classid = " & areaid)
if not rschild.bof and rschild.eof then child = rschild(0)
function getdClass(uid)
dim rse2
set rse2 = conn.execute("select devicename from t_dev_property where uid = '" & uid & "'")
response.write ""
if instr(rse2(0),"(") <> 0 then
response.write left(rse2(0),instr(rse2(0),"(")-1)
else
response.write rse2(0)
end if
response.write ""
end function
dim sql
%>
<%=systemPageTitle%>