字符串分割问题？

[vochina]

if a="online.com" then

a1="online"

a2="com"

if a="online.com.cn" then

a1="online"

a2="comcn"

当a等于其它时，能够自动分割出来。这个程序怎么写？感谢了！

[yutian130]

Dim Parr
Const Apath="online.com.cn"
Parr=Split(Apath,".")
If Instr(Apath,"a") and Len(a)=Len("Parr(0)&"."&Parr(1)") Then
a1=Parr(0)
a2=Parr(1)
Elseif Instr(Apath,"a") and Len(a)=Len("Apath") then
a1=Parr(0)
a2=Parr(1)&Parr(2)
End If

[hedongyang]

Dim domain,domainArr,a1,a2

domain = "hnce.net"
domainArr=split(domain,".")

IF UBound(domainArr)=1 THEN
a1=domainArr(0)
a2=domainArr(1)
ELSEIF UBound(domainArr)=2 THEN
a1=domainArr(0)
a2=domainArr(1)&domainArr(2)
END IF

Response.Write(a1&"<BR>"&a2)

[szjhxu]

a="XXXXXX.xxxxx.xxxxxx.xxxxx"
b=split(a,".")

[lonaerd]

自己看看split的用法，很简单的，你自己一定可以搞定