将一串数据写入数组
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
