当前位置: 首页 > 图文教程 > 网络编程 > Javascript > 服务端 VBScript 与 JScript 几个相同特性的写法 By shawl.qiu

Javascript
Javascript 学习笔记 错误处理
Javascript 类的继承实现代码
JavaScript 创建对象和构造类实现代码
JavaScript 学习小结(适合新手参考)
extjs 列表框(multiselect)的动态添加列表项的方法
javascript getElementsByName()的用法说明
Document 对象的常用方法
JS 事件冒泡 示例代码
JS 面向对象的5钟写法
JS 输入字数判断实现代码
Javascript 汉字字节判断
JavaScript 关键字屏蔽实现函数
一句话JavaScript表单验证代码
利用javascript实现一些常用软件的下载导航
jQuery 相关控件的事件操作分解
JavaScript 异步调用框架 (Part 1 - 问题 & 场景)
JavaScript 异步调用框架 (Part 2 - 用例设计)
JavaScript 异步调用框架 (Part 3 - 代码实现)
JavaScript 异步调用框架 (Part 4 - 链式调用)
JavaScript 异步调用框架 (Part 5 - 链式实现)

No. « 150 151 152 153 »

技术文章搜索

关键字

Javascript 中的 服务端 VBScript 与 JScript 几个相同特性的写法 By shawl.qiu

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-12   浏览: 297 ::
收藏到网摘: n/a

摘要:
本文演示了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;
}
%>