用Split和Replace来截取
比如
Dim tStr,tAry,i
tStr="http://www.
tStr=Replace(tStr,"http://","")
tAry=Split("/")
For i=0 To UBound(tAry) Response.Write tAry(i)&"<br>"
Next
<%
Dim tStr,tAry,i
tStr="http://www.
tStr=Replace(tStr,"http://","")
tStr=Replace(tStr,"/","|")
tAry=Split(tStr,"|")
For i=0 To UBound(tAry) Response.Write tAry(i)&"<br>"
Next
%>