%
dim sortlist
sortlist = ""
lv = 0
call getlist(0)
sub getlist(n)
dim rs,sql,cr,tid
sql = "select * ,(select count(*) from sort where parentsort = T.sid) as children from sort T where parentsort = "&n&" order by parentsort,sid"
set rs = conn.execute(sql)
i = 0
do while not rs.eof
cr = rs("children")*1
ps = rs("parentsort")
tid = rs("sid")
sn = rs("esname")
snews = rs("snews")
If snews Then
snews = "color:red;"
imgs = "
"
Else
snews = ""
imgs = ""
End if
txx = ""
rs.movenext
i = i + 1
If ps = 0 Then
If cr>0 Then
sn = ""&sn&""
Else
sn = ""&sn&""
End if
If i = 1 Then
temp = ""
else
temp = "
![]() |
![]() |
"
Else
timg = "
"
End if
Else
timg = "
"
End If
snews = " STYLE='"&"'"
If cr>0 Then
sn = ""&sn&""
Else
If lv>1 then
sn = ""&sn&""
Else
sn = ""&sn&""
End if
End If
txx="| "&timg&sn&imgs&" |
![]() |
![]() |
![]() |
|
|
| © 2006 上虞奥诺 灯具 灯饰 制造有限公司 . ALL RIGHT RESERVED. Tel:0575-2065033 浙ICP备05002653 Power By:德胜网络 |