dim ArryStr,A,B
ArryStr="a=1|b=1,a=1|b=1,a=1|b=3"
ArryStr=replace(ArryStr,",","|")''先把逗号符替换为|分隔
ArryStr=Split(ArryStr,"|")''分割为数组
For I=0 to Ubound(ArryStr)
if instr(ArryStr(I),"a=")>0 then
A=A+Split(ArryStr(I),"=")(1)
end if
if instr(ArryStr(I),"b=")>0 then
B=B+Split(ArryStr(I),"=")(1)
end if
Next
Response.write "a="&A
Response.write "<br />"
Response.write "b="&B
温馨提示:答案为网友推荐,仅供参考