asp,求一个字符切分感谢

VBScript code:

'这是我自已写的效果老是不理想
'--------------------
'切分返回数据
function splitrs(rs)
dim a,r,i
a= Split(rs, "|")
for i=0 to ubound(a)
if a(i)="Domain name is invalid" then
r=r&replace(a(i),a(i),"可以注册<br/>")'注:这里写的中文显示不出来
elseif a(i)="Domain name is not available net" then
r=r&replace(a(i),a(i),"以被注册<br/>")'注:这里写的中文显示不出来
else
r=r&a(i)&"<br/>"
end if
next
splitrs=r
end function



要实现的如下
------------------
我得到值是如下文本
asia1|tdsink.asia1|212|Domain name is invalid comcn|tdsink.comcn|212|Domain name is invalid
cn|tdsink.cn|210|Domain name is available
me|tdsink.me|210|Domain name is available
mobi|tdsink.mobi|210|Domain name is available com|tdsink.com|210|Domain name is available
net|tdsink.net|210|Domain name is available
org|tdsink.org|210|Domain name is available
tel|tdsink.tel|210|Domain name is available

最终显示出来如下
tdsink.cn  可以注册

tdsink.org 可以注册
或是
tdsink.org 以被注册

---

如需要阅读该回复，请登录或注册CSDN!