Vb脚本字符串比较错误

Question

我已经尝试了所有但不起作用的

我得到一个colum值表单数据库为

substatus=rsprefobj("isnotificationactive");

完成后

Response.write substatus

它给了我 - ＆gt; Ñ

当我做的时候

intcomaprestringval=StrComp(substatus,"n",vbTextCompare)
     Response.write intcomaprestringval  

它（intcomaprestringval）给了我 - ＆gt; 1尽管它们是相同的

如果是“n”或“y”

，我想根据数据库值做出一些决定

If intcomaprestringval = 0  Then
some

Else

some 
End If

但是在我的情况下，StrComp（）总是返回1，无论数据库值是“n”还是“y”:(

Answer 1

我写了一个比较函数，它将返回＆＃34; OK＆＃34;如果2个值匹配或＆＃34;不匹配＆＃34;如果他们不这样做。这是：

Function Compare(str1, str2, comp)
    str = "OK"
    If StrComp(str1, str2, comp) <> 0 Then str = "No Match"
    Compare = str
End Function

str1和str2是您要比较的2个值，comp是比较方法（0 =二进制比较，1 =文本比较）。我总是使用0。

所以你会像这样使用它：

If Compare(substatus, "n", 0) = "OK" Then

    ' Values match

Else

    'Values do not match

End If

希望有所帮助

Answer 2

关于你的考试：

intcomaprestringval=StrComp(substatus,"n",vbTextCompare)

您是否在代码中的某个时刻将vbTextCompare设置为0？

Answer 3

我使用了@EntBark

建议的Trim（）

Dim myvalue
myvalue=Trim(substatus)
intcomaprestringval=StrComp(myvalue,"n",vbTextCompare)