JS改VBS问题

Question

<Script>
function chk(str)
stra = split(str,"\n")
strn=""
for i=0 to ubound(stra)
   strn=strn+stra(i)+"\n"
   <%sql="insert into pstock_(gid,ghao) values ('"&rs("gid")&"','"&strn&"')"
     conn.execute(sql)
   %>
next
end function
</script>

Answer 1

接收不了啊！我以下的代码，怎么每行存入一个变量了！？
<TEXTAREA name="ghao" rows="4" class="input1"><% 
set rsb=server.createobject("adodb.recordset")
sql="select distinct(ghao),gid from pstock_ where gid='"&rs("gid")&"'"
rsb.open sql,conn,1,1
rsbcount=rsb.recordcount
for l=1 to rsbcount
response.Write(rsb("ghao"))
response.write (chr(13))
rsb.movenext
next
rsb.close
%>
</TEXTAREA>

Answer 2

<Script>
function chk(str)
stra = split(str,chr(13))
strn=""
for i=0 to ubound(stra)
   strn=stra(i)
   <%sql="insert into pstock_(gid,ghao) values ('"&rs("gid")&"','"&strn&"')"
     conn.execute(sql)
   %>
next
end function
</script>