Question

ASP批量写入数据库问题

表 I A B C
<textarea name="class" cols="20" rows="11"></textarea>
在这个文本框里我输入
张三 男 25
李三 男 24
小许 女 30
吴三 男 40
这段文本时写入数据库的内容 是
表
I A B C
1 张三 男 25
2 李三 男 24
3 小许 女 30
4 吴三 男 40
这样的效果
请各位帮忙

Answer 1

建议输入的时候把单行元素分割“ ”（空格）改为“,” 当然用空格也是一样的
<%
Dim thetext
thetext=request("class")
'//Chr(10) 是换行符 Chr(13)是回车
ReDim myarray(200,4) '依具体情况而定 不一定是200 建议更大
for DyszIII=1 to 200
myarray(DyszIII,0)="0" '该行无效
myarray(DyszIII,1)="" 'ID
myarray(DyszIII,2)="" 'Name
myarray(DyszIII,3)="" 'Gender
myarray(DyszIII,4)="" 'xxx
next
SuZuIII=1 '节点

thetextSplit=split(thetext,Chr(10)) 'Chr(10)不行就改Chr(13)试试
for spiii=0 to Ubound(thetextSplit)
if trim(thetextSplit(spiii))<>"" then
TheGuochengCanshu=trim(thetextSplit(spiii))
TheGuochengCanshuSplit=split(TheGuochengCanshu," ")
myarray(SuZuIII,0)="1" '该行有效
myarray(SuZuIII,1)=SuZuIII 'ID
myarray(SuZuIII,2)=TheGuochengCanshuSplit(0) 'Name
myarray(SuZuIII,3)=TheGuochengCanshuSplit(1) 'Gender
myarray(SuZuIII,4)=TheGuochengCanshuSplit(2) 'xxx
SuZuIII=SuZuIII+1
end if
next

set rs=Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from 表名"
rs.open sql,conn,3,3
for DyszIII=1 to SuZuIII-1
if myarray(DyszIII,0)="1" then
rs.addnew
rs("I")=myarray(DyszIII,1)
rs("A")=myarray(DyszIII,2)
rs("B")=myarray(DyszIII,3)
rs("C")=myarray(DyszIII,4)
rs.update
next
next
rs.close
set sql=nothing
%>

Answer 2

首先，Split函数分割文本框里的数组，先用回车换行分割，会返回一个字符串数组，没一个数组元素存储一个用户信息，然后在用Split函数，以空格分割每个数组元素，这样，每个数组元素又得到一个数组，分别存储了用户的姓名，性别和年龄。
这样就可以把信息解析出来了，存储到数据库了。