filter(bukes,rs("UserID"))
是在bukes数组里包含rs("UserID")里面的内容
比如：
<%
Dim MyIndex
Dim MyArray(3)
MyArray(0) = "Sunday"
MyArray(1) = "Monday"
MyArray(2) = "Tuesday"
MyIndex = Filter(MyArray,"Monday") 'MyIndex(0) 包含 "Monday"。
For i = 0 To UBound(MyIndex)
response.write MyIndex(i)
response.write "<br>"
Next
%>

UBound函数
返回一个 Long 型数据，其值为指定的数组维可用的最大下标
UBound 函数与 LBound 函数一起使用，用来确定一个数组的大小。LBound 用来确定数组某一维的上界

比如：
<% dim admin_menu(15,50)
admin_menu(0,0)="系统数据管理"
admin_menu(0,1)="<a href=Admin_First.asp target='content'>网站信息统计</a>"
admin_menu(0,2)="<a href=Admin_Config.asp target=content>网站参数设置</a>"
admin_menu(0,3)="<a href=Admin_User.asp target='content' return true>管理员权限设置</a>"
admin_menu(0,4)="<a href=Admin_ModifyPassword.asp target=content>管理员密码更改</a>"
admin_menu(0,5)="<a href=Admin_Link.asp target='content'>友情链接管理</a>"
admin_menu(0,6)="<a href=Admin_puser.asp target='content'>个人简历管理</a>"
admin_menu(0,7)="<a href=Admin_cuser.asp target='content'>企业用户管理</a>"
admin_menu(0,8)="<a href=Admin_Company.asp target='content'>招聘信息管理</a>"

admin_menu(1,0)="人才栏目管理"
Response.Write(ubound(admin_menu,2))%>

返回结果为:50