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里怎么调用java写的webservice方法，有很多方法
- <message name="RtPnrIn">
<part name="bstrPnrNO" type="s:string" />
<part name ......
