CSDN首页 空间 新闻 论坛 Blog 下载 读书 网摘 搜索 .NET Java 视频 接项目 求职 在线学习 买书 程序员 通知
不看会后悔的Windows XP之经验谈 简单快捷DIY实用家庭影院
CSDN社区
搜索 收藏 打印 关闭
CSDN社区 >  Web 开发 >  JavaScript

求助:vbscript—>javascript

楼主lyzget(章)2005-07-07 17:39:46 在 Web 开发 / JavaScript 提问

谁能帮忙将这段代码写成javascript,最好顺便解释一下。不懂vb,看不太懂。  
  这段代码是梅花雪老大的动态目录树的treeview.asp中的代码。  
   
   
   
  <SCRIPT   LANGUAGE="JavaScript">  
          <!--  
          window.tree   =   new   MzTreeView("tree");  
   
          tree.icons["property"]   =   "property.gif";  
          tree.icons["css"]   =   "collection.gif";  
          tree.icons["book"]     =   "book.gif";  
          tree.iconsExpand["book"]   =   "bookopen.gif";   //展开时对应的图片  
          tree.setIconPath("http://www.meizz.com/Icons/TreeView/");   //可用相对路径  
  <%  
      Dim   node  
      Dim   reg   :   set   reg   =   new   RegExp   :   reg.global=True   :   reg.pattern=";"  
      Dim   id,   parentId,   text,   hint,   icon,   data,   url,   target,   method  
      do   while   not   rs.eof  
          '若是树的条目比较多的时候(比如大于1000)而又相对稳定的时候将这些数据生成静态网页来访问  
          node   =   VBCrLf   &"         tree.nodes["""&   rs("parentId")   &"_"&   rs("id")   &"""]   =   """  
          node   =   node   &"text:"&   reg.replace(rs("text"),   chr(15))   &";"  
          if   rs("hint")<>""   then   node   =   node   &"hint:"&   reg.replace(rs("hint"),   chr(15))   &";"  
          if   rs("icon")<>""   then   node   =   node   &"icon:"&   rs("icon")   &";"  
          if   rs("data")<>""   then   node   =   node   &"data:"&   reg.replace(rs("data"),   chr(15))   &";"  
          if   rs("url")<>""     then   node   =   node   &"url:"&     reg.replace(rs("url"),   chr(15))   &";"  
          if   rs("target")<>""   then   node   =   node   &"target:"&   rs("target")   &";"  
          if   rs("method")<>""   then   node   =   node   &"method:"&   reg.replace(rs("method"),   chr(15))   &";"  
          response.write   node   &""""   '生成节点信息  
          rs.movenext  
      loop  
  %>  
          tree.setURL("Catalog.asp");  
          tree.setTarget("MzMain");  
          document.write(tree.toString());         //亦可用   obj.innerHTML   =   tree.toString();  
          //-->  
          </SCRIPT> 问题点数:50、回复次数:1Top

1 楼GageCSDN(稻草人)回复于 2005-07-08 08:57:56 得分 50

<script   language="JavaScript"   runat="Server">  
  var   node,   id,   parentId,   text,   hint,   icon,   data,   url,   target,   method;  
  var   reg   =   /;/g;  
  while(!rs.eof)  
  {  
  node   =   "\r\n         tree.nodes[\""   +   rs("parentId")   +   "_"   +   rs("id")   +   "\"]   =   \"";  
  node   =   node   +   "text:"   +   rs("text").replace(reg,   String.fromCharCode(15))   +   ";";  
  if(rs("hint")!="")   node   =   node   +   "hint:"   +   rs("hint").replace(reg,   String.fromCharCode(15))   +   ";";  
  if(rs("icon")!="")   node   =   node   +   "icon:"   +   rs("icon")   +   ";";  
  if(rs("data")!="")   node   =   node   +   "data:"   +   rs("data").replace(reg,   String.fromCharCode(15))   +   ";";  
  if(rs("url")!="")   node   =   node   +   "url:"   +   rs("url").replace(reg,   String.fromCharCode(15))   +   ";";  
  if(rs("target")!="")   node   =   node   +   "target:"   +   rs("target")   +   ";";  
  if(rs("method")!="")   node   =   node   +   "method:"   +   rs("method").replace(reg,   String.fromCharCode(15))   +   ";";  
  Response.Write(node)   &   "\"";  
  rs.MoveNext();  
  }  
  </script>  
  Top

相关问题

  • JavaScript and VBscript.
  • VBScript & jscript & javascript
  • Javascript和vbscript
  • VBScript改写成JavaScript
  • JavaScript和VBScript能互嵌吗?
  • 求javascript和vbscript文档
  • javascript,vbscript各自特点?
  • 用JavaScript实现VBScript的“Response.Redirect ?
  • 如何学习javascript、VBscript?
  • 简单问题javascript-->vbscript

关键词

  • 代码
  • javascript

得分解答快速导航

  • 帖主:lyzget
  • GageCSDN

相关链接

  • Web开发类图书

广告也精彩

反馈

请通过下述方式给我们反馈
反馈
提问
网站简介|广告服务|VIP资费标准|银行汇款帐号|网站地图|帮助|联系方式|诚聘英才|English|问题报告
北京创新乐知广告有限公司 版权所有, 京 ICP 证 070598 号
世纪乐知(北京)网络技术有限公司 提供技术支持
Copyright © 2000-2008, CSDN.NET, All Rights Reserved
GongshangLogo