|
|
|
|
|
<%
set rst=server.CreateObject("adodb.recordset")
sqlt="Select * from newscata order by rootid"
rst.Open sqlt,conn,1,3
do while not rst.EOF
trootid = rst("rootid")
t_child_cataid=split(trootid,",")
t_num = ubound(t_child_cataid)
if t_num=0 then
tempcataStr=""
tempcataStr=tempcataStr&"| "
tempcataStr=tempcataStr&" | "
tempcataStr=tempcataStr&" "
tempcataStr=tempcataStr&""
tempcataStr=tempcataStr&""
tempcataStr=tempcataStr&""
tempcataStr=tempcataStr&" "
tempcataStr=tempcataStr&" | "
tempcataStr=tempcataStr&" "
tempcataStr=tempcataStr&""
tempcataStr=tempcataStr&" "
tempcataStr=tempcataStr&" | "
tempcataStr=tempcataStr&" "
Response.Write tempcataStr
end if
rst.MoveNext
loop
rst.Close()
set rst=nothing
%>
|
|
|
|
