将一串数据写入数组
Dim   ka
if   cc( "cheshi ")=1   then  
ka= "测试 "
end   if
if   cc( "qie ")=1   then
ka=ka+ "||全切 "
end   if
if   cc( "qie ")=2   then
ka=ka+ "||半切 "
end   if
if   cc( "mopian ")=1   then
ka=ka+ "||磨片 "
end   if
if   cc( "bangding ")=1   then
ka=ka+ "||邦定 "
end   if
if   cc( "cent_check ")=1   then
ka=ka+ "||分检装盒 "
end   if
if   cc( "auto_check ")=1   then  
ka=ka+ "||自动分检 "
end   if
  将数据写入到ka中

------解决方案--------------------
arr = split(ka, "|| ")
For i = 0 To UBound(arr)
Response.Write arr(i)
Next