<!--#include file="hezi.asp"-->
<%
dim sjid,bjid,wgid,cdid,qingsjia,qingbjia,wugu,chidao,sql
sjid=Split(request("sjid"),",",-1,1)
bjid=Split(request("bjid"),",",-1,1)
wgid=Split(request("wgid"),",",-1,1)
cdid=Split(request("cdid"),",",-1,1)
qingsjia=request("qingsjia")
qingbjia=request("qingbjia")
wugu=request("wugu")
chidao=request("chidao")
if qingsjia>0 then
for i=0 to qingsjia-1
dim strSQL
strSQL="UPDATE yinyuehe SET sjshu=sjshu+1 where id="&sjid(i)

else if qingbjia>0 then
for i=0 to qingbjia-1
dim strSQL
strSQL="UPDATE yinyuehe SET bjshu=bjshu+1 where id="&bjid(i)

else if wugu>0 then
for i=0 to wugu-1
dim strSQL
strSQL="UPDATE yinyuehe SET wgshu=wgshu+1 where id="&wgid(i)

else if chidao>0 then
for i=0 to chidao-1
dim strSQL
strSQL="UPDATE yinyuehe SET cdshu=cdshu+1 where id="&cdid(i)
end if
objconnection.Execute(strSQL)
Next
objConnection.close
set objConnection =nothing
Response.Write "&xieru=1&"
%>

<!--#include file="hezi.asp"-->
<%

 dim sjid,bjid,wgid,cdid,qingsjia,qingbjia,wugu,chidao,sql

 sjid=Split(request("sjid"),",",-1,1)

 bjid=Split(request("bjid"),",",-1,1)

 wgid=Split(request("wgid"),",",-1,1)

 cdid=Split(request("cdid"),",",-1,1)

 qingsjia=request("qingsjia")

 qingbjia=request("qingbjia")

 wugu=request("wugu")

 chidao=request("chidao")

 if qingsjia>0 then
    for i=0 to qingsjia-1
        dim strSQL
        strSQL="UPDATE yinyuehe SET sjshu=sjshu+1 where id="&sjid(i)

 else if qingbjia>0 then
      for i=0 to qingbjia-1
          dim strSQL
          strSQL="UPDATE yinyuehe SET bjshu=bjshu+1 where id="&bjid(i)


 else if wugu>0 then
      for i=0 to wugu-1
          dim strSQL
          strSQL="UPDATE yinyuehe SET wgshu=wgshu+1 where id="&wgid(i)

 else if chidao>0 then
      for i=0 to chidao-1
          dim strSQL
          strSQL="UPDATE yinyuehe SET cdshu=cdshu+1 where id="&cdid(i)

 end if

 objconnection.Execute(strSQL)
Next'这个next的for在哪里？
 objConnection.close

 set objConnection =nothing

 Response.Write "&xieru=1&"

 '还有四个for循环的next都去哪了？
%>

版主正解

多谢版主！

为了给flash传递数据，我刚接触asp,我还是搞不懂for与next的搭配，还请高手明示。我下面改了还是不行

<!--#include file="hezi.asp"-->
<%
dim sjid,bjid,wgid,cdid,qingsjia,qingbjia,wugu,chidao,sql
sjid=Split(request("sjid"),",",-1,1)
bjid=Split(request("bjid"),",",-1,1)
wgid=Split(request("wgid"),",",-1,1)
cdid=Split(request("cdid"),",",-1,1)
qingsjia=request("qingsjia")
qingbjia=request("qingbjia")
wugu=request("wugu")
chidao=request("chidao")
if qingsjia>0 then
for i=0 to qingsjia-1
dim strSQL
strSQL="UPDATE yinyuehe SET sjshu=sjshu+1 where id="&sjid(i)
Next
else if qingbjia>0 then
for i=0 to qingbjia-1
dim strSQL
strSQL="UPDATE yinyuehe SET bjshu=bjshu+1 where id="&bjid(i)
Next
else if wugu>0 then
for i=0 to wugu-1
dim strSQL
strSQL="UPDATE yinyuehe SET wgshu=wgshu+1 where id="&wgid(i)
Next
else if chidao>0 then
for i=0 to chidao-1
dim strSQL
strSQL="UPDATE yinyuehe SET cdshu=cdshu+1 where id="&cdid(i)
Next
end if
objconnection.Execute(strSQL)
objConnection.close
set objConnection =nothing
Response.Write "&xieru=1&"
%>

这样大的论坛，怎会没人帮忙呢！

任何语句块有开始必须有结束，
for对应next if对应end if do 对应loop
还有dim strsql
语句块内同名变量只能在语句块内有作用。
好比你单位有个叫老李的人，北京市也有叫老李的，但是你只能见到单位里的老李，见不到北京市的其他老李。

[ 本帖最后由 yms123 于 2013-2-24 10:23 编辑 ]

我看不出代码问题出在哪？求版主帮改正一下吧，谢谢啦！

这是什么语言，完全没看懂

asp接收传过来的数据后,如果符合条件就让acc数据库yinyuehe表中的某项值加1。这就是要实现的目标，还请高手指教，十分感谢！