Writing Byshawl. qiu _ basic knowledge about several similar features of server VBScript and JScript

Byshawl. qiu Abstract:
This article demonstrates several important applications of ASP server scripts.

Directory:
1. Traverse collection/Object
1.1 VBScript traversal form set
1.2 JScript traversal form set

2. Convert the value to a variable and assign a value to it.
2.1 VBScript convert a value to a variable and assign a value
2.2 JScript convert a value to a variable and assign a value

3. dynamically include files
3.1 VBScript dynamic File Inclusion
3.2 JScript dynamic File Inclusion

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

1. Traverse collection/Object
1.1 VBScript traversal form set

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

1.2 JScript traversal form set

Linenum
<%
For (var $ e = new Enumerator (Request. Form );! $ E. atEnd (); $ e. moveNext ()){
Response. Write ($ e. item () + ':
'+ Request. Form ($ e. item ()));
}
%>

2. Convert the value to a variable and assign a value to it.
2.1 VBScript convert a value to a variable and assign a value

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

2.2 JScript convert a value to a variable and assign a value

Linenum
<%
Var $ xml = new ActiveXObject ("microsoft. xmldom ");
$ Xml. load (Server. MapPath ('config. xml '));
Var using childnodesusing using xml.doc umentElement. 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. dynamically include files
3.1 VBScript dynamic File Inclusion

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 'awl. qiu Code'
Execute fInclude ("include/system/language/" & sitefglang & "/main. asp ")
%>

3.2 JScript dynamic File Inclusion

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

Function $ dynInc ($ fl ){
/*------------------------------------\
* The JScript on the server dynamically contains the 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;
}
%>