VBScript Instr函数始终返回0

我有一个应用程序编写的经典ASP。我需要比较string1是否包含string2，所以我使用instr函数。但是，即使string1包含string2，它也始终返回0。我的代码哪里有问题

function Findstring(string1,string2)
    dim findstr,loc

    on error resume next
    loc= instr(1,Lcase(string1),Lcase(string2),1)
    if loc>0  then
        findstr=true

    else
        findstr= false

    end if


  end function

如果string2包含在string1中，则此函数将返回True，而在任何其他情况下，此函数将返回False

---

注意：如果比较运算符>已经生成布尔值，为什么要使用CBool？因为我们可以调用传递空值的函数。如果要比较的任何字符串为Null，InStr函数将返回Null，test Null>0的计算结果为Null。但是CBool Null将生成一个错误，由上一个On错误捕获，该错误还将处理对象的问题

我猜您在参数顺序上搞错了：InStr1、Lcasestring2、Lcasestring1、1将给出所需的结果。第一个字符串参数是要搜索的字符串，第二个是要搜索的字符串。看见老实说，在解释之前，我必须自己重新阅读文档。不确定这是否是复制/粘贴错误，但您的函数不会返回任何内容。string1:要搜索的字符串。string2：要搜索的字符串表达式。例如：string1是我是一名学生，string2是我

Function FindString( string1, string2 )
    FindString = False 
    On Error Resume Next
    FindString = CBool( InStr(1, LCase(string1), LCase(string2), 1) > 0 )
End Function