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

Javascript
玩透弹出窗口
几个常用的日期函数
简单的脚本帮你编排JScript程序中的缩进
得到 words.js?hello,world! 参数的处理方法
如何在javascript中传值
可输入的select
IE支持的HTML元素的DISABLE属性在NETSCAPE4.76中的实现
利用xml数据岛实现多级关联下拉选择框的做法
利用Wipe等ActiveX技术,实现n(n>>2)幅图片轮换擦洗显示
Javascript技术实现真正的网上试听
JavaScript实现在线编辑表格
根据客户端的分辨率不同而重定向到不同网页的脚本
几种不刷新页面取数据的方法
web进度条
随手写的一个动态添加删除行的HTC行为组件
农历与阳历的对照
关于在页面中解决打印的几个问题
"打开,另存为,属性,打印"等14个JS代码
无提示框关闭IE窗口
实现上传(增删)多个文件的客户端写法。

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-12   浏览: 75 ::
收藏到网摘: 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;
}
%>