西部数码,全国ISP前十佳!
会员登陆
登录加载中...
超级搜索
栏  目  
类  别  
关键词  
 站内搜索   网络搜索
  
 当前位置:文章首页>>网页编程>>ASP实例>>ASP获取url地址中顶级域名的函数
推荐给你的朋友阅读:

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

来源:Ajax中国 发表日期: 2010-10-06 09:26:36

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

Private Function durl(url)
  Dim domext, s1, s2, re, matches, arrdom, dd
  domext = "comnetorgcnlaccinfohkbizmemobinametvasiakrdeorg.cnco.krcom.cnnet.cngov.cn"
  arrdom = Split(domext, "")
  durl = "": 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)
  s2 = Split(url, ".")(UBound(Split(url, ".")))
  If InStr(domext, s2) = 0 Then
   durl = url
  Else
   For dd = 0 To UBound(arrdom)
    If InStr(url, "." & arrdom(dd)) > 0 Then
     durl = Replace(url, "." & arrdom(dd) & "", "")
     If InStr(durl, ".") = 0 Then
      durl = url
     Else
      durl = Split(durl, ".")(UBound(Split(durl, "."))) & "." & arrdom(dd)
     End If
    End If
   Next
  End If
End Function

0
0
[作者:匿名 关键词:ASP,url地址,顶级域名,函数 录入:raincity 责编:raincity 阅读次数:3608]

相关文章 相关新闻 相关软件 相关教程 公共评论 发表评论

  • ·暂无相关内容
    评论载入中...
    您的称呼  验 证 码   
    您的评论 [ 最多字数:  已用字数:剩余字数:]

     
COPYRIGHT 2003-2010 创意飞腾科技有限公司(The Feitec LTD.) ALL RIGHTS RESERVED .
官方咨询官方咨询4376161 官方咨询526743959 技术支持:FeitecCMS5366464
页面加载时间:265.63ms Powered By:FeitecCMS V4.0(Build1101)
[蜀ICP备05000881]