源码如下:
function RootClassID(id)
if id <> "" then
set cls_t = server.CreateObject("adodb.recordset")
sql="Select * from About where id="&id&" order by id desc"
cls_t.open sql,conn,1,1
if not cls_t.eof then
Call RootClassID(cls_t("classid"))
response.Write(cls_t("classid")&",")
'RootClassID = cls_t("classid")
if not cls_t.eof then cls_t.MoveNext
end if
cls_t.Close : set cls_t = Nothing
end if
end function