首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • asp 插入前几条数据怎么插入快来抢分啊急啊 啊！！！ [已结贴,结贴人:feilsg188]
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • feilsg188
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    • 揭帖率：
    发表于：2007-11-13 12:44:52 楼主
    我有个问题请大家帮忙代码如下：
      set rs=server.createobject("adodb.recordset") '取cjpp
     
                  sql="select top 3 * from aa where isaa=0"
                    rs.Open sql,conn,3
                    if rs.eof  then
            response.Write("暂无信息")
          else
    for i=1 to 3
                          cjppname=rs("cjppname")
          aapwd=rs("aapassword")
          aaid=rs("aaid")
           
    set rs=server.CreateObject("adodb.recordset")     
                          rs.open "select * from info",conn,1,3
                          rs.addnew
          rs("userid")=userid
                          rs("aaname")=cjppname
    rs("aapwd")=cjpppwd
              rs.update
                  rs.close
                          set rs=nothing
    rs.movenext
        next
    end if
    rs.close
                set rs=nothing
    以上只能实现一条数据插入3遍而不是从aa中取3条数据分别都插入info表里的不是重复的，高手请赐教！！！在线等···
    30  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • feilsg188
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2007-11-13 12:53:141楼 得分:0
    我每次插入的都是aa中的一条数据的重复插如到info中3条？z怎么回事我不想重复插入要不重复的3条数据插入info中 请赐教谢谢
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • bandy101
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2007-11-13 12:54:422楼 得分:0
      set  rs=server.createobject( "adodb.recordset ")  '取cjpp
         
      sql= "select  top  3  *  from  aa  where  isaa=0 "
      rs.Open  sql,conn,3
      if  rs.eof    then
              response.Write( "暂无信息 ")
        else
        do while not rs.eof
                                                  cjppname=rs( "cjppname ")
                  aapwd=rs( "aapassword ")
                  aaid=rs( "aaid ")
                   
    set  rs=server.CreateObject( "adodb.recordset ")           
                                                rs.open  "select  *  from  info ",conn,1,3
                                                rs.addnew
                rs( "userid ")=userid
                                                rs( "aaname ")=cjppname
      rs( "aapwd ")=cjpppwd
                        rs.update
                                rs.close
                                                set  rs=nothing
      rs.movenext
            loop
      end  if
      rs.close
                              set  rs=nothing
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • feilsg188
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2007-11-13 13:00:013楼 得分:0
    楼上的兄弟你的方法更不行 死循环了
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • feilsg188
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2007-11-13 13:00:594楼 得分:0
    急啊
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • hztgcl1986
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2007-11-13 13:14:025楼 得分:0
    sql="Insert Into info (cjppname,aapassword,aaid) (Select Distinct Top 3 cjppname,aapassword,aaid From aa Where isaa=0)"
    conn.Execute(sql)

    不用那么多的代码的
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • toury
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：

    • 2
    发表于：2007-11-13 13:15:256楼 得分:0
    开着一个记录集rs,然后在循环里面还要再创建rs本身,能不出错啊
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • toury
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：

    • 2
    发表于：2007-11-13 13:25:467楼 得分:30
    HTML code
    
<%
  Set rs = server.CreateObject("adodb.recordset ")  '取cjpp
  
  sql = "select top 3 * from aa where isaa=0 "
  rs.open sql, conn, 3
  If rs.EOF Then
    Response.write ("暂无信息 ")
  Else
    For i = 1 To 3
    cjppname = rs("cjppname ")
    aapwd = rs("aapassword ")
    aaid = rs("aaid ")
    Err.Clear
    sql = "INSERT INTO info(userid,aaname,aapwd) VALUES('" & userid & "','" & cjppname & "','" & cjpppwd & "')"
Response.write sql
    conn.execute sql
    If Err <> 0 Then
      rsponse.write "写库错误":   Exit For
    End If
    rs.movenext
    Next
  End If
  rs.Close
  Set rs = Nothing

%>
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved