如果条件不起作用，则 ASP Classic VB

Posted 2023-02-25

【中文标题】如果条件不起作用，则 ASP Classic VB

【英文标题】：ASP Classic VB if condition not working

【发布时间】：2017-07-20 05:52:28

【问题描述】：

我只是在使用 vb 的 asp classic 上使用 IF OR 运算符，但它似乎没有像我预期的那样正常工作。我需要哪个 VALUES（VALUE1 或 VALUE2）的值不是 0，或者两者都具有（例如）1 值，它会起作用。

set rsY = cn.execute ("SELECT COUNT(VALUE1) AS VALUE1, COUNT(VALUE2) AS VALUE2 FROM DUAL")
VALUE1= "1"
VALUE2= "0"
if not rsY.eof then 
        VALUE1= rsY("VALUE1") 
        VALUE2= rsY("VALUE2")
    end if 
    set rsY = nothing


if (Cint(VALUE1) = 0) or (Cint(VALUE2) = 0) then
'code should here
else
'code should here
end if

提前感谢任何帮助

【问题讨论】：

我认为您还应该包括您如何声明VALUE1 和VALUE2，以及您如何设置它们的值。

声明 VALUE1 和 VALUE2 已添加

如果您的问题与 VB.NET 无关，请不要用 VB.NET 标记。

@jmcilhinney 感谢您的指正

不工作不是指定问题的正确方法。另外，我无法正确理解您的问题。请举例说明您的问题。例如，VALUE1 = 1 和 VALUE2 = 0，'IF' 条件应该被执行

【参考方案1】：

根据我对您的多个语句的理解，如果只有 VALUE1 和 VALUE2 both 等于 zero(0) 则应执行 If 条件，否则应执行 Else 条件被执行

if (Cint(VALUE1) = 0) AND (Cint(VALUE2) = 0) then 'please note the operator AND
'code should here
else
'code should here
end if

【参考方案2】：

 Dim rsY, sql, value1, value2
 sql = "SELECT COUNT(VALUE1) AS VALUE1, COUNT(VALUE2) AS VALUE2 FROM DUAL"
 SET rsY = cn.execute (sql)
 value1= 1 'Without ""
 value2= 0

IF Not rsY.EOF Then 
   value1= rsY("VALUE1") 
   value2= rsY("VALUE2")
End If 
Set rsY = nothing


If (Cint(value1) = 0) AND (Cint(value2) = 0) Then 'If Both equals zero 
  Response.Write("Enter in if condition");
Else 'If any of the values ​​are different from zero
  Response.Write("Enter in else condition");
End If