Public Function WordPercent(ss)
On Error resume next
'汉字占用Hex = 4个字长,英文占用2个字长,让一个汉字算为2个英文字符,计算有效字符比例
Dim i, x
Dim Word
Dim ch1,ch2
Dim OriLength
Dim RealLen
OriLength = Len(ss)
If OriLength=0 then
WordPercent = 0
Exit Function
End if
i = 0
If ss <> "" Then
For x = 1 To Len(ss)
'Response.Write Asc(Mid(ss, x, 1)) & "==" & Hex(Asc(Mid(ss, x, 1))) & chr(Asc(Mid(ss, x, 1)))
Word = Hex(Asc(Mid(ss, x, 1)))
If Len(Word) > 2 Then
ch1 = HextoOct(left(Word,2))
ch2 = HextoOct(right(Word,2))
'GB2312字符集范围
If ch1>=176 and ch1<=247 and ch2>=160 and ch2<=254 then
i = i + Len(Word) / 2 '是中文就长度加1
'Response.Write "是GB2312汉字<br>"
'else
'Response.Write "<font color=red>NotGB2312汉字</font><br>"
End if
End If
Next
End If
RealLen = i
'Response.Write (OriLength + RealLen) & "<font color=red>NotGB2312汉字</font><br>"
WordPercent = Clng(RealLen / (OriLength + RealLen/2) * 100)
En
本人是菜鸟一个，平时要做生意，但是找了很多人做网站，均被骗了。做得不三不四，现在决心自己来做一个，已学习ASP.NET相关的网页制作知识，有DW基础，可以说是目前只有理论知识，但是在实际具体操作的时候，总是遇� ......
