VB脚本中的烦恼

Question

为了想要一个ASP Classic程序的人试图将PHP脚本转移到VB脚本而苦苦挣扎.

到底发生了什么事？

width = 1008
height = 1260

If width > height Then
 response.write("I am confused")
End If

产生结果;

I am confused

宽度值来自

dimensions = Split(canvas_size,"x")
width = dimensions(0)
height = dimensions(1)

当我把它们写到屏幕上时,那些是我得到的数字.

Answer 1

当值为字符串或数字时,以下代码可正常工作.必须有一个额外的问题.

width1 = "1008"
height1 = "1260"

msgbox("starting")

If width1 > height1 Then
 msgbox("bad 1")
End If

width2 = 1008
height2 = 1260

If width2 > height2 Then
 msgbox("bad 2")
End If

我的猜测是你没有修剪和/或转换分割值.看这个例子.

dimensions = Split("1008 x 1260","x")
width3 = dimensions(0)
height3 = dimensions(1)

' does NOT work because of the untrimmed value
If width3 > height3 Then
 msgbox("bad 3")
End If

' does work because of the conversion (which takes care of the trimming too)
If cint(width3) > cint(height3) Then
 msgbox("bad 4")
End If