摘要:

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

目录:

1.遍历集合/对象

1.1VBScript遍历表单集合

1.2JScript遍历表单集合

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

2.1VBScript转变量值为变量并赋值

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

3.动态包含文件

3.1VBScript动态包含文件

3.2JScript动态包含文件

shawl.qiu

2006-10-11

http://blog.csdn.net/btbtd

1.遍历集合/对象

1.1VBScript遍历表单集合

linenum

<%

foreachtempinrequest.Form

response.writetemp&":"&request.form(temp)

next

%>

1.2JScript遍历表单集合

linenum

<%

for(var$e=newEnumerator(Request.Form);!$e.atEnd();$e.moveNext()){

Response.Write($e.item()+':<br/>'+Request.Form($e.item()));

}

%>

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

2.1VBScript转变量值为变量并赋值

linenum

<%

foreachtempinrequest.Form

executetemp&"=request.form(temp)"

next

%>

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

linenum

<%

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);

%>

3.动态包含文件

3.1VBScript动态包含文件

linenum

<%

functionfInclude(filepath)

'samplecall'''///executefInclude("include/system/language/"&sitefglang&"/main.asp")'''

dimcnt

cnt=CreateObject("scripting.fileSystemObject").openTextFile(server.MapPath(filepath)).readall

cnt=replace(cnt,"<"&chr(37),"")

cnt=replace(cnt,chr(37)&">","")

fInclude=cnt

endfunction'shawl.qiucode'

executefInclude("include/system/language/"&sitefglang&"/main.asp")

%>

3.2JScript动态包含文件

linenum

<%

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(/<%|%>/g,'');

$fso=null;

return$str;

}

%>