1、
在vb中，比较语句，比较两数字是否相等前，应用cint()进行转换
如：
Function book_count(book_id)
Dim i,temp
temp=1
For i=0 To Ubound(arrayA)
If cint(book_id)=cint(arrayA(i)) Then
temp=arrayB(i)
Exit For
End If
Next
book_count=temp
End Function
在此函数中，在没加cint前，条件一直不成立。
浪费了我半个小时用response.write去查找错误所在，紧记
