| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1681 人关注过本帖
标题:我想做循环插入内容,这样做对吗?
只看楼主 加入收藏
boyfuture
Rank: 1
等 级:新手上路
帖 子:552
专家分:0
注 册:2005-12-20
结帖率:88.89%
收藏
 问题点数:0 回复次数:14 
我想做循环插入内容,这样做对吗?
各位大虾,请教个问题,我想做个循环插入的代码,不知怎么老说错误,请帮我看看,谢谢!
<%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
wyg4859
Rank: 2
等 级:新手上路
威 望:4
帖 子:883
专家分:0
注 册:2006-8-2
收藏
得分:0 
request("fsdx"&rs("name"))<>""

http://www.找到组织!找到党!
2008-01-18 11:12
永夜的极光
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2721
专家分:1
注 册:2007-10-9
收藏
得分:0 
<%%>内部不能再有<%%>了

[[italic] 本帖最后由 永夜的极光 于 2008-1-18 11:25 编辑 [/italic]]

从BFS(Breadth First Study)到DFS(Depth First Study)
2008-01-18 11:23
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
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
收藏
得分:0 
if request("fsdx"&rs("name"))<>"" then
2#是这样写的吧?
2008-01-18 18:59
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
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
收藏
得分:0 
Do Until rs.EOF
没定义声明rs,哪来的rs呢?
2008-01-18 20:01
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
威龙嘉少
Rank: 1
等 级:新手上路
帖 子:205
专家分:0
注 册:2007-9-24
收藏
得分:0 
两个记录集应该用不同的名字,用一个就可能产生冲突了,而且用过后要关闭!
你再试下 
2008-01-19 10:03
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
快速回复:我想做循环插入内容,这样做对吗?
数据加载中...
 
   



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

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