<%
OpenSpecDataBase
sub recursion(id,spCount)
set rs1=server.createobject("adodb.recordset")
sql="select * from productClass where parentid="&id & " order by proID"
rs1.open sql,conn,1,1
while not rs1.eof
id0=rs1("proId")
pName=rs1("proName")
parentid0=rs1("parentid")
Call ShowSubMenu(id0,pName,spCount+1,rs1("Elite"))
call recursion(id0,spCount+1)
rs1.movenext
wend
rs1.close
set rs1=nothing
end sub
%>
科特自控技术有限公司-KETEQ ENVIRONMENT CONTROL TECHNOLOGIES
