서버 VBScript 와 JScript 의 몇 가지 같은 특성 을 가 진 쓰기 와 예제

By shawl.qiu 요약:본 고 는 ASP 서버 스 크 립 트 의 몇 가지 중요 한 응용 을 보 여 줍 니 다.  디렉토리:1. 집합/대상 1.1 옮 겨 다 니 기 VBScript 스 트 리밍 폼 집합 1.2 JScript 양식 옮 겨 다 니 기 집합 2. 변 환 량 값 을 변수 로, 병렬 값 2.1 VBScript 변 환 량 값 을 변수 로 하고 값 을 2.2 부여 합 니 다. JScript 변 환 량 값 을 변수 로 하고 값 을 부여 합 니 다.3. 동적 포함 파일 3.1 VBScript 동적 포함 파일 3.2 JScript 동적 포함 파일 shawl.qiu 2006-10-11http://blog.csdn.net/btbtd 1. 집합/대상 1.1 옮 겨 다 니 기 VBScript 폼 집합 linenum  <%      for each temp in request.Form          response.write temp&": "&request.form(temp)      next  %>  1.2 JScript 폼 집합 linenum  <%      for (var $e=new Enumerator(Request.Form); !$e.atEnd(); $e.moveNext()){          Response.Write($e.item()+':
 '+Request.Form($e.item()));      }  %>  2. 변 환 량 값 을 변수 로, 병렬 값 2.1 VBScript 변 환 량 값 을 변수 로 하고 값 을 linenum 로 부여 합 니 다.  <%      for each temp in request.Form          execute temp&"=request.form(temp)"      next  %>  2.2 JScript 변 환 량 값 을 변수 로 하고 값 을 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. 동적 포함 파일 3.1 VBScript 동적 포함 파일 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 'shawl.qiu code'      execute fInclude("include/system/language/"&sitefglang&"/main.asp")  %>  3.2 JScript 동적 포함 파일 linenum  <%      eval($dynInc('aj2.asp'));      Response.Write($test);      function $dynInc($fl){      /* ------------------------------------\      * 서버 JScript 동적 포함 파일 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;      }  %>