| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1378 人关注过本帖
标题:请教高手,如何一次写入多条纪录
只看楼主 加入收藏
wwwhouhou
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2005-10-27
收藏
 问题点数:0 回复次数:9 
请教高手,如何一次写入多条纪录
代码如下:
如在title字段,输入张三,李四 会像数据库中写入两条纪录,一条是张三一条是李四

<!--#include file="conn.asp"-->
<%
if request.QueryString("action")="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from soft",conn,1,3
rs.addnew
rs("title")=trim(request("title"))
rs("title2")=trim(request("title2"))
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript>alert('添加成功!');window.location.href='../print01-1.asp';</script>"
response.End
end if
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#999999">
  <form name="form1" method="post" action="add01.asp?action=save"  >
    <tr bgcolor="#F1F1F1">
      <td width="25%" height="30" bgcolor="#CCCCCC" ><div align="center">姓名:</div></td>
      <td width="54%" bgcolor="#CCCCCC" ><div align="center">
          <input name="title" type="text" id="title" size="30">
        </div></td>
      <td width="54%" bgcolor="#CCCCCC" ><div align="center"> 部门:</div></td>
      <td width="54%" bgcolor="#CCCCCC" ><div align="center">
          <input name="title2" type="text" id="title2" size="30">
        </div></td>
      <td width="21%" bgcolor="#CCCCCC" ><div align="center">
          <input type="submit" name="Submit" value=" 添  加 " >
        </div></td>
    </tr>
  </form>
</table>
搜索更多相关主题的帖子: 纪录 
2007-12-03 17:06
oyaya
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-12-3
收藏
得分:0 
这个很简单啊~~来我家吧~

凹丫丫网络社区 http://www.  发帖送QQ币
2007-12-03 17:10
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
办法就是使用循环
if request.QueryString("action")="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from soft",conn,1,3
Dim i
For i=0 To 100
       rs.addnew
       rs("title")=trim(request("title"))
       rs("title2")=trim(request("title2"))
       rs.update
Next
rs.close
set rs=nothing
response.write "<script language=javascript>alert('添加成功!');window.location.href='../print01-1.asp';</script>"
response.End
end if
2007-12-03 17:29
wwwhouhou
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2005-10-27
收藏
得分:0 
  这样一来,不管在title字段中输入什么都会写入100条这样的数据了,
该们办

我是想在title字中输入张三,李四时会添加两条记录一条是张三,一条是李四。如果输入的是张三,李四,王五的话则会添加四条记录每人一条
2007-12-04 14:33
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
收藏
得分:0 
版主只是给你举了一个例子。不一定是非要到100
title=trim(Request("title"))
if instr(title,",")>0 then
title=split(title,",")
for i=0 to ubound(title)
rs.addnew
       rs("title")=title(i)
       rs("title2")=trim(request("title2"))
       rs.update
next
end if
试试这样行不行?
2007-12-04 19:27
孤独冷雨
Rank: 10Rank: 10Rank: 10
来 自:安徽滁州
等 级:贵宾
威 望:23
帖 子:1247
专家分:1909
注 册:2007-6-4
收藏
得分:0 
真是人才啊!又长见识了!
2007-12-09 16:05
xiaoyangyjs
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2007-11-29
收藏
得分:0 
高手啊,这样也行啊,他是说在一行中同时输入几个名字,而在数据库中同时添加记录,晕,
2007-12-09 21:22
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
楼主是指姓名那里输"入张三、李四"
部门里输入"部门1、部门2"
这样的输入方法?
2007-12-09 21:51
wwwhouhou
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2005-10-27
收藏
得分:0 
不是啊,姓名那里输入张三、李四
部门里只需要输入部门1就可以了

输入两个人名写入两条数据
张三    部门1
李四    部门2

输入三个人名的时候显示三条数据
2007-12-14 09:09
紫色天空
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-9-30
收藏
得分:0 
这样试试 我这里写的输入两个名字以上就以空格区分的 比如 “张三 李四”
title=trim(request("title"))
title2=trim(request("title2"))

if request.QueryString("action")="save" then
    set rs=server.CreateObject("adodb.recordset")
         rs.open "select * from soft",conn,1,3
    if title <> "" then
         title_temp=split(title)
    end if
    if ubound(title_temp) > "0" then
        for each title_1 in title_temp
           rs.addnew
           rs("title")=title_1
           rs("title2")=title2
           rs.update
        next
    else
       rs.addnew
       rs("title")=title
       rs("title2")=title2
       rs.update
    end if
    rs.close
    set rs=nothing
    response.write "<script language=javascript>alert('添加成功!');window.location.href='../print01-1.asp';</script>"
    response.End
end if

[[italic] 本帖最后由 紫色天空 于 2007-12-14 18:46 编辑 [/italic]]
2007-12-14 18:25
快速回复:请教高手,如何一次写入多条纪录
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021393 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved