Question

我正在尝试验证数据，并且取决于检查或取消选中相关复选框的结果，但是得到以下错误？

Microsoft VBScript编译错误'800a03ee' 预期'）'

<%@ Language=VBScript %>

<%
Function Select()

Dim apple, banana, true
Dim SQL

SQL = " SELECT code, name, value FROM fruits WHERE code = '" &("myCode")& "'"


   If (SQL = SQL & "name <> '" banana "' AND value <> '" true "' ") or (SQL = SQL & "name = '" banana "' AND value <> '" true "' ")  Then

            checkedBox.Common.Name  = "chkbanana"
            checkedBox.Checked      = false     

        Else
            checkedBox.Common.Name  = "chkbanana"
            checkedBox.Checked      = true     
   End If

    If (SQL = SQL & "name <> '" apple "' AND value <> '" true "' ") or (SQL = SQL & "name = '" apple "' AND value <> '" true "' ")  Then

            checkedBox.Common.Name  = "chkapple"
            checkedBox.Checked      = false     

        Else
            checkedBox.Common.Name  = "chkapple"
            checkedBox.Checked      = true     
   End If

End Function   
%>

Answer 1

你有很多语法错误。连接字符串时，您需要在&周围使用banana等。此外，逻辑似乎是关闭，因为你正在比较一些东西与连接，基本上你可以让它编译，永远不会运行任何条件因为else语句将始终运行。您可能希望使用contains或其他一些比较。

但是对于语法，你的第一个if语句应如下所示：

If (SQL = SQL & "name <> '" & banana & "' AND value <> '" & true & "' ") Or (SQL = SQL & "name = '" & banana & "' AND value <> '" & true & "' ") Then

此外，您不应使用true作为变量的名称。

调用并验证数据

1 个答案: