日期:2014-05-17 浏览次数:20739 次
<% Dim Str,str1,str2 Str="abc 2, def 45,fffff 110,ruele 4," str1=split(Str,",") for i=0 to ubound(str1) response.Write str1(i)&"<br>" '可以省略 response.Write right(trim(str1(i)),len(trim(str1(i)))-instr(trim(str1(i))," "))&"<br>" next 'response.write str2 %>
------解决方案--------------------
<% Dim Str,str1,str2 Str="abc 2, def 45,fffff 110,ruele 4," str1=split(Str,",") for i=0 to ubound(str1) response.Write str1(i)&"<br>" response.Write right(trim(str1(i)),len(trim(str1(i)))-instr(trim(str1(i))," "))&"<br>" next 'response.write str2 %>