28,409
社区成员




function checkStr(str)
checkStr=str
end function
items=trim(checkStr(request.Form("item")))
itemarr=split(items,", ")
dim aitem()
for i=0 to itemNum-1
if i<=ubound(itemarr) then
redim Preserve aitem(i)
aitem(i)=itemarr(i)
response.Write(aitem(i)&"<br>")
end if
if i>ubound(itemarr) then
redim Preserve aitem(i)
aitem(i)=" "
response.Write(aitem(i)&"|")
end if
next