[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 패턴에 최상위 도메인 부분만 추가해주면 잘 작동함.
serverSide/ASP
2019. 4. 22. 18:37