ASP截取网址URL中的顶级域名正则表达式

admin

2011年6月22日 1:22 本文热度 2482

函数功能从提交的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

该文章在 2011/6/22 1:22:30 编辑过

关键字查询

网址

url

域名

正在查询...

点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。

点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理，结合码头的业务特点，围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体，是物流码头及其他港口类企业的高效ERP管理信息系统。

点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。

点晴免费OA是一款软件和通用服务都免费，不限功能、不限时间、不限用户的免费OA协同办公管理系统。