按照行拆分textarea

网上查到方法

textarta=request("textarea") '获取数据
linestr=split(textarea,vbcrlf) '按回车将数据拆分成以行为单位的数组

结果拆分不开，换用split(textarea,chr(13)&chr(10))仍然不行，很费解，于是写了个方法，先替换掉回车换行然后再拆分
Function FilterHtmlBR(str)
str = Replace(str, Chr(13), "<br/>")
str = Replace(str, Chr(10), "<br/>")
FilterHtmlBR = str
End Function

textarta=request.form("textfield") '获取数据
textarea=FilterHtmlBR(textarta)
linestr=split(textarea,"<br/><br/>") '按回车将数据拆分成以行为单位的数组
for i = 0 to ubound(linestr) '循环获取每一行
response.write "第"&i&"个："&linestr(i)&"<br/>"
next
成功~~