今日接到一桩反馈，说留言板垃圾信息特多，经过分析，这些垃圾信息全部来自国外，留言内容全部是英文广告。特设立 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
'如果字符串长度为零，则返回 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
相关阅读：
- ASP 版 GetEngProportion
- JavaScript 版 GetEngProportion
- ASP 版 GetByteLen
- JavaScript 版 GetByteLength
