摘要: 本文演示了ASP服务端脚本的几个重要应用. 目录: 1. 遍历集合/对象 1.1 VBScript 遍历表单集合 1.2 JScript 遍历表单集合 2. 转变量值为变量, 并赋值 2.1 VBScript 转变量值为变量并赋值 2.2 JScript 转变量值为变量并赋值 3. 动态包含文件 3.1 VBScript 动态包含文件 3.2 JScript 动态包含文件 shawl.qiu 2006-10-11 http://blog.csdn.net/btbtd 1. 遍历集合/对象 1.1 VBScript 遍历表单集合 linenum <% for each temp in request.Form response.write temp&": "&request.form(temp) next %> 1.2 JScript 遍历表单集合 linenum <% for (var $e=new Enumerator(Request.Form); !$e.atEnd(); $e.moveNext()){ Response.Write($e.item()+':<br/> '+Request.Form($e.item())); } %> 2. 转变量值为变量, 并赋值 2.1 VBScript 转变量值为变量并赋值 linenum <% for each temp in request.Form execute temp&"=request.form(temp)" next %> 2.2 JScript 转变量值为变量并赋值 linenum <% var $xml=new ActiveXObject("microsoft.xmldom"); $xml.load(Server.MapPath('config.xml')); var $childNodes=$xml.documentElement.selectSingleNode('//siteconfig').childNodes for ($e=new Enumerator($childNodes); !$e.atEnd(); $e.moveNext()){ eval($e.item().nodeName+"=$e.item().text"); } $xml=null; Response.Write(sitekeywords); %> 3. 动态包含文件 3.1 VBScript 动态包含文件 linenum <% function fInclude(filepath) ' sample call '''/// execute fInclude("include/system/language/"&sitefglang&"/main.asp") \''' dim cnt cnt=CreateObject("scripting.fileSystemObject").openTextFile(server.MapPath(filepath)).readall cnt=replace(cnt,"<"&chr(37),"") cnt=replace(cnt,chr(37)&">","") fInclude=cnt end function 'shawl.qiu code' execute fInclude("include/system/language/"&sitefglang&"/main.asp") %> 3.2 JScript 动态包含文件 linenum <% eval($dynInc('aj2.asp')); Response.Write($test); function $dynInc($fl){ /* ------------------------------------ * 服务端 JScript 动态包含文件 By shawl.qiu * sample call: eval($dynInc('aj2.asp')); *------------------------------------*/ var $fso=new ActiveXObject("scripting.fileSystemObject"); $str=$fso.OpenTextFile(Server.MapPath($fl)).ReadAll(); $str=$str.replace(/<%|%>/g,''); $fso=null; return $str; } %>

　　推荐阅读

　　用javascript实现页面打印的三种方法

前一段时间听朋友说起过打印网页的一些方法，在安静的夜晚，听着歌曲无意间发现了几段代码，帖出来跟大家分享一下。因为我从来没有打印过网页，而且也没有打印机，具体的效果也不是很清楚，测试打印成PDF是正常的，>>>详细阅读

本文标题：服务端 VBScript 与 JScript 几个相同特性的写法 By shawl.qiu

地址：http://www.17bianji.com/kaifa2/JS/30867.html

 1/2    1