<%@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

评论