在页面中完成折叠式菜单的ASP通用程序

-----
Sub output_line(ct_flag,curid,txtname,ct,txtcolor)
dim ptl,sp,dispval,tspace
sp=spnum(curid)
dispval="none"
If sp=0 Then dispval=""
tspace=""
While sp>0
   tspace=tspace+"    "
   sp=sp-1
Wend
If ct_flag=1 Then   '该级菜单有子菜单，只用<DIV>标记
  ptl="<div id="+chr(34)+curid+chr(34)+" style="
  ptl=ptl+chr(34)+"color:"+txtcolor+";"
  ptl=ptl+" ct:"+ct+"; line-height:25px;"
  ptl=ptl+" cursor:hand;"
  ptl=ptl+" display:"+dispval+chr(34)
  ptl=ptl+" onclick="+chr(34)+"disp_sub_menu('"+curid+"')"+chr(34)
  ptl=ptl+">"+tspace+txtname+"</div>"+chr(13)
Else      '该级菜单是最低层菜单，用<DIV>和<A>标记
  ptl="<div id="+chr(34)+curid+chr(34)
  ptl=ptl+" style="+chr(34)+"display:"+dispval+"; "
  ptl=ptl+"line-height:25px; color:"+txtcolor+"; ct:0"+chr(34)+">"
  ptl=ptl+tspace+"<A href="+chr(34)+ct+"?txt="+txtname+chr(34)+">"+txtname+"</A></div>"+chr(13)
End If
response.write ptl
End Sub
'----

关键词：在页面中完成折叠式菜单的ASP通用程序