【下载文档:  服务端_VBScript_与_JScript_几个相同特性的写法与示例.txt 】

---

服务端 VBScript 与 JScript 几个相同特性的写法与示例
By shawl.qiu 摘要: 本文演示了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()+':
'+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; } %>