ASP Split() 字串陣列

ASP Split() 字串陣列

有時常常會遇到要將資料做集合的作業，但集合起來後呢？該怎樣把它分解出是一筆一筆的資料呢？
陣列變數 = Split("字符串","分割符")
Ex:
1).西元日期轉民國日期

<%
  strDate = "2010/01/10"
  DateArr = Split(strDate, "/")
  intYer = Cint(DateArr(0)) - 1911
  intMot = Cint(DateArr(1))
  intDay = Cint(DateArr(2))
  ShowDate = "民國" & intYer & "年" & intMot & "月" & intDay & "日"
%>

2).分解長串的Mail清單

<%
  MailList = "aa@mail.com;bb@mail.com;cc@mail.com;dd@mail.com;ee@mail.com"
  MailArra = Split(MailList, ";")
  For i = LBound(MailArra) to UBound(MailArra)
    Response.Write("第" & i & "個人的Mail是" & MailArra(i) & "<br>")
  Next
%>