中国第一Ajax站长门户:www.okajax.com   虚拟主机 域名注册 云主机

ASP获取url地址中顶级域名的函数 - okajax.com - Ajax中国

我要投稿 会员登陆 RSS订阅 本站推荐:
您的位置主页 > 网页编程 > Asp > ASP获取url地址中顶级域名的函数

ASP获取url地址中顶级域名的函数

2010-09-24    文章来源:互联网    浏览次数:

ASP获取url地址中顶级域名的函数,非正则,非常实用,亲自调试好用。在制作一个DLL组件中,由于DLL里不方便调用正则函数,所以,制作了一个不需要正则的取得跟域名的函数,贡献给大家!

 

  1. Private Function durl(url)  
  2. Dim domext, s1, s2, re, matches, arrdom, dd  
  3. domext = "comnetorgcnlaccinfohkbizmemobinametvasiakrdeorg.cnco.krcom.cnnet.cngov.cn" 
  4. arrdom = Split(domext, "")  
  5. durl = "": url = LCase(url)  
  6. If url = "" Or Len(url) = 0 Then Exit Function 
  7. url = Replace(Replace(url, "http://"""), "https://""")  
  8. s1 = InStr(url, ":") - 1 '过滤掉端口  
  9. If s1 < 0 Then s1 = InStr(url, "/") - 1 '过滤掉/后面的字符  
  10. If s1 > 0 Then url = Left(url, s1)  
  11. s2 = Split(url, ".")(UBound(Split(url, ".")))  
  12. If InStr(domext, s2) = 0 Then 
  13.     durl = url  
  14. Else 
  15.     For dd = 0 To UBound(arrdom)  
  16.         If InStr(url, "." & arrdom(dd)) > 0 Then 
  17.             durl = Replace(url, "." & arrdom(dd) & """")  
  18.             If InStr(durl, ".") = 0 Then 
  19.             durl = url  
  20.             Else 
  21.             durl = Split(durl, ".")(UBound(Split(durl, "."))) & "." & arrdom(dd)  
  22.             End If 
  23.         End If 
  24.     Next 
  25. End If 
  26. End Function 

 

文章评论(查看全部)

看不清楚?单击换一张。
loading.. 评论加载中....
关于我们 - 广告服务 - 版权隐私 - 免责声明 - RSS地图 - 网站地图 - 使用帮助 - 返回顶部