未完,测试中...
<%
'功能:判断一个变量是否在于一个二维数据的某列
'来源:http://jorkin.reallydo.com/article.asp?id=482
'需要Bint函数:http://jorkin.reallydo.com/article.asp?id=395
Function InArray2(ByVal sValue, ByVal aArray(), ByVal iColumn, ByVal bCompare)
On Error Resume Next
Dim i, j
InArray2 = False
i = Bint(iColumn)
If i < 0 Or i > UBound(A) Then
Exit Function
End If
For j = 0 To UBound(A, 2)
If StrComp(sValue, A(i, j), bCompare) = 0 Then
Response.Write(A(i, j) & "<br />")
InArray2 = True
Exit Function
End If
Next
End Function
%>
文章来源: http://Jorkin.Reallydo.Com/default.asp?id=482