//////////////////////// 去除全角用户名 ///////////////////
li_len = len(gs_usercode) For i = 1 To li_len ls_letter = mid(gs_usercode, i,1) If ( ls_letter < '0' ) Or ( ls_letter > '9' And ls_letter < 'A' ) Or ( ls_letter > 'Z' ) Then // MessageBox('提示信息','用户名输入错误，请输入正确的半角英文字符!') // Return 1 i++ li_Asc = Asc(mid(gs_usercode, i,1)) ls_letter = char(li_Asc - 128) // -128 End If ls_UserCode += ls_letter Next gs_usercode = ls_UserCode //////////////////////////////////////////////////////////
