핸드폰번호 자리수 함수(ASP)

'//폰번호 11자리 중 4번째수가 0일경우 변환, 그외 에러처리
function phone_len_check(phone_num)
 
 If Len(phone_num) = 11 Then
  If Mid(phone_num, 4, 1) = "0" Then
   phone = Left(phone_num,3) & Right(phone_num, 7)
  Else
   phone = phone_num
  End If
 ElseIf Len(phone_num) > 11 Then
  phone = "N"
 Else
  phone = phone_num
 End if

 phone_len_check = phone
 
end Function

'//폰번호가 10자리인경우 11자리(4번째 0추가)로 강제 변환

function phones_len_check(phone_num)
 
 If Len(phone_num) < 11 Then
  phones = Left(phone_num,3) & "0" & Right(phone_num, 7)
 ElseIf Len(phone_num) > 11 Then
  phones = "N"
 Else
  phones = phone_num
 End if

 phones_len_check = phones
 
end Function