| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1681 人关注过本帖
标题:我想做循环插入内容,这样做对吗?
取消只看楼主 加入收藏
boyfuture
Rank: 1
等 级:新手上路
帖 子:552
专家分:0
注 册:2005-12-20
结帖率:88.89%
收藏
 问题点数:0 回复次数:6 
我想做循环插入内容,这样做对吗?
各位大虾,请教个问题,我想做个循环插入的代码,不知怎么老说错误,请帮我看看,谢谢!
<%set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * FROM logodatas "
rs.open sql,conn,1,3%>
 <%
   Do Until rs.EOF  %>
   <%if request("fsdx<%=rs("name")%>")<>"" then
 dim fsdx,fssj,fsnr,fszt,sffk,fsry
fsry=session("UserName")
fsdx=request.form("fsdx<%=rs("name")%>")
fsnr=request.Form("fsnr")
fssj=now()
fszt=request.form("jjzy")
sffk=request.form("xfhqr")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL="insert into smsdata(fsdx,fssj,fsnr,fszt,sffk,fsry)values('"+fsdx+"',#"&fssj&"#,'"+fsnr+"','"+fszt+"','"+sffk+"','"+fsry+"')"
conn.execute SQL
%>
 <%rs.MoveNext
   Loop %>    
   
<%   conn.close
set conn=nothing%>  提示错误类型:
Microsoft VBScript 编译器错误 (0x800A03EE)
缺少 ')'
/ao/personalinterface/smsgroupsave.asp, line 8, column 23
if request("fsdx<%=rs("name")
----------------------^  请各位大虾多多指教!
搜索更多相关主题的帖子: sql request 
2008-01-18 10:46
boyfuture
Rank: 1
等 级:新手上路
帖 子:552
专家分:0
注 册:2005-12-20
收藏
得分:0 
错误类型:
Microsoft VBScript 编译器错误 (0x800A03EE)
缺少 ')'
/ao/personalinterface/smsgroupsave.asp, line 8, column 21
if request("fsdx&rs("name")")<>"" then
--------------------^
各位大虾,还是有问题啊,看看该怎么继续解决?谢谢了!
2008-01-18 18:38
boyfuture
Rank: 1
等 级:新手上路
帖 子:552
专家分:0
注 册:2005-12-20
收藏
得分:0 
太惭愧了。。。。如楼上的说法,是我写错了
现在还存在个问题,帮忙看看,错误的提示变成这个了:
错误类型:
Microsoft VBScript 编译器错误 (0x800A040E)
'loop' 语句缺少 'do'
/ao/personalinterface/smsgroupsave.asp, line 20
Loop
而下面的例子我同样用在别的位置,都没有提示错误,是怎么回事啊?请各位帮忙!谢谢!
 <% Do Until rs.EOF
if request("fsdx"&rs(name))<>"" then
 dim fsdx,fssj,fsnr,fszt,sffk,fsry
fsry=session("UserName")
fsdx=request.form("fsdx"&rs("name"))
fsnr=request.Form("fsnr")
fssj=now()
fszt=request.form("jjzy")
sffk=request.form("xfhqr")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL="insert into smsdata(fsdx,fssj,fsnr,fszt,sffk,fsry)values('"+fsdx+"',#"&fssj&"#,'"+fsnr+"','"+fszt+"','"+sffk+"','"+fsry+"')"
conn.execute SQL
rs.MoveNext
 Loop %>
2008-01-18 19:12
boyfuture
Rank: 1
等 级:新手上路
帖 子:552
专家分:0
注 册:2005-12-20
收藏
得分:0 
定义了啊,可能没有给全,这是上半部的代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<%set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * FROM logodatas "
rs.open sql,conn,1,3%>
请指教!谢谢!
2008-01-18 20:09
boyfuture
Rank: 1
等 级:新手上路
帖 子:552
专家分:0
注 册:2005-12-20
收藏
得分:0 
错误类型:
Microsoft VBScript 编译器错误 (0x800A040E)
'loop' 语句缺少 'do'
/ao/personalinterface/smsgroupsave.asp, line 21
Loop
同样的错误啊,我将两个记录集改了不同的名称,而且增加了关闭,但是错误同样!
请各位大虾继续指教,谢谢!
2008-01-19 10:23
boyfuture
Rank: 1
等 级:新手上路
帖 子:552
专家分:0
注 册:2005-12-20
收藏
得分:0 
错误类型:
Microsoft VBScript 编译器错误 (0x800A040E)
'loop' 语句缺少 'do'
/ao/personalinterface/smsgroupsave.asp, line 21
Loop
老大,还是同样的错误啊,是不是语法有误啊?通常做这种循环插入操作的还有什么别的方法没有啊?请赐教啊!谢谢了!
2008-01-19 13:03
boyfuture
Rank: 1
等 级:新手上路
帖 子:552
专家分:0
注 册:2005-12-20
收藏
得分:0 
太棒了,解决了老大!谢谢啊!
2008-01-19 15:53
快速回复:我想做循环插入内容,这样做对吗?
数据加载中...
 
   



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

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