28,404
社区成员
发帖
与我相关
我的任务
分享a="27,26,25,24"
b="2,3,4,5"
a1 = split(a, ",")
b1 = split(b, ",")
c = ""
for i=0 to ubound(a1)
if c = "" then
c = a1(i) & "|" & b1(i)
else
c = c & "," & a1(i) & "|" & b1(i)
end if
next
reponse.write c
Dim a,b,i,j
a="27, 26, 25, 24"
b="2, 3, 4, 5 "
a=Split(a,", ")
b=Split(b,", ")
For i=0 to UBound(a)
Response.Write(a(i)"|")
For j=0 to UBound(b)
Response.Write(b(j)", ")
Next
Next