各位大仙 帮忙解译一下这个Function 谢谢了!

<%  
  server.ScriptTimeout   =   999  
   
  Function   menu(id)  
          Set   rs   =   server.CreateObject("adodb.recordset")  
          sql   =   "select   *   from   menu   where   id1="&id&"   order   by   sortid"  
          rs.Open   sql,   conn,   1,   1  
          response.Write("<table   border='0'   cellspacing='0'   cellpadding='0'>"&Chr(13))  
          i   =   1  
          While   Not   rs.EOF  
                  ChildCount   =   conn.Execute("select   count(*)   from   menu   where   id1="&rs("id"))(0)  
                  If   ChildCount   =   0   Then  
                          If   i   =   rs.recordcount   Then  
                                  menutype   =   "file1"  
                          Else  
                                  menutype   =   "file"  
                          End   If  
                          menuname   =   "<a   href='"&rs("url")&"'   target='_blank'>"&rs("menuname")&"</a>"  
                          onmouseup   =   ""  
                  Else  
                          If   i   =   rs.recordcount   Then  
                                  menutype   =   "menu3"  
                                  listtype   =   "list1"  
                                  onmouseup   =   "   onMouseUp=change1('a"&rs("id")&"','b"&rs("id")&"');"  
                          Else  
                                  menutype   =   "menu1"  
                                  listtype   =   "list"  
                                  onmouseup   =   "   onMouseUp=change2('a"&rs("id")&"','b"&rs("id")&"');"  
                          End   If  
                          menuname   =   rs("menuname")  
                  End   If  
                  Response.Write("<tr><td   id='b"&rs("id")&"'   class='"&menutype&"'"&onmouseup&">"&menuname&"</td></tr>"&Chr(13))  
                  If   ChildCount>0   Then  
                          Response.Write("<tr   id='a"&rs("id")&"'   style='display:none'><td   class='"&listtype&"'>"&Chr(13))  
                          menu(rs("id"))  
                          Response.Write("</td></tr>"&Chr(13))  
                  End   If  
                  rs.movenext  
                  i   =   i   +   1  
          Wend  
          response.Write("</table>"&Chr(13))  
          rs.Close  
          Set   rs   =   Nothing  
  End   Function  
  %> 问题点数：20、回复次数：8Top

1 楼lovebeyondforever（我不信）回复于 2005-05-23 13:22:41 得分 3

晕   你丢20分   这么大段程序   更本没人会看的  
  建议你还是分开一点点发得好  
  Top

2 楼shigangyuan（爬上墙头等红杏）回复于 2005-05-23 13:42:33 得分 0

csdn中分要来做什么?谁要我可以全部给他!Top

3 楼baggio2008（勇敢的心）回复于 2005-05-23 14:05:09 得分 10

你的menu表里的字段都是什么  
  我帮你看看吧Top

4 楼fangq（jack）回复于 2005-05-23 14:24:53 得分 0

偶不看了Top

5 楼shigangyuan（爬上墙头等红杏）回复于 2005-05-23 14:35:46 得分 0

MENU里有五个字段分别是:ID   ID1   sortid   menuname   url    
  是不是没有了分数就不能发问了????  
  谢谢,各位!Top

6 楼wtogether（wtogether）回复于 2005-05-23 14:41:49 得分 2

就是列举所有相关联的菜单噢Top

7 楼notata（每天进步一点点）回复于 2005-05-23 14:49:24 得分 5

这个代码看起来有点类似论坛回复的显示列表。  
  先有ID来查纪录是否存在，如果存在就查有几个回复。  
   
  其实就是对数据库的操作，主要要看清楚几个条件然后条件所对应的操作就行了。  
  搂主自己折磨一下条件的逻辑关系吧，基本的思路你要自己去弄懂，有什么具体不明白的地方再提出来问。  
   
  大家不要这样嘛。。。。我们也有没分但需要帮助的时候哦  
  :)Top

8 楼baggio2008（勇敢的心）回复于 2005-05-24 08:56:57 得分 0

呵呵，当然不是没有分就不回答了，这个函数倒是不太难理解，主要就是你那个表里的字段和逻辑关系，你只把函数摆出来，没有其他的背景很难说他是做什么的阿！比如说，id,idl他们俩是什么区别阿，各表示什么的，多给点背景资料，：）  
   
  顺便，支持楼上Top

相关问题

• 字段
• menuname
• onmouseup
• rs
• menu
• chr
• 条件
• response
• write

• 帖主：shigangyuan
• lovebeyondforever
• baggio2008
• wtogether
• notata

• Web开发类图书