ASP 版 GetEngProportion

作者:vkvi 来源:ITPOW(原创) 日期:2007-4-18

今日接到一桩反馈,说留言板垃圾信息特多,经过分析,这些垃圾信息全部来自国外,留言内容全部是英文广告。特设立 GetEngProportion 函数,用以判断英文在留言内容中的比例,如果比例达到一定值,就判定为垃圾信息。

'返回英文在字符串中所占的比例数[0-1]
'如果字符串长度为零,则返回 1
function GetEngProportion(str)
    dim chrCnt '字符数量
    chrCnt = Len(str)
    if chrCnt <= 0 then
        GetEngProportion = 1
        exit function
    end if
   
    dim engCnt '英文字符数量
    engCnt = 0
   
    dim i
    for i=1 to chrCnt
        if Asc(Mid(str,i,1)) >= 0 then
            engCnt = engCnt + 1
        end if
    next
   
    GetEngProportion = engCnt /chrCnt
end function

相关阅读:

相关文章