内容正在载入中,请稍后……
公告
About me
搜索
统计
其他
30 Jan.2012

ASP: FoundInArr 函数 不指定

作者: 我就是个世界   分类:技术&学习 » ASP学习   出处:本站原创            | |

'函数:FoundInArr(strArr,strToFind,strSplit)
'作 用:检查一个数组中所有元素是否包含指定字符串
'参 数:strArr     ----字符串
'        strToFind    ----要查找的字符串
'       strSplit    ----数组的分隔符
'返回值:True,False
'**************************************************
Public Function FoundInArr(strArr, strToFind, strSplit)
   Dim arrTemp, i
   FoundInArr = False
   If InStr(strArr, strSplit) > 0 Then
    arrTemp = Split(strArr, strSplit)
    For i = 0 To UBound(arrTemp)
    If LCase(Trim(arrTemp(i))) = LCase(Trim(strToFind)) Then
     FoundInArr = True:Exit For
    End If
    Next
   Else
    If LCase(Trim(strArr)) = LCase(Trim(strToFind)) Then FoundInArr = True
   End If
End Function


例子:(在做动易的签收插件的时候用到了它)

    If rsReceive.BOF And rsReceive.EOF Then
        FoundErr = True
        Response.Write "没有找到您要签收的文件!"
    Else
        If FoundInArr(rsReceive("ReceiveUser"), UserName, ",") = False Then '假如需要签收的用户字段中没有该登录用户
            FoundErr = True
            Response.write "该文件不需你单位签收!"
        End If
        If FoundInArr(rsReceive("Received"), UserName, "|") = True Then '假如已经签收的用户字段中有该登录用户
            FoundErr = True
            Response.write "您已经签收过此文章了,不需要重复签收!"
        End If
    End If


分享到QQ空间
时间:23:01 评论(0) 引用(0) 阅读(2800) Tags: , , , ,
发表评论
  昵称 [注册]
  密码 (游客无需密码)
  网址
  电邮
OpenID登入 权限选项 表情