您现在的位置:主页 > 网络编程 > ASP编程 >

ASP取得地址URL中的顶级域名的函数

来源:建站吧 责任编辑:Jzq8 发表时间:2011-12-22 点击:

在制作一个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

    相关新闻>>

      发表评论
      请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
      评价:
      表情:
      验证码:点击我更换图片

      今日头条

      更多>>

      推荐图文

      • 格式化人民币金额的一例ASP函数
      • 关注web编程语言和脚本语言的就业趋势
      • 对Web开发者非常有价值10个很棒的网站
      • HTTP响应的头文件影响文件下载
      • ASP取得地址URL中的顶级域名的函数
      • 推荐几款傻瓜型的ASP服务器软件
      • 开发者程序员的5个不同层次
      • IE8内部对渲染模型的判断流程
      • windows 2000服务器IIS开启父路径的步骤...
      Alexa - 客户服务 - 联系方法 - 招聘信息 - 友情链接 - 网站地图 - TAG标签 - RSS订阅
      Copyright © 2010-2012 JZQ8.COM. 建站吧|建站去吧 版权所有
      冀ICP备09002514号
      冀ICP备09002514号 网络报警 企业法人营业执照 中国互联网协会 支付宝付款 网银在线付款