日期:2014-05-16 浏览次数:20773 次
<%
a = "全球最大的中文社区"
n = 1
For i = 1 To Len(a) STEP 3
s = "a" & n & "=""" & Mid(a, i, 3) & """"
ExecuteGlobal s
n = n + 1
Next
For i = 1 To n-1
Response.Write Eval("a" & i)
Next
%>
'注意:逗号作为分隔符的前提是逗号在字串里不存在。
a = "全球最大的中文社区"
a1 = ""
For i = 1 To Len(a) STEP 3
if a1 <> "" then
a1 = a1 & ","
end if
a1 = a1 & Mid(a, i, 3)
Next
ar = split(a1, ",")