恳请高手帮忙看看我的代码错在哪里，谢谢！ - 编程论坛

#2

yms1232013-02-22 18:02

程序代码：

<%

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都去哪了？
%>

#3

elongtown2013-02-22 18:39

版主正解

#4

szwda2013-02-22 19:09

多谢版主！

#5

szwda2013-02-22 19:38

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

程序代码：

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

#6

szwda2013-02-23 11:59

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

#7

yms1232013-02-24 10:16

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

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

#8

szwda2013-02-24 12:45

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

#9

Susake2013-02-24 13:02

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

#10

szwda2013-02-24 14:27

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

#11

hu9jj2013-02-24 15:04

楼主重复定义strSQL干嘛，只要一行dim strSQL就够了。
另外楼主将代码按缩进格式排好版，就容易查找代码问题了。

#12

szwda2013-02-24 15:10

谢谢版主大人！我是用记事本写的，应该怎样查找代码问题呢？