Question

ASP 批量添加数据

rs("name")=Request.Form("name")
rs("t")=trim(request("t"))
rs("url")=rs("url")
rs("info")=cs(Request.Form("info"))
rs("user")=trim(request("user"))
rs("school")=trim(request("school"))
rs("tea")=trim(request("tea"))
rs("qq")=trim(request("qq"))

<textarea name="qq" cols="20" rows="10" class="TempList_Right_ItemL" id="qq"></textarea>
<%
qq = Split(Request("qq"),CHR(13) & CHR(10))
For i = 0 To UBound(qq)
If Not qq(i) = "" Then Conn.Execute("insert into Photo (qq) Values ('"& qq(i) &"')")
Next
%>

怎么会出现这种情况？只有第一条数据！！

Answer 1

很显然，你的<%
qq = Split(Request("qq"),CHR(13) & CHR(10))
For i = 0 To UBound(qq)
If Not qq(i) = "" Then Conn.Execute("insert into Photo (qq) Values ('"& qq(i) &"')")
Next
%>
这段只是往数据库里面写入QQ这个字段的数据，别的字段都是空的，肯定是不会写入的嘛。
如果要写入其他字段，你也应该把其他字段对应的值放进循环体中才可以的啊。

追问

怎么写 放在什么位置？比如 aa

还有一点 我的 aa 是固定值 怎么做到呢 ？

追答

这要看你是否有意需要空着其他字段的数据了。根据你上面所写，QQ这个字段的值好像是你通过textarea中的字符串来获取，这样子获取可以一次填写多个值，然后再用一些方法进行分割。
如果你前面一个人就有很多个QQ号，那么，你这个字段里面的数据就是多对一了。
如此一来，你就可能故意空出相同字段的数据。
假如说你只想一个QQ号码对应一条信息，那么你需要将
rs("name")=Request.Form("name")
rs("t")=trim(request("t"))
rs("url")=rs("url")
rs("info")=cs(Request.Form("info"))
rs("user")=trim(request("user"))
rs("school")=trim(request("school"))
rs("tea")=trim(request("tea"))
rs("qq")=trim(request("qq"))
这段内容以相同的手法写进For循环中即可。

话说回来，假如说一个人有多个QQ其实你也没有必要将QQ分多条记录写入数据库中，你需将其以一个特殊(自己指定)字符分开，再写入数据库（例如，我有QQ123456和456789这两个，那么，我在填的时候就填123456,456789，这时就将"123456,456789"作为一个字符串写入数据库），然后在读的时候再分割即可。

不知道你明白我的意思没有？

追问

rs("name")=Request.Form("name")
rs("t")=trim(request("t"))
rs("url")=rs("url")
rs("info")=cs(Request.Form("info"))
rs("user")=trim(request("user"))
rs("school")=trim(request("school"))
rs("tea")=trim(request("tea"))
rs("qq")=trim(request("qq"))

怎么添加到
For i = 0 To UBound(qq)

里呢 ？

追答

Answer 2

没太明白楼主的意思，你的意思是不是你输入了两数字，想达到的效果是得到两个数据。
看楼主上面的方法应该想用数组的方式解决你的问题，既然这样的话，你在输入数据的时候可以用逗号隔开，然后把字符转换成数组，在用你的循环插入。

追问

只有 qq 字段 数据增加了 其他没有填进去

追答

Conn.Execute("insert into Photo (qq) Values ('"& qq(i) &"')")
你的这个语句只是增加QQ的字段啊，除非你的数据库给其他数据都有默认的字段，要不然是不会有数据的。你可用自己填写进去啊。
Conn.Execute("insert into Photo ( tea,qq) Values ('"&tea&"','"& qq(i) &"')")需要什么加什么！

追问

这里怎么改？

追答

如果需要别的字段一一添加！

追问

为什么第一条是空 其他都正常呢 ？

追答

你可以尝试着做个输出看看你第一条信息是不是有数据。
你在for循环里面做：response.write(QQ(i)):response.end()
看看是不是有数值！