asp之split二次分割示例

<%

Dim MyString, MyArray

MyString = "我下吧1|http://www.wxb8.comvbCrLf我下吧2|http://www.wxb81.com vbCrLf 我下吧3|http://www.wxb82.com"

MyArray = Split(MyString,"vbCrLf") ' 如果从数据库里读取的话"vbCrLf" 不带引号

For i=LBound(MyArray) to UBound(MyArray)

MyArray2=split(MyArray(i),"|")

response.write "<a href="&myArray2(1)&">" &myArray2(0)& "</a> "

Next

%>