函数功能从提交的URL中提取顶级域名，失败返回空，注意要把可用的后缀全写到domext变量中。
 
function durlck(url)
domext="com|net|org|cn|co.kr|com.cn"
durlck="" : url=lcase(url)
if url="" or len(url)=0 then exit function
url=replace(replace(url,"http://",""),"https://","")
s1=instr(url,":")-1 '过滤掉端口
if s1 < 0 then s1=instr(url,"/")-1 '过滤掉/后面的字符 
if s1 > 0 then url=left(url,s1)
Set re = new RegExp
re.IgnoreCase = True : re.global = True
re.Pattern = "([a-z0-9-]){1,63}\.(" & domext & ")(\:\d+)?$"
Set Matches = re.Execute(url) 
durlck = Matches(0)
set re=nothing
end function
    希望这篇的文章能够对您有所帮助，如果您觉得这篇网站维护教程有用的话，别忘了推荐给您的朋友哦！如果您有好的经验方法，不妨拿出来和大家一起分享：假如每个人都拿出一个经验，那么我们都将额外的获取一堆他人的经验。
请记住本站永久域名：（黑客防线网安服务器维护方案维护基地）Www.Rongsen.Com.Cn