A few of the same features of service-side VBScript and JScript are written and examples _ Application techniques

by Shawl.qiu
Summary:
This article demonstrates several important applications of ASP server-side scripting.

Directory:
1. Traverse the collection/object
1.1 VBScript traverse a collection of forms
1.2 JScript Traverse Form Collection

2. The conversion value is variable and assigned
2.1 VBScript Transition measure value is variable and assigned value
2.2 JScript Transition measure value is variable and assign value

3. Dynamic Include files
3.1 VBScript dynamic Include files
3.2 JScript dynamic Include files

Shawl.qiu
2006-10-11
Http://blog.csdn.net/btbtd

1. Traverse the collection/object
1.1 VBScript traverse a collection of forms

LineNum
<%
For each temp in request. Form
Response.Write temp& ":" &request.form (temp)
Next
%>

1.2 JScript Traverse Form Collection

LineNum
<%
for (Var $e =new Enumerator (request.form);! $e. AtEnd (); $e. MoveNext ()) {
Response.Write ($e. Item () + ':<br/> ' +request.form ($e. Item ()));
}
%>

2. The conversion value is variable and assigned
2.1 VBScript Transition measure value is variable and assigned value

LineNum
<%
For each temp in request. Form
Execute temp& "=request.form (temp)"
Next
%>

2.2 JScript Transition measure value is variable and assign value

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. Dynamic Include files
3.1 VBScript dynamic Include files

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, "<" &AMP;CHR (37), "")
Cnt=replace (CNT,CHR (Panax) & ">", "")
Finclude=cnt
End Function ' Shawl.qiu code '
Execute Finclude ("include/system/language/" &sitefglang& "/main.asp")
%>

3.2 JScript dynamic Include files

LineNum
<%
Eval ($dynInc (' aj2.asp '));
Response.Write ($test);

function $dynInc ($FL) {
/* ------------------------------------\
* Server-side JScript dynamic include file 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;
}
%>