谁有好方法,将textarea存入的数据按行分别存入数据库中!帮帮忙,各位高手们!

一行一条数据？
<%
  Dim TxAre,rsAdd,TxAry,i
  '假设表单中的文本框name="textarea1"
  IF Request..ServerVariables("REQUEST_METHOD")="Get" Then
     TxAre=Request("textarea1")'这里的textarea1是提交表单的文本框
  Else
     TxAre=Request.Form("textarea1")'这里的textarea1是提交表单的文本框
  End IF
  TxAry=Split(TxAre,"/n")'关键点将文本框文本以/n(换行)为分界变为数组
  Set rsAdd=Server.CreateObject("ADODB.RecordSet")
  rsAdd.Open "[省略SQL语句]",conn,1,3
  'conn为ADODB.Connection对象这里省略其打开代码
  '下面为循环添加代码
  For i=0 To UBound(TxAry)
      rsAdd.AddNew
      rsAdd("[字段名]")=TxAry(i)
      rsAdd.Update
  Next
  '清空记录集
  rsAdd.Close
  Set rsAdd=Nothing
%>

谢谢啦,终于等到解决的方法了!