Dim IntLength
Dim IntCount
For IntCount=1 To Len(Trim(Request.Form("txtName")))
If Asc(Mid(Request.Form("txtName"),IntCount,1)) < 0 Or Asc(Mid(Request.Form("txtName"),IntCount,1)) >255 Then
'判断字符是否在0-255之间,如果不是,则不是AscII字符。
IntLength = IntLength + 2
Else
IntLength = IntLength + 1
End If
Next