허용 문자열 지정

<%
Option Explicit
Dim Str_Apr
'##허용 문자열
Str_Apr = "abcdefghijklmnopqrstuvwxyz1234567890_-"

For i = 1 to Len(Str_Apr)
    Str_L = Lcase(Mid(User_ID, i, 1))
    If Instr(Str_Apr, Str_L) = 0 Then
        Response.Write "허용되지 않는 문자가 들어갔습니다."
    End If
Next
%>