asp´úÂë·­Òë³Éasp.net - .NET¼¼Êõ / C#

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