|
|
<%
Set oRs=Server.CreateObject("ADODB.Recordset")
sSql="Select ClassID,ClassName,ParentPath,Child From NewsClass Where ClassID=3"
oRs.Open sSql,oConn,1,1
if oRs("ClassID")>0 then
if oRs("Child")>0 then
ChildID=""
set tClass=oConn.execute("select ClassID from NewsClass where ParentID=" & oRs("ClassID") & " or ParentPath like '" & oRs("ParentPath") & "," & oRs("ClassID") & ",%'")
do while not tClass.eof
if ChildID="" then
ChildID=tClass(0)
else
ChildID=ChildID & "," & tClass(0)
end if
tClass.movenext
loop
else
ChildID=oRs("ClassID")
end if
end if
oRs.close
Set zRs=Server.CreateObject("ADODB.Recordset")
zSql="Select top 5 * From NewsData Where d_classid=3 and d_recycle=false ORDER BY d_id DESC"
zRs.Open zSql,oConn,1,1
%>
<%if not zrs.eof then
for g=1 to zrs.recordcount%>
谁是未来舞台最闪耀的星光？谁拥有让目光聚焦的力量？如果你善于表演，如果你也敢于解放天性、
释放自我，不要犹豫，快快加入我们的行列。也许下一个耀眼的主角就是你！奥博奥为您插上梦想的
翅膀。 |
<%zrs.movenext
next
end if%>
<%zrs.close%>
|
<%
Set oRs=Server.CreateObject("ADODB.Recordset")
sSql="Select ClassID,ClassName,ParentPath,Child From NewsClass Where ClassID=3"
oRs.Open sSql,oConn,1,1
if oRs("ClassID")>0 then
if oRs("Child")>0 then
ChildID=""
set tClass=oConn.execute("select ClassID from NewsClass where ParentID=" & oRs("ClassID") & " or ParentPath like '" & oRs("ParentPath") & "," & oRs("ClassID") & ",%'")
do while not tClass.eof
if ChildID="" then
ChildID=tClass(0)
else
ChildID=ChildID & "," & tClass(0)
end if
tClass.movenext
loop
else
ChildID=oRs("ClassID")
end if
end if
oRs.close
Set zRs=Server.CreateObject("ADODB.Recordset")
zSql="Select top 5 * From NewsData Where d_classid=3 and d_recycle=false ORDER BY d_id DESC"
zRs.Open zSql,oConn,1,1
%>
<%if not zrs.eof then
for g=1 to zrs.recordcount%>
|
北京奥博奥文化艺术培训基地面向全国招收１６周岁以上男女，签约期满成绩优秀者推荐工作，圆你一个星梦 |
<%zrs.movenext
next
end if%>
<%zrs.close%>
|
返回首页
