k = "服饰,电子电工,纺织,通讯,交通运输,化工,商业服务,环保,冶金矿产,家居用品" 


sk = split(k,",")
for i = 0 to ubound(sk)
document.write  "<a href=CompanySearch.asp?Keyword="&sk(i)&" >"&sk(i)&"</a> "
next