[ASP] 1차 도메인 추출

Function DomainVal(str)
 Set reg = New RegExp
 reg.pattern = "([a-z\d\-]+(?:\.(?:asia|info|name|mobi|com|net|org|biz|tel|xxx|kr|co|so|me|eu|cc|or|pe|ne|re|tv|jp|tw|edu.vn|vn)){1,2})(?::\d{1,5})?(?:\/[^\?]*)?(?:\?.+)?$"
 reg.IgnoreCase = True  
 Set rep = reg.Execute(str)
 For Each matchs In rep
  regStr = matchs.value
 next
 DomainVal = regStr
End Function

 

패턴에 최상위 도메인 부분만 추가해주면 잘 작동함.