终于把5U系统的目录缓冲速度忙问题解决

<%
function getchannel(byval cid,byval datafield)
if len(cid) = 0 or not isnumeric(cid) or instr(cid,",") > 0 then cid = 0 else cid = int(cid)
dim rs2
set rs2 = db("select * from [{pre}channel] where id="&cid,1)
select case lcase(datafield)
case "id"
getchannel = rs2("id")
case "fatherid"
getchannel = rs2("FatherID")
case "childid"
getchannel = rs2("ChildID")
case "childids"
getchannel = rs2("ChildIDs")
case "name"
getchannel = rs2("Name")
case "table"
getchannel = rs2("Table")
case "domain"
getchannel = rs2("Domain")
case "outsidelink"
getchannel = rs2("OutSideLink")
case "templatechannel"
getchannel = installdir & templatedir & "/" & rs2("templatechannel")
case "templateclass"
getchannel = installdir & templatedir & "/" & rs2("templateclass")
case "templateview"
getchannel = installdir & templatedir & "/" & rs2("templateview")
case "ruleindex"
getchannel = replace(rs2("ruleindex"),"{installdir}",installdir)
case "rulechannel"
getchannel = replace(rs2("rulechannel"),"{cid}",rs2("id"))
case "ruleview"
getchannel = replace(rs2("ruleview"),"{cid}",rs2("id"))
case "picture"
getchannel = rs2("picture")
case "keywords"
getchannel = rs2("keywords")
case "description"
getchannel = rs2("description")
case else
getchannel = ""
end select
rs2.close : set rs2 = nothing
end function
%>