我想做循环插入内容，这样做对吗？

boyfuture 发布于 2008-01-18 10:46， 1681 次点击

各位大虾，请教个问题，我想做个循环插入的代码,不知怎么老说错误，请帮我看看，谢谢！
<%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")
----------------------^  请各位大虾多多指教！

14 回复

wyg48592008-01-18 11:12

request("fsdx"&rs("name"))<>""

永夜的极光2008-01-18 11:23

<%%>内部不能再有<%%>了

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

boyfuture2008-01-18 18:38

错误类型：
Microsoft VBScript 编译器错误 (0x800A03EE)
缺少 ')'
/ao/personalinterface/smsgroupsave.asp, line 8, column 21
if request("fsdx&rs("name")")<>"" then
--------------------^
各位大虾，还是有问题啊，看看该怎么继续解决？谢谢了！

madpbpl2008-01-18 18:59

if request("fsdx"&rs("name"))<>"" then
2#是这样写的吧？

boyfuture2008-01-18 19:12

太惭愧了。。。。如楼上的说法，是我写错了
现在还存在个问题，帮忙看看，错误的提示变成这个了：
错误类型：
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 %>

madpbpl2008-01-18 20:01

Do Until rs.EOF
没定义声明rs，哪来的rs呢？

boyfuture2008-01-18 20:09

定义了啊，可能没有给全，这是上半部的代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * FROM logodatas "
rs.open sql,conn,1,3%>
请指教！谢谢！

威龙嘉少2008-01-19 10:03

两个记录集应该用不同的名字，用一个就可能产生冲突了，而且用过后要关闭！
你再试下　

#10

boyfuture2008-01-19 10:23

错误类型：
Microsoft VBScript 编译器错误 (0x800A040E)
'loop' 语句缺少 'do'
/ao/personalinterface/smsgroupsave.asp, line 21
Loop
同样的错误啊，我将两个记录集改了不同的名称，而且增加了关闭，但是错误同样！

请各位大虾继续指教，谢谢！

#11

madpbpl2008-01-19 10:59

<% 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 %>

#12

boyfuture2008-01-19 13:03

错误类型：
Microsoft VBScript 编译器错误 (0x800A040E)
'loop' 语句缺少 'do'
/ao/personalinterface/smsgroupsave.asp, line 21
Loop
老大，还是同样的错误啊，是不是语法有误啊？通常做这种循环插入操作的还有什么别的方法没有啊？请赐教啊！谢谢了！

#13

madpbpl2008-01-19 13:17

<% 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") '------这句删掉试试
end if '------把后面的end if移到这里试试，刚才漏了

SQL="insert into smsdata(fsdx,fssj,fsnr,fszt,sffk,fsry)values ('"+fsdx+"',#"&fssj&"#,'"+fsnr+"','"+fszt+"','"+sffk+"','"+fsry+"')"
conn.execute SQL
rs.MoveNext
Loop %>

#14

boyfuture2008-01-19 15:53

太棒了，解决了老大！谢谢啊！

#15

icelovebai2008-01-20 11:01

<%if request("fsdx<%=rs("name")%>")<>""
不可以这样写