asp ajax 등록 인증 사용자 이름 입력 공백 방지

 
<% 
'''''''''''''''''''''''''''''''''''' 
Function ReplaceText(fString,patrn,replStr) 
    Set regEx = New RegExp     '        。 
        regEx.Pattern = patrn '     。 
        regEx.IgnoreCase = True '          。 
        regEx.Global = True '        。 
        ReplaceText = regEx.Replace(""&fString&"",""&replStr&"") '    。 
    Set regEx=nothing 
End Function 
'''''''''''''''''''''''''''''''''''' 
'''''''''''''''''''''''''''''''''''' 
Function HTMLEncode(fString) 
    fString=Trim(fString) 
    fString=Replace(fString,CHR(9),"") 
    fString=Replace(fString,CHR(13),"") 
    fString=Replace(fString,CHR(22),"") 
    fString=Replace(fString,CHR(38),"&#38;")    '“&” 
    fString=Replace(fString,CHR(32),"&#32;")    '“ ” 
    fString=Replace(fString,CHR(34),"&quot;")    '“"” 
    fString=Replace(fString,CHR(37),"&#37;")    '“%” 
    fString=Replace(fString,CHR(39),"&#39;")    '“'” 
    fString=Replace(fString,CHR(42),"&#42;")    '“*” 
    fString=Replace(fString,CHR(43),"&#43;")    '“+” 
    fString=Replace(fString,CHR(44),"&#44;")    '“,” 
    fString=Replace(fString,CHR(45)&CHR(45),"&#45;&#45;")    '“--” 
    fString=Replace(fString,CHR(92),"&#92;")    '“\” 
    'fString=Replace(fString,CHR(95),"&#95;")    '“_” 
    fString=Replace(fString,CHR(40),"&#40;")    '“(” 
    fString=Replace(fString,CHR(41),"&#41;")    '“)” 
    fString=Replace(fString,CHR(60),"&#60;")    '“<” 
    fString=Replace(fString,CHR(62),"&#62;")    '“>” 
    fString=Replace(fString,CHR(123),"&#123;")    '“{” 
    fString=Replace(fString,CHR(125),"&#125;")    '“}” 
    fString=Replace(fString,CHR(59),"&#59;")    '“;” 
    fString=Replace(fString,CHR(10),"<br>") 
    fString=ReplaceText(fString,"([&#])([a-z0-9]*)&#59;","$1$2;") 
    fString=ReplaceText(fString,"(fuck|shit)",string(len("&$1&"),"*")) 
    if IsSqlDataBase=0 then '     (    )[\u30A0-\u30FF] by yuzi 
        fString=escape(fString) 
        fString=ReplaceText(fString,"%u30([A-F][0-F])","&#x30$1;") 
        fString=unescape(fString) 
    end if 
    HTMLEncode=fString 
End Function 
'''''''''''''''''''''''''''''''''''' 
'''''''''''''''''''''''''''''''''''' 
Function RequestInt(fString) 
    RequestInt=Request(fString) 
    if IsNumeric(RequestInt) then 
        RequestInt=int(RequestInt) 
    else 
        RequestInt=0 
    end if 
End Function 
'''''''''''''''''''''''''''''''''''' 
UserName=HTMLEncode(unescape(Request.QueryString("UserName"))) 
UserNameLength=RequestInt("UserNameLength") 
If len(UserName)<>UserNameLength Then 
    response.write "     ！" 
Else 
    response.write "     ！" 
End If 
%>