sub sysclass(parentid,classid)
if classid>0 then
myid=classid
else
myid=getparentid(sf_classid)
end if
if parentid=0 then
myid=getparentid(23)
else
myid=getparentid(sf_classid)
end if
response.write "<ul>"
sql="SELECT * from webclass where ismenu=true and parentid="&myid
set frs=server.createobject("adodb.recordset")
frs.open sql,oconn,1,1
do while not frs.eof
response.write "<li><a href='webcontent.asp?classid="&frs("id")&"&modid="&frs("modid")&"&parentid="&frs("parentid")&"'>"&frs("classname")&"</a></li>"
frs.movenext
loop
frs.close
set frs=nothing
response.write "</ul>"
end sub
我想再加一个判断,如果数据库中没有parentid这个字段的判断 |