<%
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)
areaname = areaname(0)
set rschild = conn.execute("select child from t_area where t_classid = " & areaid)
child = rschild(0)
function getdClass(uid)
dim rse2
set rse2 = conn.execute("select devicename from t_dev_property where uid = '" & uid & "'")
response.write "" & rse2(0) & ""
end function
dim sql
%>
<%=systemPageTitle%>
数据载入中……
<%
filename = "\images\area\"&areaid&".jpg"
if not fso.fileExists(server.mappath(filename)) then
response.write ""
else
response.write ""
end if
%>
"
else
response.write "![](images/area/"&areaid&".jpg)
"
end if
%>