<%
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
%>
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
%>
'asp' 카테고리의 다른 글
| 정규표현식을 사용한 태그삭제 및 자동링크 (2) | 2007.05.03 |
|---|---|
| iframe 대신 쓸수있는 오브젝트 (0) | 2007.05.03 |
| HTML막기 (0) | 2007.05.03 |
| ASP 기반에서의 트랙백 구현 (3) | 2007.05.03 |
| isNull, isEmpty, isObject... (0) | 2007.05.03 |