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

-----
dim curid,txtname,ct,ct_flag,txtcolor
set fs=createobject("SCRIPTING.FILESYSTEMOBJECT")
menufile=replace(request.servervariables("path_translated"),"menu.asp","mfile.txt")
set txtstr=fs.opentextfile(menufile)
curid=txtstr.readline
While curid<>"*END*"
  curid="y"+Trim(curid)  '形成当前菜单项的id
  txtname=Trim(txtstr.readline)  '读取菜单名称  
  ct=Trim(txtstr.readline)   '读取该项菜单的子菜单个数
  ct_flag=1
  If Mid(ct,1,1)="0" Then
     ct_flag=0
     ct=LTrim(Mid(ct,2))
  End If
  txtcolor="black"
  Select case spnum(curid)
     case 1
         txtcolor="red"      '一级子菜单颜色
     case 2
         txtcolor="green"    '二级子菜单颜色
     case 3
         txtcolor="blue"     '三级子菜单颜色，可继续增加
   End Select
  output_line ct_flag,curid,txtname,ct,cstr(txtcolor)
  curid=txtstr.readline
Wend
txtstr.close
%>
<HR></BODY></HTML>
本代码在Win98/PWS(Personal Web Server)下通过。

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