<%
Dim Mask
Mask= Array (1,2,4,8,16,32,64)
'检查指定项是否被选中,valCheck=你数据库里面的值,chrCheck=a,b,c,d,e,f
'返回True和False
Public Function CheckOption(valCehck,chrCheck)
Dim pos
Pos=Asc(UCase(chrCheck))=Asc("A")
If (Masx(pos) And valCheck)>0 Then
CheckOption=True
Else
CheckOption=False
End If
End Function
%>