|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
由于ASP提供的是一对多的服务,所以用户的一些特殊需求很难得到满足。本文演示了ASP服务端剧本的几个主要使用。
目次:
1、遍历汇合/工具
1.1VBScript遍历表单汇合
1.2JScript遍历表单汇合
2、变化量值为变量,并赋值
2.1VBScript变化量值为变量并赋值
2.2JScript变化量值为变量并赋值
3、静态包括文件
3.1VBScript静态包括文件
3.2JScript静态包括文件
以下为援用的内容:
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
endfunctionshawl.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;
}
%>
无法实现跨操作系统的应用。当然这也是微软的理由之一,只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP,ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的; |
|