<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
 '判断传递的值是否为数组,如果为空的话，就分配一个空数组
  function arrayize(value)
    if isarray(value) then
        arrayize=value
   elseif isEmpty(value) then
        arrayize=array()
   else
        arrayize=array(value)
   end if
  end function        
 
  function [](value)
    []=arrayize(value)
  end function 
%>

<%
  '打印数组
  sub println(line)
     for each l in [](line)
        response.write(l)
      next
  end sub     
%>
<%
'调用println过程
call println(array("BEJ"," OLYMPIC", " GAME"," I"," LOVE"," CHINA"))
%>

结果显示:

BEJ OLYMPIC GAME I LOVE CHINA

评论