Question

请教asp关于textarea 批量添加数据问题。

如图所示，请教高手如何实现，最近做一个库存管理系统，这个功能委实用，但实现遇到问题。原理是这样，每一行为一组数据，一组数据里又分割几个值，分别对应数据库。
如果库存有记录就更新，如果库存没有记录就插入。图示如下

请教实现代码及思路，不胜感激，
此表是文本域，textarea，不是input

Answer 1

实质上就是批量导入的问题
1:确定一个主键(名称或产品编号)
2:建立一个数组循环代码
3:判别主键值是否存在
通过数组对比,主键存在时-->更新
主键不存在时-->添加

追问

能具体贴下代码吗？

追答

recCnt=cint(request.form("recCnt")) '获得的数据总条数
for i=1 to recCnt
TPID = cint(request.form("数量")(i))
UserName = trim(request.form("编号")(i))
UName = trim(request.form("规格")(i))
TPhightrue = trim(request.form("颜色")(i))
TPNum = cint(request.form("名称")(i))
Set re = Server.CreateObject("ADODB.recordset")
re.Open "Select * From 表 Where UName = '" & UName & "' and TPNum='"&TPNum&"'",conn,1,3 '判别规格和名称
If not re.Eof Then
do while not re.eof
re("TPID")=re("TPID")+TPID '此处更新数量
re.update
re.movenext
loop
re.close
set re=nothing
else
rs.Open "Insert Into 表(UName,TPID,UserName,TPhightrue,TPNum) values('" & UName & "', " & TPID & ", '" & UserName & "', '" & TPhightrue & "', '" & TPNum & "')",Conn '此处添加代码
end if
next
Conn.Close
Set Conn = nothing

Answer 2

很简单，先将TEXTAREA里面的数据经行处理。然后
第一步：将提交的数据以回车符隔开，然后存入数组中。
第二部，将数组中的数据在以空格或者TAB符号隔开，然后再存入数组中，这样就可以将EXCEL数据转换为一个二维数组。再从数组里面取出数据来判断插入，这个就没问题了把

追问

能具体贴下逻辑代码吗