查看完整版本: 服务端VBScript与JScript几个相同写法

服务端VBScript与JScript几个相同写法

　　服务端VBScript与JScript几个相同特性的写法

　　摘要:本文演示了ASP服务端脚本的几个重要应用.

　　1.遍历集合/[wiki]对象[/wiki]
　　1.1VBScript遍历表单集合


linenum
%26lt;%
foreachtempinrequest.Form
response.writetemp%26":"%26request.form(temp)
next
%%26gt;



　　1.2JScript遍历表单集合


linenum
%26lt;%
for(var$e=newEnumerator(Request.Form);!$e.atEnd();$e.moveNext()){
Response.Write($e.item()+':%26lt;br/%26gt;'+Request.Form($e.item()));
}
%%26gt;



　　2.转变量值为变量,并赋值
　　2.1VBScript转变量值为变量并赋值


linenum

%26lt;%
foreachtempinrequest.Form
executetemp%26"=request.form(temp)"
next
%%26gt;




　　2.2JScript转变量值为变量并赋值


linenum
%26lt;%
var$xml=newActiveXObject("microsoft.xmldom");
$xml.load(Server.MapPath('config.xml'));
var$childNodes=$xml.documentElement.selectSingleNode('//siteconfig').childNodes

for($e=newEnumerator($childNodes);!$e.atEnd();$e.moveNext()){
eval($e.item().nodeName+"=$e.item().text");
}
$xml=null;
Response.Write(sitekeywords);
%%26gt;



　　3.动态包含文件
　　3.1VBScript动态包含文件


linenum
%26lt;%
functionfInclude(filepath)
'samplecall'''///executefInclude("include/system/language/"%26sitefglang%26"/main.asp")\\\'''
dimcnt
cnt=CreateObject("scripting.fileSystemObject").openTextFile(server.MapPath(filepath)).readall
cnt=replace(cnt,"%26lt;"%26chr(37),"")
cnt=replace(cnt,chr(37)%26"%26gt;","")
fInclude=cnt
endfunction'shawl.qiucode'
executefInclude("include/system/language/"%26sitefglang%26"/main.asp")
%%26gt;



　　3.2JScript动态包含文

　　linenum

%26lt;%
eval($dynInc('aj2.asp'));
Response.Write($test);

function$dynInc($fl){
/*------------------------------------\
*服务端JScript动态包含文件Byshawl.qiu
*samplecall:eval($dynInc('aj2.asp'));
\*------------------------------------*/
var$fso=newActiveXObject("scripting.fileSystemObject");
$str=$fso.OpenTextFile(Server.MapPath($fl)).ReadAll();
$str=$str.replace(/\%26lt;\%│\%\%26gt;/g,'');
$fso=null;
return$str;
}
%%26gt;